钩子函数控制键盘输入

[wangxuelid]

如：
预设Ctrl+B才能输入数据或打开某个界面，其它按键则没有反应（如： windows启动一样，ctrl+alt+del才可起作用，其它则没有反应）

[wangxuelid]

待高手，，先谢谢。

[贝隆]

百度一下，有一堆

[hjkto]

注册一个热键行不

[rogueskilldan]

建议用热键阿。。这样效率会比较高。。

[gyk120]

建议注册热键
http://hi.baidu.com/broland/blog/item/8875c517d559b61e972b43fc.html

[hjkto]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  type 
  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT; 
  KBDLLHOOKSTRUCT = record 
    vkCode: DWORD; 
    ScanCode: DWORD; 
    Flags: DWORD; 
    Time: DWORD; 
    dwExtraInfo: DWORD; 
  end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   Hook: HHOOK;
implementation

{$R *.dfm}
 function HookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
       var
       p: PKBDLLHOOKSTRUCT;
        y: Integer;
begin
  y:= 0;
if nCode = HC_ACTION then
begin
        case WParam of
      WM_KEYDOWN, WM_SYSKEYDOWN:
      begin 
       p:= PKBDLLHOOKSTRUCT(Lparam);
        if (GetKeyState(162) <0) and (p^.vkCode=66)  then
        begin
        y:=1;
         winexec(pchar('notepad.exe'),sw_show);
        end;

      end;
      WM_KEYUP, WM_SYSKEYUP:
      begin
        p:= PKBDLLHOOKSTRUCT(Lparam);
        if (GetKeyState(162) <0) and (p^.vkCode=66) then
        begin
       y:=1;
        end;
      end;
    end;
  end;
if y = 1 then Result:= 1 else Result:= CallNextHookEx(hook,nCode,WParam,LParam);
end;

function SetHook: Boolean; stdcall;

begin
 if hook  <> 0 then
  begin
    Result:= False;
    Exit; 
  end; 
  hook:= SetWindowsHookEx(13, @HookProc, HINSTANCE, 0);
  Result:= hook  <> 0;
end;

function DelHook: Boolean; stdcall;
begin
  if hook  <> 0 then
  begin
    UnhookWindowshookEx(hook);
    hook:= 0;
  end; 
  Result:= hook = 0;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   SetHook;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 DelHook;
end;

end.

键盘低级钩子
d7+sp2，测试通过