屏蔽F1的練習（hook）

//-----------勾子判斷按鍵方法-------

function LowLevelKeyboardProc(Wnode: Integer; Wparam: WPARAM; Lparam: LPARAM):LRESULT;stdcall;
type
  KeyHook = record
    VKcode: DWORD;
    ScanCode: DWord;
    Flags: DWord;
    Time: DWord;
    dwExtraInfo: DWord;
  end;
var
  p : ^keyhook;
begin
  Result := 0;
  p := Pointer(Lparam);
  if Wnode = HC_ACTION then
  begin
    case Wparam of
      WM_KEYDOWN, WM_KEYUP, WM_SYSKEYUP, WM_SYSKEYDOWN:
        begin
          if p.VKcode = VK_F1 then  //這時(shí)只是判斷按下是不是F1鍵
            Result := 1
          else if p.VKcode = VK_ESCAPE  then
            Result := 1;
        end;
    end;
  end
  else if Wnode <> 0  then
  begin
    Result := CallNextHookEx(0,Wnode, Wparam, Lparam );
  end;

end;

//----------注冊勾子
procedure TForm2.registerTO;
const
  WM_Key_F1 = 13;
begin
  WM_sock := 0;
  WM_sock := RegisterWindowMessage('WM_Sock');
  hhandle :=  Handle;
  hook := SetWindowsHookEx(WM_Key_F1, LowLevelKeyboardProc, HInstance, 0);
end;
//-------------刪除勾子---------
procedure TForm2.DeleteRegister;
begin
  UnhookWindowsHookEx(hook);
end;