Problem mit WaitForSingleObject

[shmia]

Zitat von Nightshade:

Ich hab da ein kleines Problem :

Wenn ich die untenstehende Procedure (Hab ich hier aus dem Forum) aufrufe bleibt er in :

Delphi-Quellcode:

     repeat
        WaitHandle := WaitForSingleObject( ProcessInfo.hProcess,30);
        Application.ProcessMessages;
      until (WaitHandle <> WAIT_TIMEOUT) or application.terminated;

WaitForSingleObject:
If the function fails, the return value is WAIT_FAILED. To get extended error information, call GetLastError.

Delphi-Quellcode:

repeat
  WaitHandle := WaitForSingleObject( ProcessInfo.hProcess,30);
  if WaitHandle=WAIT_FAILED then   // <---------
     RaiseLastWin32Error;
  Application.ProcessMessages;
  until (WaitHandle <> WAIT_TIMEOUT) or application.terminated;

Du solltest auch Resourceschutzblöcke für deine Handles verwenden.