Discussion :

[avogadro]

bonjour,

dans mon cas je crée une form a la volée, ainsi qu'un memo a lintérieur, premier probleme : le focus se met avec le "c:\", puis en fait je voudrais incorporé certaine fonction du genre ping ou ipconfig, ou bien plus simple, a chaque fois que l'on appuis sur entrée, il remette automatiquement "c:\" a la ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  my_form: Tform;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   my_memo: tmemo;
begin
my_form := tform.create(form1);
my_memo := tmemo.create(my_form);
        with my_form do
             begin
                  Height := 300;
                  Width := 500;
                  Position := poScreenCenter;
                  BorderStyle := bsDialog;
                  Caption := 'C:\WINDOWS\system32\cmd.exe';
                  visible := true;
             end;
        with my_memo do
             begin
                  parent := my_form;
                  my_memo.Height := my_form.Height;
                  my_memo.Width := my_form.Width;
                  color := clBlack;
                  font.Color := clWhite;
                  Text := ('Microsoft Windows XP [version 5.1.2600]' + #13#10 + '(C) Copyright 1985-2001 Microsoft Corp.' + #13#10 + #13#10 + 'C:\');
                  SetFocus;
                  visible := true;
             end;
end;
 
end.

[WolffN]

regarde dans la FAQ au niveau de la gestion des redirections pour les applications console

@+

[avogadro]

je ne souhaite pas qu'il me redigire vers le dos windows, parce que je veux simuler un reseau, donc je dois aussi simuler dos, je dois le faire moi meme avec les fonctions les plus basiques utiles dans un reseau !

[denokan]

pourquoi tu ne fais pas directement un application en mode console ?

[avogadro]

on peut moins régler de paramètres nan? parce que apres je crois qu'il faut le faire en pascal, de toute façon c'est pareil il faut tout coder... si ta une méthode facile je suis ouvert moi ^^

[denokan]

j'ai pas bien compris le but du jeu ?
chaque fois k'on appuie sur entrée tu veux lancer une fonction (toujours la même ?) et en afficher le résultat à l'écran ?
c'est quoi l'intérêt de faire ça dans une fenêtre en mode console ?

[avogadro]

je veux une fenetre comme celle de dos avec le fonctions comme:

-ipconfig
-ping
etc...

tout en faisant attention que a chaque fois que je fait un retour a la ligne il me remette c:\ je pense que cest plus claire comme ça!

OnKeyPress?

[denokan]

voilà un petit exemple à placer dans le dpr d'une application en mode console. à mon avis c le plus simple pour simuler une fenêtre dos.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
program Project2;
 
var
  Quit, CommandeTraitee : Boolean;
  LigneTapee : String;
 
begin
  WriteLn('Microsoft Windows XP [version 5.1.2600]');
  WriteLn('(C) Copyright 1985-2001 Microsoft Corp.');
  WriteLn;
  CommandeTraitee := False;
  repeat
    CommandeTraitee := False;
    Write('C:\>');
    // lecture du texte tapé
    Readln(LigneTapee);
 
    //traitement de la commande
    if LigneTapee = 'ipconfig' then begin
      CommandeTraitee := True;
      WriteLn('Votre IP est : 192.168.0.9');
    end;
 
    if LigneTapee = 'ping' then begin
      CommandeTraitee := True;
      WriteLn('blabla du ping');
    end;
 
    if LigneTapee = 'exit' then begin
      CommandeTraitee := True;
      Quit := True;
    end;
 
    if not CommandeTraitee then
      WriteLn('Commande inconnue : ' + LigneTapee);
  until Quit;
end.

[avogadro]

niquel merci beaucoup, c'est pas mal, les termes changent un peu par contre, il doit exister un site qui regroupe tous ça!

[avogadro]

et tarrive avec cette application console a chercher des données dans un tableau par exemple dans une application normal??

[denokan]

un application console est une application sans fenêtre windows form, mais sinon elle n'est pas bridée. tu peux utiliser les fonctions de l'api windows, envoyer et recevoir des messages...

[avogadro]

quelle serait la méthode pour récupérer dans mon apli console, des variables de mon apli windows ?? possibilité au moins? il parait que oui !!