lancer un fichier bat en MODE REDUIT et attendre qu il se finisse

Question

Bonour a tous ^_^
Voil&#224;, j utilise une fonction :

function LanceAppliAttenteFin(NomFichier:string):boolean;

var
  StartInfo : TStartupInfo;
  ProcessInformation : TProcessInformation;
begin
  result:=true;
  ZeroMemory(@StartInfo, sizeof(StartInfo)); // remplie de 0 StartInfo
  StartInfo.cb:=sizeof(StartInfo);
  if CreateProcess(nil,PChar(FICHIER.bat),nil,nil,true,0,nil,nil,StartInfo,ProcessInformation)
  then WaitForSingleObject(ProcessInformation.hProcess, INFINITE)// attend que l'application d&#233;sign&#233;e par le handle ProcessInformation.hProcess soit termin&#233;e
  else result:=false;
end;

le pb c'est que je n arrive pas a lancer la fenetre dos en mode reduit ...

si quelqu'un a une id&#233;e ...

merci ^_^

Cirec · Answer

Salut,
Essaye comme &#231;a:
if CreateProcess(nil,
   PChar(FICHIER.bat),
   nil,
   nil,
   true,
   CREATE_NO_WINDOW,
   nil,
   nil,
   StartInfo,
   ProcessInformation) Then
    Begin
    WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
    CloseHandle( ProcessInformation.hProcess ); // ne pas Oublier de refermer comme ceci
    CloseHandle( ProcessInformation.hThread );  // ne pas Oublier de refermer comme ceci
    end



@+
Cirec

Cirec · Answer

ATTENTION 
n'utilise  CREATE_NO_WINDOW qu'avec des fichier BAT



@+
Cirec

Lancer un fichier bat en MODE REDUIT et attendre qu il se finisse

2 réponses

Votre réponse

Discussions similaires