Discussion :

[Lung]

Sous Delphi 2010, comment utiliser CreateProcess pour exécuter une commande DOS ?

Voici le code qui fonctionne sous Delphi 6 :

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
procedure TForm1.GetConsoleText(const szCommande: String; var szResult: String);
const
   LENBUFF = 512;  
var
   hReadPipe, hWritePipe: THandle;
   sa: TSecurityAttributes;
   si: TStartupInfo;
   pi: TProcessInformation;
   lpBuffer: Array[0..LENBUFF] of char;
   nBytesRead: Cardinal;
   nBytesToRead: Integer;
begin
   sa.nLength := Sizeof(sa);
   sa.lpSecurityDescriptor := nil;
   sa.bInheritHandle := True;
 
   if not CreatePipe(hReadPipe, hWritePipe, @sa, 0) then
   begin
      Application.MessageBox(PChar('Erreur :  la création du pipe a échoué !' + #13#10 + SysErrorMessage(GetLastError)), PChar(Caption + ' - erreur'), MB_ICONERROR + MB_OK);
      Exit;
   end;
 
   FillChar(si, Sizeof(si), 0);
   si.cb := Sizeof(si);
   si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
   si.wShowWindow := SW_HIDE;
   si.hStdInput := 0;
   si.hStdOutput := hWritePipe;
   si.hStdError := hWritePipe;
 
   if not CreateProcess(nil, PChar(szCommande), nil, nil, True, 0, nil, nil, si, pi) then
   begin
      Application.MessageBox(PChar('Erreur :  l''exécution de la commande a échoué !' + #13#10 + SysErrorMessage(GetLastError)), PChar(Caption + ' - erreur'), MB_ICONERROR + MB_OK);
      CloseHandle(hReadPipe);
      CloseHandle(hWritePipe);
      Exit;
   end;
 
   CloseHandle(hWritePipe);
   nBytesToRead := LENBUFF;
   nBytesRead := 0;
 
   szResult := '';
   while(True) do
   begin
      lpBuffer := '';
      ReadFile(hReadPipe, lpBuffer, nBytesToRead, nBytesRead, nil);
      if nBytesRead = 0 then
         Break;
      szResult := szResult + StrPas(lpBuffer);
   end;
 
   WaitForSingleObject(pi.hProcess, INFINITE);
   CloseHandle(pi.hProcess);
   CloseHandle(hReadPipe);

Sous Delphi 2010, j'ai une violation d'accès dans 'kernel32.dll' au niveau de CreateProcess.

J'ai essayé d'utiliser la version ansi (CreateProcessA), mais ça ne change rien.

Une idée ?

[Paul TOTH]

The Unicode version of this function, CreateProcessW, can modify the contents of this string. Therefore, this parameter cannot be a pointer to read-only memory (such as a const variable or a literal string). If this parameter is a constant string, the function may cause an access violation.

sous XE ça passe avec ceci (temp:string)

Code :

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

1
2
3
 
   temp := szCommande;
   if not CreateProcess(nil, @temp[1], nil, nil, True, 0, nil, nil, si, pi) then

mais la réponse est zarbi...doit y avoir un pb unicode/ansi

[eric.pommereau]

Toujours au taquet sur Delphi Paul ;-)

[Lung]

sous XE ça passe avec ceci (temp:string)

Code :

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

1
2
3
 
   temp := szCommande;
   if not CreateProcess(nil, @temp[1], nil, nil, True, 0, nil, nil, si, pi) then

mais la réponse est zarbi...doit y avoir un pb unicode/ansi

J'ai essayé ça :

Code :

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

1
2
3
   szTemp := szCommande;
 
   if not CreateProcess(nil, @szTemp[1], nil, nil, True, 0, nil, nil, si, pi) then

Effectivement, ça ne plante plus.
Mais, par contre le buffer (lpBuffer) contenant la valeur de retour de la commande, est rempli de #0
Par sûr que ce soit bon signe.

[Cl@udius]

Salut Lung

A mon avis ta variable lpBuffer devrait être un array of AnsiChar.
Ensuite il faudra certainement convertir le resultat de la lecture avec OemToAnsi ou OemToChar afin de gérer notamment les caractères accentués sous DOS.

[edit]

Après test, ceci me revoie un bel echo de la commande.

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
 
var
  // ...
  lpBuffer: array [0..LENBUFF] of AnsiChar;
  // ...
begin
  // ...
  szResult := '';
  while True do
  begin
    lpBuffer := '';
    ReadFile(hReadPipe, lpBuffer, nBytesToRead, nBytesRead, nil);
    if nBytesRead = 0 then
      Break;
    OemToAnsi(lpBuffer, lpBuffer);
    szResult := szResult + string(lpBuffer);
  end;
  // ...

@+ Claudius

[Lung]

A mon avis ta variable lpBuffer devrait être un array of AnsiChar.
Ensuite il faudra certainement convertir le resultat de la lecture avec OemToAnsi ou OemToChar afin de gérer notamment les caractères accentués sous DOS.

[edit]

Après test, ceci me revoie un bel echo de la commande.

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
 
var
  // ...
  lpBuffer: array [0..LENBUFF] of AnsiChar;
  // ...
begin
  // ...
  szResult := '';
  while True do
  begin
    lpBuffer := '';
    ReadFile(hReadPipe, lpBuffer, nBytesToRead, nBytesRead, nil);
    if nBytesRead = 0 then
      Break;
    OemToAnsi(lpBuffer, lpBuffer);
    szResult := szResult + string(lpBuffer);
  end;
  // ...

Ca marche !!!

[Cl@udius]

Ca marche !!!

Pas de quoi !
@+