本文整理自网络，侵删。
//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 获取窗口矩形的四种方法: getclientrect、clientrect、getwindowrect、boundsrect
Delphi 程序运行提示 “database login”对话框，让输入adoconnection1 的username和password
Delphi url protocol 让浏览器运行本地的exe程序
Delphi中从windows资源管理器中拖放图片到timage控件上
Delphi中exit,abort,break,continue的区别介绍
更多相关阅读请进入《Delphi》频道 >>
