Delphi 全局钩子锁定鼠标


本文整理自网络,侵删。

 //DLL代码如下:

library MouseHOOK;

uses
Windows, Messages;

var
hNextHookProc: HHook;

function MouseHookProc(iCode: Integer;wParam: WPARAM;lParam: LPARAM): LRESULT; stdcall; export;
begin
If iCode < 0 Then
begin
if wParam = WM_LBUTTONDOWN then
begin
Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);
end
else
Result:=1;
end;
end;


function DisableMouse: BOOL; export;
begin
Result := False;
if hNextHookProc <> 0 then Exit;
hNextHookProc := SetWindowsHookEx(WH_MOUSE,MouseHookProc,HInstance,0);
Result:=False;
end;


function EnableMouse: BOOL; export;
begin
if hNextHookProc <> 0 then
begin
UnhookWindowshookEx(hNextHookProc);
hNextHookProc := 0;
end;
Result := hNextHookProc = 0;
end;

exports
EnableMouse,
DisableMouse;

end.

相关阅读 >>

Delphi android路径 tpath 文件路径,文件管理

Delphi 实现 托动pagecontrol上的标签页

tstringgrid 添加鼠标拖动功能

Delphi dbgrid上设置选择项

Delphi 单击按钮左键弹起菜单

Delphi unix时间转换成Delphi时间

Delphi 如何读取内存中的数据?

Delphi屏蔽alt+tab键代码

Delphi xe6 �c使用android的zlib

Delphi webbroker 制作网站

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...