Nach Explorer absturz

[venice2]

Ok jetzt verstehe ich was ihr meint.

Habe den SetWinEventHook entfernt.
In WM_CREATE registriere ich jetzt die WindowMessage 'TaskbarCreated'

Delphi-Quellcode:

  case Msg of

    WM_CREATE:
      TaskbarRestart := RegisterWindowMessage('TaskbarCreated');  

    else
      if (Msg = TaskbarRestart) then
      begin
        MainApp.RegisterRecyleBin(WinHandle);
        SendMessage(WinHandle, WM_COMMAND, IDM_Restart, 0);
      end;
  end;
  Result := DefWindowProc(WinHandle, Msg, wP, lP);

Und gut ist.
Benötige dann die Schleife nicht mehr.

@Michael II, @himitsu
Thanks!

[himitsu]

Ich weiß noch nicht seit wann TApplicationEvents existiert (mindestens XE) und seit wann Delphi auch auf dieses Event registriert (mindestens seit es TTrayIcon gibt), aber ich weiß dass Delphi darauf reagiert und ...

Strg+Shift+F

Suchwort: TaskbarCreated
Dateifilter: *.pas;*.dfm;*.dpr;*.dpk;*.inc;*.txt
Verzeichnisse: $(BDS) mit Unterverzeichnissen

Schon findet man

Delphi-Quellcode:

else if Cardinal(Message.Msg) = RM_TaskbarCreated then
begin
  Perform(CM_WININICHANGE, 0, 0);
  Perform(CM_SYSCOLORCHANGE, 0, 0);
  Perform(CM_SYSFONTCHANGED, 0, 0);
  Perform(CM_PARENTCOLORCHANGED, 0, 0);
  Perform(CM_PARENTFONTCHANGED, 0, 0);
  Perform(CM_PARENTBIDIMODECHANGED, 0, 0);
  Perform(CM_PARENTDOUBLEBUFFEREDCHANGED, 0, 0);

...

initialization
  InitProcs;
  RM_TaskBarCreated := RegisterWindowMessage('TaskbarCreated');

und landet letztendlich z.B. bei Application.OnSettingChange oder besser noch bei ApplicationEvents.OnSettingChange .

[Michael II]

Cool venice2. Thema abgeschlossen .

Nur noch eine kurze Frage himitsu... du schreibst:

Zitat von himitsu:

....und landet letztendlich z.B. bei Application.OnSettingChange oder besser noch bei ApplicationEvents.OnSettingChange .

Verstehe ich dich richtig? Du meinst damit, dass nach 'TaskbarCreated' ApplicationEvents.OnSettingChange ausgelöst wird?
Bei meinem Delphi 14.1/Windows 10 nicht. D läuft zwar nach 'TaskbarCreated' bei vcl.forms.TCustomForm.WndProc (also "if Cardinal(Message.Msg) = RM_TaskbarCreated (TRUE)...") durch, aber nicht bei ApplicationEvents.OnSettingChange. Auch im ApplicationEvents.OnMessage kommt 'TaskbarCreated' nicht an.

Was funktioniert: Im ApplicationEvents.OnMessage auf 'TaskbarButtonCreated' checken, also

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);

begin
  if msg.message = rm_TaskbarButtonCreated then
    "tu etwas (zum Beispiel RegisterRecyleBin(..);)"
end;

wobei
rm_TaskbarButtonCreated := RegisterWindowMessage('TaskbarButtonCreate');

[Michael II]

Noch ein Tipp:

Windows registriert diverse Meldungen wie 'TaskbarCreated', 'TaskbarButtonCreated' und man kann auch eigene Meldungen registrieren (RegisterWindowMessage('MeineEigeneMeldung')). Einem Text wird also durch RegisterWindowMessage eine Nummer zugeordnet.

Es gibt auch die Umkehrfunktion: Wenn du in deinem Programm checken willst, ob Windows solche registrierte Nummern/Meldungen M an deine App sendet, dann prüfst du dies mit GetClipboardFormatName(M, ...).

In deinem Fall hättest du explorer.exe neu starten und dann in deiner App prüfen können, welche registrierten Windows Meldungen empfangen werden. Dies hätte dich auf die Spur 'TaskbarCreated' oder wenn du TApplicationEvents.OnMessage ausgewertet hättest auf 'TaskbarButtonCreated' geführt.

[venice2]

Zitat von Michael II:

Noch ein Tipp:

Windows registriert diverse Meldungen wie 'TaskbarCreated', 'TaskbarButtonCreated' und man kann auch eigene Meldungen registrieren (RegisterWindowMessage('MeineEigeneMeldung')). Einem Text wird also durch RegisterWindowMessage eine Nummer zugeordnet.

Es gibt auch die Umkehrfunktion: Wenn du in deinem Programm checken willst, ob Windows solche registrierte Nummern/Meldungen M an deine App sendet, dann prüfst du dies mit GetClipboardFormatName(M, ...).

In deinem Fall hättest du explorer.exe neu starten und dann in deiner App prüfen können, welche registrierten Windows Meldungen empfangen werden. Dies hätte dich auf die Spur 'TaskbarCreated' oder wenn du TApplicationEvents.OnMessage ausgewertet hättest auf 'TaskbarButtonCreated' geführt.

Danke für die Infos.
Mit dem neustarten des Explorers ist so eine Sache denke mal nicht das eine Anwendung den Explorer neustarten sollte das ist eine Sache des Betriebssystem auf etwaige Probleme zu reagieren.

Das mit der RegisterWindowMessage ist für mich vollkommen IO und was wichtig ist funktioniert immer.
Beim setzen des Hook war das leider nicht gegeben.
Nochmals Danke an euch.

Hier der Test OTTB64 Source include

1. Prog starten
2. erstelle imaginäre Text Datei.
3. Lösche diese (Papierkorb nicht löschen)
4. Starte den Windows Explorer neu
5. lösche den Papierkorb
5. Prüfe danach ob sich der Status des Papierkorbs von OTTB64 ändert.

Darum ging es mir.

EDIT:
Nebenbei deine VCL-Lösung würde ich jeden empfehlen der ein Icon zum Tray addiert damit nach einem Absturz des Explorers das Programm weiterhin über das Icon bedienbar bleibt.