有点类似于DOS下的中断程序,钩子函数可以监控系统某一类的事件,像键盘和鼠标。
在钩子函数里可以填写自己的代码。可以用以下几个函数来安装、卸载钩子:SetWindowsHookEx、CallNextHookEx、UnhookWindowsHookEx 。具体的可看Win32帮助。
(Delphi中带了)
在钩子函数里可以填写自己的代码。可以用以下几个函数来安装、卸载钩子:SetWindowsHookEx、CallNextHookEx、UnhookWindowsHookEx 。具体的可看Win32帮助。
(Delphi中带了)
我可以给各例子给你,加上以上yzb的理论,你应该搞定了吧
(以后不好再说这没人气了!,给点信心吗!)以下是一个按键地勾子:
Intercepting The TAB and ENTER Keys{the prototype for the new keyboard hook function}
function KeyboardHook(nCode: Integer; wParam: WPARAM;
lParam: LPARAM): LResult; stdcall;var
Form1: TForm1;
WinHook: HHOOK; // a handle to the keyboard hook functionimplementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin {install the keyboard hook function into the keyboard hook chain}
WinHook:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, 0, GetCurrentThreadID);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
{remove the keyboard hook function from the keyboard hook chain}
UnhookWindowsHookEx(WinHook);
end;function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;begin
{if we can process the hook information...}
if (nCode>-1) then
{...was the TAB key pressed?}
if (wParam=VK_TAB) then
begin
{if so, output a beep sound}
MessageBeep(0); {indicate that the message was processed}
Result := 1;
end
else
{...was the RETURN key pressed?} if (wParam=VK_RETURN) then
begin
{if so, and if the key is on the up stroke, cause
the focus to move to the next control}
if ((lParam shr 31)=1) then
Form1.Perform(WM_NEXTDLGCTL, 0, 0); {indicate that the message was processed}
Result := 1;
end
else
{otherwise, indicate that the message was not processed.} Result := 0
else
{we must pass the hook information to the next hook in the chain}
Result := CallNextHookEx(WinHook, nCode, wParam, lParam);
end;满意吗?分可别忘了!