[D2010] Comment utiliser CreateProcess pour exécuter une commande DOS ?

Version imprimable

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

Voici le code qui fonctionne sous Delphi 6 :

Code:

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. :bug:

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

Une idée ?

:hola:

03/11/2010, 16h15
Paul TOTH
Citation:

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:

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 :)
03/11/2010, 16h32
eric.pommereau

Toujours au taquet sur Delphi Paul ;-)
03/11/2010, 17h08
Lung
Citation:
Envoyé par Paul TOTH

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

Code:

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:

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. :ccool:
Mais, par contre le buffer (lpBuffer) contenant la valeur de retour de la commande, est rempli de #0 :calim2:
Par sûr que ce soit bon signe.

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:

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

Citation:
Envoyé par Cl@udius
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:

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 !!! :mrgreen: :ccool: :merci:

04/11/2010, 15h16
Cl@udius

Citation:

Envoyé par Lung

Ca marche !!! :mrgreen: :ccool: :merci:

Pas de quoi !
@+