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!