ShellExecuteEx öffnet, beendet aber auch

[kallculator]

Hallo!

Leider habe ich ein kleines Problem. Mit folgendem Code soll Apache versteckt geöffnet werden und sobald er fertig geladen ist, der IE starten (der wiederum eine Seite vom Webserver aufruft). Beide Programme starten auch, nur schließt sich der Apache wieder bevor der IE anspringt. Was könnte da falsch laufen? Der Apache sollte im Hintergrund weiterlaufen.

Delphi-Quellcode:

var
  ShExecInfo : SHELLEXECUTEINFO;
begin
  ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
  ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShExecInfo.lpVerb := nil;
  ShExecInfo.lpFile := PChar('...\apache\bin\Apache.exe');
  ShExecInfo.lpDirectory := nil;
  ShExecInfo.nShow := SW_HIDE;

  ShellExecuteEx(@ShExecInfo);

  WaitForSingleObject(ShExecInfo.hProcess,INFINITE);

  ShellExecute(0,'open',PCHar('...\Internet Explorer\iexplore.exe'),nil,nil,SW_MAXIMIZE);
end;

[Dax]

Mit WaitForSingleObject(...) wartest du, soweit ich weiß, bis der Apache wieder beendet wird. Vielleicht solltest du einen anderen Timeout einstellen und prüfen, obs dann funktioniert.

[Christian Seehase]

Moin kallculator,

nimm doch statt WaitForSingleObject lieber WaitForInputIdle.

[kallculator]

Zitat von Christian Seehase:

nimm doch statt WaitForSingleObject lieber WaitForInputIdle.

Danke euch beiden für die schnellen Antworten.
WaitForInputIdle ist die richtige Wahl, habe es auch ausprobiert, nur irgendwie passiert dasselbe
Was nun?

[jim_raynor]

Würde sagen, dass du auch ein Directory (lpDirectory) angeben solltest. Denke mal, dass beim Starten von Apache irgendein Fehler auftritt und dadurch beendet wird. Musst mal in den Logfiles schauen.

[kallculator]

Hilft leider auch nichts und Apache logt keine Error

Edit:
Du hast mich doch auf die richtige Spur gebracht. Apache brauchte (auch noch) lpParameters
Jetzt gehts!

Hier der ausgebesserte Code:

Delphi-Quellcode:

var
  ShExecInfo : SHELLEXECUTEINFO;
begin
  ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
  ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShExecInfo.lpVerb := nil;
  ShExecInfo.lpFile := PChar('...\bin\Apache.exe');
  ShExecInfo.lpParameters := '';
  ShExecInfo.lpDirectory := PChar('...\bin');
  ShExecInfo.nShow := SW_HIDE;
  ShellExecuteEx(@ShExecInfo);
  WaitForInputIdle(ShExecInfo.hProcess,INFINITE);
  ShellExecute(0,'open',PCHar('...\Internet Explorer\iexplore.exe'),nil,nil,SW_MAXIMIZE);
end;

[sh17]

Vielleicht noch als abschliessende Ergänzung:

CloseHandle(ShExecInfo.hProcess);