[Delphi6] extern programma klaar ?

[Verwijderd]

Ik roep in een procedure een extern programma aan met:

if ShellExecute(Application.Handle,'open',programma, params, nil,SW_NORMAL) <33 then
begin...... end;

nu wil ik dat de rest van het programma pas verder gaat wanneer het externe programma is afgesloten. hoe controleer ik hierop.

voorbeeld in 'gewone' taal:

start extern programma
if extern programma afgesloten then
start
eind

[WOmBaT]

Deze is voor een dosprogramma, maar ook wel aan te passen voor windows:

http://www.delphifaq.com/fq/q2051.shtml
En een hele functie ervoor:
http://www.coastlight.com/ken/delphi/execnwait.html

[Gerco]

Met de Win32 API functie WaitForSingleObject() kun je wachten tot een bepaald proces klaar is met uitvoeren. Voor details: search of MSDN.

[Verwijderd]

Misschien heb je hier wat aan:

code:

function Execute(const filename, params: string): Cardinal;
var
  SEInfo: TShellExecuteInfo;
  Directory: string;
begin
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  Directory := ExtractFilePath(filename);
  with SEInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI;
    Wnd := Application.Handle;
    lpFile := PChar(filename);
    nShow := SW_SHOWNORMAL;
    lpVerb := 'open';
    lpParameters := PChar(params);
    lpDirectory := PChar(Directory);
  end;
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
    Application.ProcessMessages;  // weet niet of je deze nodig hebt
    GetExitCodeProcess(SEInfo.hProcess, Result);
    until (Result <> STILL_ACTIVE) or Application.Terminated;
end;

[Verwijderd]

Kijk eens op http://delphi.about.com en zoek daar eens op ShellExecute. Ik denk dat je daar wel de info en voorbeelden vindt die je zoekt.

Laat ff weten of je hier wat aan gehad hebt!

[Verwijderd]

jazekers, probleem opgelost !