全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1185
推到 Plurk!
推到 Facebook!

mouse hook求助

尚未結案
KFC
一般會員


發表:43
回覆:73
積分:23
註冊:2003-03-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-05-17 23:13:21 IP:211.156.xxx.xxx 未訂閱
我用这些代码去截取鼠标 var hNextHookProc:HHook; function MouseProc(Code: integer; Msg: WPARAM; MouseHook: LPARAM): LRESULT; stdcall; begin if Code >= 0 then begin if Msg = WM_MBUTTONDOWN then begin ... end; Result := CallNextHookEx(hNextHookProc, Code, Msg, MouseHook); end else Result := CallNextHookEx(hNextHookProc, Code, Msg, MouseHook); end; function EnableMouseHook:BOOL;export; begin Result:=False; hNextHookProc := SetWindowsHookEx(WH_MOUSE, MouseProc, GetModuleHandle(myDLL), 0); Result:=hNextHookProc<>0; end; function DisableMouseHook:BOOL;export; begin if (hNextHookProc<>0) then begin UnHookWindowsHookEx(hNextHookProc); hNextHookProc:=0; end; Result:=(hNextHookProc=0); end; 这段代码在win9x下完全没问题。但在XP就是不行,各位有何高见?谢谢
turboted
版主


發表:95
回覆:754
積分:452
註冊:2002-07-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-05-18 00:00:38 IP:218.166.xxx.xxx 未訂閱
這有一個key&mouse hook 的例子,我試過在xp底下可以正常的執行 也許您可以參考看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29172
KFC
一般會員


發表:43
回覆:73
積分:23
註冊:2003-03-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-05-18 00:07:39 IP:211.156.xxx.xxx 未訂閱
谢谢,我就是参考这个例子写的。如果只要锁住鼠标是可以。但要判断那个键按下,加入这一句后 if Msg = WM_MBUTTONDOWN then 在XP就是不行。
wnhoo
高階會員


發表:75
回覆:443
積分:198
註冊:2003-04-22

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-05-24 08:18:29 IP:61.155.xxx.xxx 未訂閱
鼠标HOOK的使用。 您可以參考看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31026    风花雪月 e梦情缘
------
风花雪月 e梦情缘
系統時間:2024-03-28 19:15:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!