扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
在本页阅读全文(共9页)
procedure SetupHook(fSet:boolean);stdcall;export;
begin
if fSet then
begin
if hkMouseHook <> 0 then Exit;
hkMouseHook := SetWindowsHookEx(WH_MOUSE,@CXX_MouseHookProc,hInstance,0);
//if hkMouseHook <> 0 then
// MessageBox(0,'鼠标挂钩安装成功！！！','挂钩提示',MB_ICONINFORMATION or MB_OK)
//else
// MessageBox(0,'鼠标挂钩安装失败！','挂钩提示',MB_ICONWARNING or MB_OK);
end
else
begin
if hkMouseHook <> 0 then
begin
UnHookWindowsHookEx(hkMouseHook);
hkMouseHook := 0;
//if hkMouseHook = 0 then
// MessageBox(0,'鼠标挂钩撤消成功！！！','挂钩提示',MB_ICONINFORMATION or MB_OK)
//else
// MessageBox(0,'鼠标挂钩撤消失败！','挂钩提示',MB_ICONWARNING or MB_OK);
end;
end;
end;
procedure DllEntryProc(ul_reason_for_call:DWORD);
begin
{
if ul_reason_for_call = DLL_PROCESS_ATTACH then
begin
MessageBox(0,'DLL_PROCESS_ATTACH','MouseDll Hint',MB_OK or MB_ICONINFORMATION);
//uCXXMsg := RegisterWindowMessage(SELF_MESSAGE_NAME);
end
else if ul_reason_for_call = DLL_PROCESS_DETACH then
begin
MessageBox(0,'DLL_PROCESS_DETACH','MouseDll Hint',MB_OK or MB_ICONINFORMATION);
end;
}
end;
procedure AutoUnInstallHook();
begin
if hkMouseHook <> 0 then
SetupHook(False);
ExitProc := ProcSafelyExit;
end;
end.
如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。
京公网安备 11010802021500号