Nach Explorer absturz

[venice2]

Zitat von 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?

Es geht darum das Problem System weit zu kontrollieren ohne Timer das macht der Hook.
Deine Lösung ist aber sehr weit davon entfernt.
Es bringt mir nichts alle "ms" diese Aufzurufen. Danke

Die frage war auch nicht wie ich an die PID komme sondern

Zitat:

Wie kann ich am besten prüfen ob der Explorer abgestürzt ist ohne Timer?

@Bernhard hat es im 2 Beitrag schon beantwortet.

[venice2]

Nur nochmal zur Vervollständigung.
Ich registriere den Papierkorb damit das Event WM_SHELLNOTIFY ausgelöst wird.

Delphi-Quellcode:

{$REGION 'procedure RegisterRecyleBin'}

procedure TMainApp.RegisterRecyleBin(WinHandle: HWND);
var
  pidlRecycleBin: PItemIDList;
  stPIDL: TSHChangeNotifyEntry;
  hr: HRESULT;
begin

  hr := SHGetSpecialFolderLocation(WinHandle, CSIDL_BITBUCKET, pidlRecycleBin);
  if Succeeded(hr) then
  begin
    stPIDL.pidl := pidlRecycleBin;
    stPIDL.fRecursive := True;

    FHNotifyRBin := SHChangeNotifyRegister(WinHandle,
      SHCNF_ACCEPT_INTERRUPTS or SHCNF_ACCEPT_NON_INTERRUPTS, SHCNE_ALLEVENTS, WM_SHELLNOTIFY, 1,
      stPIDL);

    if 0 = FHNotifyRBin then
      RaiseLastOSError(GetLastError);
  end
  else
    RaiseLastOSError;

  // Hier werde ich nun den Hook implementieren und die Anwendung entsprechend des Event neu starten.
end;
{$ENDREGION}

Wenn nun der Explorer abstürzt wird das Event WM_SHELLNOTIFY nicht mehr ausgelöst da es zum vorherigen Prozess Explorer.exe nicht mehr gültig ist.
Bzw. Der Papierkorb ist dann nicht mehr registriert (FHNotifyRBin = Registrations ID) ist dann ungültig.
Wie gesagt es ist mir unverständlich das ein System so unzuverlässig ist und man selber eventuelle Fehler diesbezüglich abfangen muss.

[venice2]

Hier ist jetzt die Lösung.

Delphi-Quellcode:

procedure WinEventProc(hWinEventHook: THandle; event: DWORD; EHandle: HWND;
  idObject: Integer; idChild: Integer; idEventThread: DWord;
  dwmsEventTime: DWord); stdcall;
begin
 if (event = EVENT_OBJECT_DESTROY) and (EHandle = HwndTarget) and
   (idObject = OBJID_WINDOW) and (idChild = INDEXID_CONTAINER) then
   begin
     if (MainApp.FHNotifyRBin <> 0) then
     begin
       if SHChangeNotifyDeregister(MainHandle) then
       begin
         SendMessage(MainHandle, WM_COMMAND, IDM_Restart, 0);
         MainApp.RegisterRecyleBin(MainHandle);
       end;
     end;
   end;
end;

MainProc.

Delphi-Quellcode:

    WM_DESTROY:
      begin
        if (HWEH <> 0) then
          UnhookWinEvent(HWEH);

Delphi-Quellcode:

{$REGION 'procedure RegisterRecyleBin'}
procedure TMainApp.RegisterRecyleBin(WinHandle: HWND);
var
  dwProcessId: DWord;
  dwThreadId: DWord;
  pidlRecycleBin: PItemIDList;
  stPIDL: TSHChangeNotifyEntry;
  hr: HRESULT;
begin

  HwndTarget := FindWindow('Progman', 'Program Manager');
  dwThreadId := GetWindowThreadProcessId(HwndTarget, @dwProcessId);

  if (dwThreadId <> 0) then
    HWEH := SetWinEventHook(EVENT_OBJECT_DESTROY, EVENT_OBJECT_DESTROY, 0,
    @WinEventProc, dwProcessId, dwThreadId, WINEVENT_OUTOFCONTEXT);

  hr := SHGetSpecialFolderLocation(WinHandle, CSIDL_BITBUCKET, pidlRecycleBin);
  if Succeeded(hr) then
  begin
    stPIDL.pidl := pidlRecycleBin;
    stPIDL.fRecursive := True;

    FHNotifyRBin := SHChangeNotifyRegister(WinHandle,
      SHCNF_ACCEPT_INTERRUPTS or SHCNF_ACCEPT_NON_INTERRUPTS, SHCNE_ALLEVENTS, WM_SHELLNOTIFY, 1,
      stPIDL);

    if 0 = FHNotifyRBin then
      RaiseLastOSError(GetLastError);
  end
  else
    RaiseLastOSError;
end;
{$ENDREGION}

Aber!
Wie kann ich das nun zuverlässig testen?
Wenn ich nun einen Hard Reset ausführe also den Prozess Explorer kille dann startet der Explorer nicht automatisch neu und dann wird das DesktopListView nicht mehr gefunden.
Gibt es einen anderen weg den Explorer zu beenden so das er automatisch neustartet damit ich den Fehler gegenprüfen kann?

EDIT:
Es ist ja nicht die Aufgabe meiner Anwendung den Explorer neu zu starten oder?

[Klaus01]

.. geht es nicht über den TaskManager Windows-Explorer markieren -> unten rechts neu starten.

Grüße
Klaus

[venice2]

Zitat von Klaus01:

.. geht es nicht über den TaskManager Windows-Explorer markieren -> unten rechts neu starten.

Grüße
Klaus

Ja. Danke.
Aber dazwischen greift ja das Event bzw. die Callback.
Wenn ich danach die Anwendung neu\restarte wird das DesktopListView nicht gefunden der Explorer startet ja erst danach neu!

Werde wohl einen Loop hinzufügen müssen der darauf wartet bis das Handle vom Progman wieder gefunden wird.

[himitsu]

Es gibt doch aber auch irgendwo ein Event, wenn der Explorer die Taskleiste neu gestartet wurde.
Wenn man etwas hat, was sich dort rein hängt, dann muß man eben auch auf dessen Events reagieren.


Und ja, es ist krank, dass Desktop/Taskleiste und Explorer.exe ein und das Selbe sind,
aber damit muß man eben leben, bis es endlich mal repariert/geändert wird.

[venice2]

Zitat:

Wenn man etwas hat, was sich dort rein hängt, dann muß man eben auch auf dessen Events reagieren.

Ich verwende nichts was sich dort reinhängt.

Habe es jetzt so geändert. Ob das elegant ist mag dahin gestellt sein.

Delphi-Quellcode:

procedure WinEventProc(hWinEventHook: THandle; event: DWORD; EHandle: HWND;
  idObject: Integer; idChild: Integer; idEventThread: DWord;
  dwmsEventTime: DWord); stdcall;
var
  Counter: Integer;
begin
 if (event = EVENT_OBJECT_DESTROY) and (EHandle = HwndTarget) and
   (idObject = OBJID_WINDOW) and (idChild = INDEXID_CONTAINER) then
   begin
     if (MainApp.FHNotifyRBin <> 0) then
     begin
       HwndTarget := 0;
       Counter := 0;
       if SHChangeNotifyDeregister(MainHandle) then
       begin
         MainApp.FHNotifyRBin := 0;

         repeat
           HwndTarget := FindWindow('Progman', 'Program Manager');
           WinProcessMessages;
           inc(Counter);
         until (HwndTarget <> 0) or (Counter = 30000);

         if HwndTarget <> 0 then
           MainApp.RegisterRecyleBin(MainHandle);
       end;
     end;
   end;
end;

[Michael II]

Zitat von himitsu:

Es gibt doch aber auch irgendwo ein Event, wenn der Explorer die Taskleiste neu gestartet wurde.

RegisterWindowMessage('TaskbarCreated')