Warten bis ShellExecute fertig ist

[Schwedenbitter]

Zitat:

Zitat von Apollonius

Delphi-Quellcode:

while not Application.Terminated and (MsgWaitForMultipleObjects(1, @SEInfo.hProcess, false, INFINITE, QS_ALLINPUT) = WAIT_OBJECT_0 + 1)
     Application.ProcessMessages;

Ich lerne immer gern dazu. Danke.
Habe den Code gleich ausprobiert, bekomme aber immer die Fehlermeldung "Konstantenobjekt kann nicht als Var-Parameter übergeben werden." Ich vermute, dass es etwas mit @SEInfo.hProcess zu tun hat, werde aber aus der Online-Hilfe nicht schlau.
Was muss ich da ändern?

Gruß, Alex

[Apollonius]

Ich hasse diese Header-Übersetzungen in Windows.pas. Dort ist es statt einem Zeiger ein var-Parameter; nimm also das @ weg.
@Hai: In der CL wird nicht MsgWaitForMultipleObjects verwendet - bis sich das aufgerufene Programm beendet hat, werden also keine Nachrichten verarbeitet und das eigene Programm "hängt".