Nach Explorer absturz

[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')

[venice2]

Zitat von Michael II:

Zitat von himitsu:

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

RegisterWindowMessage('TaskbarCreated')

Ja. Aber ich mache nichts mit der Taskbar

[himitsu]

Zitat von venice2:

Ich verwende nichts was sich dort reinhängt.

Und als was bezeichnest du SetWinEventHook und SHChangeNotifyRegister?

Das ist egal. Explorer und Taskleiste sind quasi das Gleiche.
Die erste Instanz der explorer.exe ist der "Desktop", mit der Taskleiste drauf.
Genauso wie (File) Explorer und Internet Exporer untrennbar zusammen gehören.
Der Interactive Desktop und die WebView des Explorers ist ein Internet Explorer.
Das FTP im Explorer läuft über den Intenret Explorer. (und alle runtergeladenen Dateien landen im IECache, wo auch noch die gesetzte Speichergrenze ignoriert wird)
Man kann sogar über die selbe API alle Internet Explorer und (File) Explorer auslisten, mit samt ihrer URL/Pfad.

[Michael II]

[QUOTE=venice2;1473613]

Zitat von Michael II:

Ja. Aber ich mache nichts mit der Taskbar

Musst du auch nicht - ist aber meistens Methode der Wahl, wenn es darum geht auf Explorer Neustart zu checken. (ausführlich dokumentiert auf den microsoft Seiten)

[venice2]

Zitat von Michael II:

Zitat von venice2:

Ja. Aber ich mache nichts mit der Taskbar

Musst du auch nicht - ist aber meistens Methode der Wahl, wenn es darum geht auf Explorer Neustart zu checken. (ausführlich dokumentiert auf den microsoft Seiten)

Ich verstehe euren Einwand jetzt nicht.
Was, wie, wo soll ich ändern? bzw. Ist bei mir nicht die korrekte Implementierung.

Ich habe doch ein Event
HWEH := SetWinEventHook

Warum soll ich jetzt noch eine Message Registrieren.
RegisterWindowMessage('TaskbarCreated')

Ich frage deshalb nochmal weil ich Probleme habe der HOOK greift nicht immer.

Delphi-Quellcode:

    if (HWEH <> 0) then
    begin
      UnhookWinEvent(HWEH); // HOOK zerstören wenn erstellt.
      HWEH := 0;
    end;

    HWEH := SetWinEventHook(EVENT_OBJECT_DESTROY, EVENT_OBJECT_DESTROY, 0,
      @WinEventProc, dwProcessId, dwThreadId, WINEVENT_OUTOFCONTEXT); // HOOK erstellen.

Papierkorb registrieren

Delphi-Quellcode:

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

Seltsamer weise incrementiert FHNotifyRBin bin mir nicht sicher ob das so sein soll.
Ich deregistriere doch das Event.
if SHChangeNotifyDeregister(MainHandle) then

trotzdem wird FHNotifyRBin incrementiert