怎样设置一个钩子函数,处理系统的键盘事件:使ctrl+N组合键无效???????

Question

可以给出代码吗?
对高手来讲简单,对菜鸟来讲却是如此复杂!!!

Answer 1

procedure TFrm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key = ord('N')) and (ssCtrl in Shift)) then
  begin
    key := 0;
  end;
end;

Answer 2

我是说windows内核系统的处理消息的函数,就是要SetWindowsHookEx的
怎么做啊?

Answer 3

var
    KeyHook: THandle;function KeyProc(nCode: Integer; wParam:integer; lParam: Longint):longint;stdcall;
begin
        result:=CallNextHookEx(KeyHook,nCode,wParam,lParam);
end; procedure TMainForm.FormCreate(Sender: TObject);
begin
        KeyHook:=0;
        KeyHook:=SetWindowsHookEx(WH_KeyBoard,KeyProc,0,GetCurrentThreadId());
end;现在我想做的是:判断是否按下了键盘的ctrl+N组合,如果是,怎样禁止掉他?