为什么当调用鼠标Hook时,帝国时代会退出?
请教各位:
以下是我的鼠标HOOK的DLL程序,但启动后运行帝国时代-选多人游戏-建立,接着就退出帝国了。不运行鼠标Hook监视却没有问题!?!?!
unit pasMouse;
interface
uses Windows,Messages,SysUtils;
var
Shell_TrayWnd:longint;
hNextHookProc:HHook;
procSaveExit:Pointer;
function KHH(iCode:integer;MywParam:WPARAM;MylParam:LPARAM):LRESULT;stdcall;export;
function EnableMouseHook:Bool;export;
function DisableMouseHook:bool;Export;
implementation
function KHH(iCode:integer;MywParam:WPARAM;MylParam:LPARAM):LRESULT;stdcall;export;
var lpPoint:TPoint;
strClassName,strTrayClassName:String;
SendText: string;//向主程序发送的消息串
SendDataStruct: CopyDataStruct;//消息类型
begin
result:=0;
if iCode<0 then
begin
Result:=CallNextHookEx(hNextHookProc,iCode,MywParam,MylParam);
exit;
end;
end;