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 动态注册卸载ocx

Delphi 利用thttpclient实现http异步下载

Delphi 计算l两个日期的时间间隔月数,月数差

Delphi int64:是Delphi中最大的整数,64位有符号整数

Delphi删除文件

Delphi 获取dll文件的函数列表

Delphi从路径取得文件名的简易方法

download 和 http downloader 源码

Delphi判断文件大小

Delphi application.processmessage作用

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



打赏

取消

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

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

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

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

评论

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