[Delphi] exe starten en wachten tot exe klaar is

[MPEG]

Ik zit met het volgende, ik wil een autorun proggie maken die controleerd of bepaalde software geïnstalleerd is. Indien de software nog niet is geïnstalleerd moet dit eerst gedaan worden en daarna moet dat programma opgestart worden.

Nu heb ik al wel de commando's om een .exe op te starten, maar is het nu ook nog mogelijk om te wachten tot dat programma klaar is met de installatie?

[_Thanatos_]

Probeer dit maar es:

code:

procedure StartAndWait(CommandLine: string);
var
  Buffer: array[0..511] of Char;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  WaitResult: Cardinal;
begin
StrPCopy(Buffer, CommandLine);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_SHOWDEFAULT;
if CreateProcess(nil, Buffer, nil, nil, False,
             CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
             nil, nil, StartupInfo, ProcessInfo)
then repeat
     WaitResult := WaitforSingleObject(ProcessInfo.hProcess, 0);
     Application.ProcessMessages;
     until WaitResult = WAIT_OBJECT_0;
end;

[Verwijderd]

Misschien een beetje (te) laat, maar ik kwam toevallig nog een linkje tegen, misschien dat je er iets aan hebt.

http://www.programmersheaven.com/zone2/cat69/17074.htm

[Verwijderd]

Vergeet niet de handles van het proces en de thread te sluiten met CloseHandle!! Dat gebeurt hierboven niet.