Aus (meiner) exe eine andere exe starten und warten..

[Bine]

wie kann ich warten bis eine exe geschlossen wurde? (wird mit tapplication.free zerstört- also nicht freigeben)

wie kann ich warten?

BINE

[Bine]

oder anders

...warte bis ein feld in der Tabelle true wird..

BINE :O

[Bine]

ich brauche nur einen befehl für warten ..

[Falk Prüfer]

Hallo Bine,

das folgende Bsp. startet Notepad und wartet dann bis Notepad beendet wird:

<pre><code>
procedure TForm1.Button1Click(Sender: TObject);
var
AStartUp: TStartUpInfo;
AProcInfo: PROCESS_INFORMATION;
begin
FillChar(AStartUp, SizeOf(TStartUpInfo), 0);
FillChar(AProcInfo, SizeOf(PROCESS_INFORMATION), 0);
with AStartUp do
begin
cb := SizeOf(TStartUpInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOWNORMAL;
end;
CreateProcess('c:\windows\Notepad.exe', nil, nil, nil, True, NORMAL_PRIORITY_CLASS,
nil, nil, AStartUp, AProcInfo);
WaitForSingleObject(AProcInfo.hProcess, INFINITE);
Application.MessageBox('Notepad beendet!', 'Starter', mb_OK);
end;
</pre></code>

Gruß Fal

[Bine]

Danke der Code funktioniert OHNE PROBLEME

BINE :

[Robert Marquardt]

Aus der Jedi Code Library:<br>
function WinExec32AndWait(const Cmd: string; const CmdShow: Integer): Cardinal;<br>
var<br>
StartupInfo: TStartupInfo;<br>
ProcessInfo: TProcessInformation;<br>
begin<br>
Result := Cardinal($FFFFFFFF);<br>
FillChar(StartupInfo, SizeOf(TStartupInfo), #0);<br>
StartupInfo.cb := SizeOf(TStartupInfo);<br>
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;<br>
StartupInfo.wShowWindow := CmdShow;<br>
if CreateProcess(nil, PChar(Cmd), nil, nil, False, NORMAL_PRIORITY_CLASS,<br>
nil, nil, StartupInfo, ProcessInfo) then<br>
begin<br>
WaitForInputIdle(ProcessInfo.hProcess, INFINITE);<br>
if WaitForSingleObject(ProcessInfo.hProcess, INFINITE) = WAIT_OBJECT_0 then<br>
begin<br>
{$IFDEF DELPHI3}<br>
if not GetExitCodeProcess(ProcessInfo.hProcess, Integer(Result)) then<br>
{$ELSE}<br>
if not GetExitCodeProcess(ProcessInfo.hProcess, Result) then<br>
{$ENDIF DELPHI3}<br>
Result := Cardinal($FFFFFFFF);<br>
end;<br>
CloseHandle(ProcessInfo.hThread);<br>
CloseHandle(ProcessInfo.hProcess);<br>
end;<br>
end;<br&gt