Ich hab einen Fehler entdeckt:
Bei ApplicationEvents1Message:
JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc,
0 hInstance, 0);
Sonst geht der Hook nach Strg-Alt-Entf nicht mehr...
Hier der gesamte Code:
Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
Handled := False;
if (Msg.message = WM_CANCELJOURNAL) and FHookStarted then
//falsch:
//JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, 0, 0);
//richtig:
JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, 0);
end;