Nach Explorer absturz

[KodeZwerg]

ich blicke gerade nicht so ganz durch ob das problem behoben ist ansonsten würde ich vielleicht so vorgehen:

Delphi-Quellcode:

function GetExplorerPID: DWORD;
var
  hWnd: Cardinal;
  PID: DWORD;
begin
  hWnd := FindWindow('Progman', 'Program Manager');
  GetWindowThreadProcessId(hWnd, @PID);
  Result := PID;
end;

Sowas in der art vor deinem "Schau nach Korb" dingens rein?