level 1
狠打稳抓C1
楼主
下面是一段键盘钩子的代码,我从网上找的
function Tform1.KbHook(code: Integer; wparam: Word;
lparam: Integer): LongInt;
begin
If code < 0 Then
KbHook := CallNextHookEx( oldHook, code, wparam, lparam )
Else
KbHook := 1;
end;
function TForm1.DisableKeyboard: Boolean; //锁上键盘
begin
oldHook := SetWindowsHookEx( WH_KEYBOARD, @TForm1.KbHook, Hinstance, 0 );
DisableKeyboard := oldHook <> 0;
end;
但是怎么在主函数调用
KbHook(code: Integer; wparam: Word; lparam: Integer)
这4个参数该写些什么,可以让这个钩子生效?大神,救救我!
2014年09月25日 07点09分
1
function Tform1.KbHook(code: Integer; wparam: Word;
lparam: Integer): LongInt;
begin
If code < 0 Then
KbHook := CallNextHookEx( oldHook, code, wparam, lparam )
Else
KbHook := 1;
end;
function TForm1.DisableKeyboard: Boolean; //锁上键盘
begin
oldHook := SetWindowsHookEx( WH_KEYBOARD, @TForm1.KbHook, Hinstance, 0 );
DisableKeyboard := oldHook <> 0;
end;
但是怎么在主函数调用
KbHook(code: Integer; wparam: Word; lparam: Integer)
这4个参数该写些什么,可以让这个钩子生效?大神,救救我!
