勾子用法實例

最新推荐文章于 2023-10-24 21:02:29 发布

ysgs129

最新推荐文章于 2023-10-24 21:02:29 发布

阅读量149

点赞数

分类专栏： delphi语言文章标签： delphi

本文链接：https://blog.youkuaiyun.com/ysgs129/article/details/105730528

版权

delphi语言专栏收录该内容

24 篇文章

订阅专栏

本文介绍了一种使用DLL实现键盘钩子的方法，通过SetWindowsHookEx函数设置全局键盘钩子，监听特定组合键的按下与释放事件。文章详细展示了如何在Delphi中定义钩子过程函数，以及如何安装和卸载键盘钩子。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit hook11;
interface
uses
Windows,
SysUtils,
Classes,
Messages;
type
PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
KBDLLHOOKSTRUCT = record
vkCode: DWORD;
ScanCode: DWORD;
Flags: DWORD;
Time: DWORD;
dwExtraInfo: DWORD;
end;
function InstKeyBoard: Boolean; stdcall;
function UnInstKeyBoard: Boolean; stdcall;
var
hhk: HHOOK;
//{$R *.res}
implementation
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);
//測試當 160（左 shift 鍵）和 162（左 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 160 then if GetKeyState(162) < 0 then y:= 1;
//測試當 161（右 shift 鍵）和 162（左 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 161 then if GetKeyState(162) < 0 then y:= 1;
//測試當 32（空格鍵）和 162（左 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 32 then if GetKeyState(162) < 0 then y:= 1;
//測試當 160（左 shift 鍵）和 163（右 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 160 then if GetKeyState(163) < 0 then y:= 1;
//測試當 161（右 shift 鍵）和 163（右 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 161 then if GetKeyState(163) < 0 then y:= 1;
//測試當 32（空格?）和 163（右 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 32 then if GetKeyState(163) < 0 then y:= 1;
end;
WM_KEYUP, WM_SYSKEYUP:
begin
p:= PKBDLLHOOKSTRUCT(Lparam);
//測試當 160（左 shift 鍵）和 162（左 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 160 then if GetKeyState(162) < 0 then y:= 1;
//測試當 161（右 shift 鍵）和 162（左 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 161 then if GetKeyState(162) < 0 then y:= 1;
//測試當 32（空格?）和 162（左 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 32 then if GetKeyState(162) < 0 then y:= 1;
//測試當 160（左 shift 鍵）和 163（右 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 160 then if GetKeyState(163) < 0 then y:= 1;
//測試當 161（右 shift 鍵）和 163（右 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 161 then if GetKeyState(163) < 0 then y:= 1;
//測試當 32（空格鍵）和 163（右 ctrl 鍵）也按下的同時觸發事件
if p^.vkCode = 32 then if GetKeyState(163) < 0 then y:= 1;
end;
end;
end;
if y = 1 then Result:= 1 else Result:= CallNextHookEx(hHk,nCode,WParam,LParam);
end;
function InstKeyBoard: Boolean; stdcall; export;
begin
if hhk <> 0 then
begin
Result:= False;
Exit;
end;
hhk:= SetWindowsHookEx(13, @HookProc, HINSTANCE, 0);//此處13換成其他信息類型，未發
//現可用的，需注意。
Result:= hhk <> 0;
end;
function UnInstKeyBoard: Boolean; stdcall; export;
begin
if hhk <> 0 then
begin
UnhookWindowshookEx(hhk);
hhk:= 0;
end;
Result:= hhk = 0;
end;
exports
InstKeyBoard,
UnInstKeyBoard;
begin
end.