Discussion :

[Coussati]

bonjour

je vais essayer d'être claire et précis

je veux faire une sorte d'émulateur cmd.exe

c'est à dire que mon prog delphi pourra faire TOUT ce que fait cmd.exe (je parle des commande que l'on tape lorsqu'on ouvre cmd.exe genre : dir, créer un dossier, supprimer un fichier ect ...)

je veux le faire grace à un mémo pour afficher ce que normalement cmd.exe affiche et un edit et un boutton pour envoyer les commandes

même si le programme utilise "cmd.exe" (dans le faire apparaitre biensur) l'user de mon prog ne doit pas voir de cmd ouvert ou d'écran dos

j'ai trouvé une source qui à l'air bien, mais j'arrive à faire qu'un DIR

peut être c'est parce que je n'ai pas bien compris la syntaxe :/

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
56
57
58
59
60
61
62
63
64
65
66
67
 
procedure RunDosInMemo(DosApp: string; AMemo:
TMemo);
const
  ReadBuffer = 2400;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: Pchar;
  BytesRead: DWord;
  Apprunning: DWord;
begin
  with Security do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;
  if Createpipe(ReadPipe, WritePipe,
    @Security, 0) then
  begin
    Buffer := AllocMem(ReadBuffer + 1);
    FillChar(Start, Sizeof(Start), #0);
    start.cb := SizeOf(start);
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    start.dwFlags := STARTF_USESTDHANDLES +
      STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_HIDE;
    if CreateProcess(nil,
      PChar(DosApp),
      @Security,
      @Security,
      true,
      NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      start,
      ProcessInfo) then
    begin
      repeat
        Apprunning := WaitForSingleObject
          (ProcessInfo.hProcess, 100);
        Application.ProcessMessages;
      until (Apprunning <> WAIT_TIMEOUT);
      repeat
        BytesRead := 0;
        ReadFile(ReadPipe, Buffer[0],
          ReadBuffer, BytesRead, nil);
        Buffer[BytesRead] := #0;
        OemToAnsi(Buffer, Buffer);
        AMemo.Text := AMemo.text + string(Buffer);
      until (BytesRead < ReadBuffer);
    end;
    FreeMem(Buffer);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ReadPipe);
    CloseHandle(WritePipe);
  end;
end;
procedure TForm1.btnCaptureDosWindowClick(Sender: TObject);
begin
  RunDosInMemo('cmd.exe /C dir c:', Memo1);
end;

merci d'avance pour l'aide

[portu]

Code :

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

1
2
 
 RunDosInMemo('cmd.exe /c "'+Edit1.Text+'"',Memo1);

L'emploi des guillemets est nécessaire !

Le code marche bien, a part quelques commande du genre :

cd /..
un commande qui n'existe pas.
et bien d'autres...

l'application se bloque !

[Coussati]

justement pkoi l'application se block ? :s

je voudrais pouvoir tout faire comme cmd

[Laurent Dardenne]

Regarde si ce composant ne résoud pas ton pb :
http://delphi.developpez.com/sources...rectionConsole

[Pedro]

Ce n'est pas un émulateur mais une redirection...
Et j'ai le même problème malgré les innombrables exemples que l'on m'a donné...

[Laurent Dardenne]

Ce n'est pas un émulateur mais une redirection...

C'est vrai, d'ou ma formulation "regarde si".

[Coussati]

wi je sais que le mot émulateur n'était pas très aproprié, mais ctai pour mieu expliquer

peut être que vous pourrez m'aider ici

http://www.developpez.net/forums/vie...206125#2206125

merci

[Laurent Dardenne]

Salut,
évite les jeux de piste avec les posts tu aurais dû continuer ici ou placer ton post en résolu, ce que j'ai fait.