ShellExecute -> Rückmeldung ob Programm geöffnet oder geschlossen ist.

[HolgerCW]

Hallo zusammen,

ist es möglich von einem externen Programm welches ich mit ShellExecute aufgerufen habe die Informationen zu erhalten, ob es nun geöffnet wurde, bzw. ob es wieder geschlossen wurde ?

Wenn Nein -> Gibt es da andere Möglichkeiten ?

Gruss

Holger

[DeddyH]

Willst Du auf die Beendigung warten, oder wie ist die Frage zu verstehen? ShellExecute liefert Dir zumindest entweder einen Fehlercode (im Bereich bis einschl. 32) oder das Handle der erzeugten Instanz zurück. Willst Du aber auf die Beendigung warten, musst Du auf z.B. CreateProcess oder ShellExecuteEx ausweichen.

[Christian Seehase]

Moin Detlef,

eine kleine Korrektur:
Die Funktion liefert nur einen Fehlercode (<= 32), aber kein Instanzenhandle im Erfolgsfalle.
Bei einem Rückgabewert > 32 kann man nur sagen, dass der Aufruf erfolgreich war.

[DeddyH]

Hast ja Recht, das ist nur eine Fake-Instanz zur Abwärtskompatibilität, steht aber auch so in der Hilfe:

Zitat:

If the function succeeds, it returns a value greater than 32. If the function fails, it returns an error value that indicates the cause of the failure. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. It is not a true HINSTANCE, however.

[HolgerCW]

Kann ich direkt nach dem ShellExecute-Aufruf den Fehlercode auslesen, da das externe Programm auch einige Zeit braucht bis es gestartet ist. Und wie genau mache ich die Abfrage ?

Die Sache mit ShellExecuteEx würde mich auch interressieren. Wie funktioniert das ? Ist danach das Delphi-Programm "eingefroren" bis das externe Programm wieder geschlossen ist ? Wie funktioniert da der Aufruf und das Abfragen der Parameter ?

MfG

Holger Wächter

[DeddyH]

ShellExecute ist ja eine Funktion, da kannst Du also direkt nach dem Aufruf den Rückgabewert abgreifen. Zu ShellExecuteEx und Warten kannst Du Dir das hier einmal anschauen. Ich bin gerade nicht sicher, aber das Programm müsste während des Wartens einfrieren, dem lässt sich aber mit den "üblichen" Mechanismen entgegenwirken (ProcessMessages, Threads etc.). Bei den Parametern verstehe ich im Moment nicht, was genau Du meinst.

[Andreas L.]

Zitat von HolgerCW:

Kann ich direkt nach dem ShellExecute-Aufruf den Fehlercode auslesen, da das externe Programm auch einige Zeit braucht bis es gestartet ist. Und wie genau mache ich die Abfrage ?

Delphi-Quellcode:

var
  ReturnValue: Integer;
begin
  ReturnValue := ShellExecute(Handle, 'open', 'explorer.exe', nil, nil, 0);
  if ReturnValue <= 32 then
    ShowMessage('Fehler mit Code ' + IntToStr(ReturnValue) + '!')
  else
   ShowMessage('ShellExec erfolgreich ausgeführt.');
end;