Перестаёт работать Hook

[Comer_Jus]

Проблема такая запускаю Hook

HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);

всё работает замечательно
НО после нажатия Alt-Ctrl-Del
обращение к @HookProc уже не происходит

при повторном

HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);

работоспособность восстанавливается

как отследить что Hook умер и его надо перезапустить?

[B_N]

Почему Вы не хотите читать документацию?....
http://msdn.microsoft.com/en-us/libr...83(VS.85).aspx

An application that has installed a JournalRecordProc hook procedure should watch for the VK_CANCEL virtual key code (which is implemented as the CTRL+BREAK key combination on most keyboards). This virtual key code should be interpreted by the application as a signal that the user wishes to stop journal recording. The application should respond by ending the recording sequence and removing the JournalRecordProc hook procedure. Removal is important. It prevents a journaling application from locking up the system by hanging inside a hook procedure.

This role as a signal to stop journal recording means that a CTRL+BREAK key combination cannot itself be recorded. Since the CTRL+C key combination has no such role as a journaling signal, it can be recorded. There are two other key combinations that cannot be recorded: CTRL+ESC and CTRL+ALT+DEL. Those two key combinations cause the system to stop all journaling activities (record or playback), remove all journaling hooks, and post a WM_CANCELJOURNAL message to the journaling application.

[Comer_Jus]

Function TMain.HookProc(Code: Integer; WParam: Word; LParam: Longint): Longint; stdcall;
Var Msg:PEVENTMSG;
Begin
if Code <0 Then Result := CallNextHookEx(FHookHandle, Code, WParam, LParam)
Else
Begin
Result:=0;
Msg :=Pointer(LParam);

If (msg.message=WM_CANCELJOURNAL) then main.Caption:='OP'; //:=SetWindowsHookEx(WH_JOURNALRECORD , @FThunk, HInstance, 0);

If (Msg.Message = WM_LBUTTONDOWN) then //And HookEnable Then
Begin
main.caption:=Inttostr(random(100)) ;
End;
End;
End;

[Comer_Jus]

ой не то щаз исправлю

[Comer_Jus]

Function TMain.HookProc(Code: Integer; WParam: Word; LParam: Longint): Longint; stdcall;
  Var Msg:PEVENTMSG;
  Begin
  if Code <0 Then Result := CallNextHookEx(FHookHandle, Code, WParam, LParam)
  Else
   Begin
     Result:=0;
     Msg   :=Pointer(LParam);

     If (msg.message=WM_CANCELJOURNAL) then HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
   End;
 End;

не спасает по Ctrl/Esc Hook умирает
кто смог победить?