Hallo,
folgenden Code, zu Teilen aus folgendem Beitrag zusammengebastelt:
http://www.delphipraxis.net/internal...%FChren+warten
funktioniert leider nicht, und zwar wird die FOR-TO-Schleife bis zum Ende durchgelaufen, und nicht auf den Abschluss des Programms gewartet:
Delphi-Quellcode:
procedure Tf_main.bt_startClick(Sender: TObject);
var
i : Integer;
Info: TShellExecuteInfo;
pInfo: PShellExecuteInfo;
exitCode: DWord;
begin
for i := 0 to inst_Prog - 1 do
begin
pInfo := @Info;
with Info do
begin
cbSize := SizeOf(Info);
fMask := SEE_MASK_NOCLOSEPROCESS;
wnd := Application.Handle;
lpVerb := NIL;
lpFile := PChar(lab_ProgExe[i].Caption);
{Parametros al ejecutable}
{Executable parameters}
lpParameters := PChar(lab_ProgParam[i].Caption + #0);
lpDirectory := PChar(lab_ProgPfad[i].Caption);
nShow := 1;
hInstApp := 0;
end;
ShellExecuteEx(pInfo);
repeat
exitCode := WaitForSingleObject(Info.hProcess, 500);
Application.ProcessMessages;
until (exitCode <> WAIT_TIMEOUT);
end;
Jemand ne Idee, woran das liegen kann?
Danke im Vorraus
tyler