function HookProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM):LResult;
Const
_KeyPressMask = $80000000;
begin
Result := 0;
if iCode < 0 Then begin
Result := CallNextHookEx(IDHook, iCode, wParam, lParam);
Exit;
end;
if ((lParam and _KeyPressMask) = 0) and (wParam = VK_F3) Then Result := 1;
end;
