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?