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以鼠标为中心缩放图片以及拖动(采用区域抠图拉伸的方式)

Delphi中clientdataset的用法小结

Delphi idhttp1 xmlpost

Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕?

Delphi fdquery 验证登录

Delphi winsoft comport for android usb

Delphi代码,直截注入别的进程,之后直截运行在别的进程中的代码

Delphi实现类似嵌入桌面的效果

Delphi 检测程序有没有被dll注入的代码

Delphi idtcp下载文件

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



打赏

取消

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

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

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

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

评论

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