Zitat von
bastischo:
Ich weiß zwar nicht genau, wie dein Programm aufgebaut ist aber... funktioniert vllt ein ondestroy???
Er will ja vorerst ein externes Programm starten.
@maynard:
Stichwort CreateProcess und WaitForSingleObject:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
si : TStartupInfo;
pi : TProcessInformation;
s : String;
parameter : String;
begin
parameter := 'Parameter des Anzeige Programmes';
s := 'C:\Pfad\Zur\Anzeige_Anwendung.exe '+parameter;
FillChar(si, SizeOf(TStartupInfo), 0);
si.cb := SizeOf(TStartupInfo);
if (CreateProcess(nil,PChar(s), nil, nil, False, NORMAL_PRIORITY_CLASS,nil, PChar(ExtractFilePath(s)), si, pi)) then
begin
WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle(pi.hProcess);
end;
end;
Durch
WaitForSingleObject(pi.hProcess, INFINITE);
wartet dein Programm nun solange, bis das andere beendet wurde. Statt
INFINITE kann auch jede andere beliebige Zeit (in Millisekunden) angegeben werden).