为什么当调用鼠标Hook时,帝国时代会退出?

xiaohuilau 2000-08-14 10:48:00
请教各位:
以下是我的鼠标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;
...全文
94 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaohuilau 2000-08-18
  • 打赏
  • 举报
回复
原因我已找到:原来就是 Delphi 4问题。我用Delphi 5 问题就解决了

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧