Probleme mit WaitForSingleObject

[Doktor Ruff]

Ich rufe mit Hilfe von ShellExecuteEx den Standardbrowser auf und warte danach auf dessen Beendigung. Das ShellExecute funktioniert auch soweit nur leider liefert mir die Funktion WaitForSingleObject einen komischen Wert (8-stellige Zahl) und dieser ändert sich auch nicht wenn ich den Browser wieder schließe, sprich den Prozess beende. Irgendwo liegt in meinem Code also der Hund begraben oder ich hab da was falsch verstanden.

Delphi-Quellcode:

var
  SHELLINFO        : TShellExecuteInfo;
begin  
  with SHELLINFO do
  begin
    cbSize :=  SizeOf(SHELLINFO);
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := 0;
    lpVerb := PChar('open');
    lpFile := PChar(startHTML);
    lpParameters := nil;
    lpDirectory := nil;
    nShow :=  SW_SHOWNORMAL;
//  hInstApp := 0;
  end;
  try
    ShellExecuteEx(@SHELLINFO);
    repeat
      Application.ProcessMessages;
//    showMessage(IntToStr(WaitForSingleObject(SHELLINFO.hProcess, 1000));
    until (WaitForSingleObject(SHELLINFO.hProcess, 1000) = WAIT_TIMEOUT);
    showMessage('Blob');
  except
    on E:Exception do showmessage(e.Message);
  end;
end;

[RavenIV]

aus der MSDN:

Code:

Return Value

If the function succeeds, the return value indicates the event that caused the function to return. It can be one of the following values.
Return code/value    Description
WAIT_ABANDONED
0x00000080L    The specified object is a mutex object that was not released by the thread that owned the mutex object before the owning thread terminated. Ownership of the mutex object is granted to the calling thread, and the mutex is set to nonsignaled.

If the mutex was protecting persistent state information, you should check it for consistency.
WAIT_OBJECT_0
0x00000000L    The state of the specified object is signaled.
WAIT_TIMEOUT
0x00000102L    The time-out interval elapsed, and the object's state is nonsignaled.

If the function fails, the return value is WAIT_FAILED ((DWORD)0xFFFFFFFF). To get extended error information, call GetLastError.

dies könnte doch der 8-Stellige Wert sein, oder?
am besten benutzt Du zum Abfragen des Ergebnisses die Konstanten und nicht den Wert.
Die Konstanten sind definiert in der Windows.pas.

[thkerkmann]

Hi,

versuchs mal so:

Delphi-Quellcode:

function tForm1.WinExecAndWait32(const Path: string; Visibility: Word): Boolean;
var
  lpExitCode: Cardinal;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  bIsSetup: boolean;
  iCnt: integer;
  iFind: integer;
begin
  bIsSetup := pos('setup.exe', lowercase(path)) > 0;
  { clear StartupInfo }
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);

  { enter startup information }
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    wShowWindow := visibility; {you could pass sw_show or sw_hide as parameter}
  end;

  { create new process }
  if CreateProcess(nil, pChar(path), nil, nil, False, NORMAL_PRIORITY_CLASS,
    nil, nil,
    StartupInfo, ProcessInfo) then
  begin
    { sucess }
    WaitForInputIdle(ProcessInfo.hProcess, 3000);
    { wait until application finished }
    repeat { until lpExitCode <> Still_Active }
      sleep(0);
      application.processmessages;
      GetExitCodeProcess(ProcessInfo.hProcess, lpExitCode);
    until lpExitCode <> Still_Active;

    with ProcessInfo do
      {not sure this is necessary but seen in in some code elsewhere}
    begin
      CloseHandle(hThread);
      CloseHandle(hProcess);
    end; { with ProcessInfo do }

end;

Das verwende ich schon lange und es funktioniert sehr zuverlässig.

Gruss

[alzaimar]

Und wenn du schon per WaitForSingleObject auf etwas wartest, dann besagt der Wert 'WAIT_TIMEOUT', das WFSO innerhalb der angegebenen Zeit keine Rückmeldung vom Objekt bekommen hat-sprich: Dat Teil is noch nich fettich. Du müsstest warten, bis 'WAIT_OBJECT0' zurückkommet (oder ist das WAIT_OBJECT_0 )

[Doktor Ruff]

Ich hab meinen Code mal so umgebaut, dass ich mit GetExitCodeProcess auf das Beenden warte, aber irgendwie springt er sofort aus der Schleife raus. Ich habe die Befürchtung, dass es an meinem ShellExecuteEx liegt. Damit führe ich ja lediglich eine Kommandozeile aus.

So sieht das jetzt genau aus:

Delphi-Quellcode:

var
  SHELLINFO        : TShellExecuteInfo;
  lpExitCode       : Cardinal;
begin
  // fillChar(SHELLINFO, SizeOf(SHELLINFO), #0);

  with SHELLINFO do
  begin
    cbSize :=  SizeOf(SHELLINFO);
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := 0;
    lpVerb := nil;
    lpFile := PChar('explorer');
    lpParameters := PChar(startHTML);
    lpDirectory := nil;
    nShow :=  SW_SHOWNORMAL;
  end;
  try
    ShellExecuteEx(@SHELLINFO);

    WaitForInputIdle(SHELLINFO.hProcess, 3000);

    repeat
      Sleep(0);
      Application.ProcessMessages;
      showMessage(IntToStr(SHELLINFO.hProcess));
      GetExitCodeProcess(SHELLINFO.hProcess, lpExitCode);
    until (lpExitCode <> STILL_ACTIVE);
    showMessage('Blob');
  except
    on E:Exception do showmessage(e.Message);
  end;
end;

Kann ich denn auch mit CreateProcess den Standardbrowser aufrufen?