SetWindowsHookEx之WH_CALLWNDPROC問題 |
|
缺席
|
|
水中鳥
一般會員   發表：4 回覆：2 積分：1 註冊：2009-03-03 發送簡訊給我 |
請問一下我有一支小程式只要用SetWindowsHookEx就會造成系統崩潰,找了好久都不知道哪邊有錯,煩請那位先進可以指導一下,部分程式碼如下:
[code delphi] function HookProc(nCode:Integer;WParam: WPARAM;LParam:LPARAM):LRESULT;stdcall; label theExit; begin Windows.Beep(1000,50); if nCode < 0 then goto theExit; if (nCode <> HC_ACTION) then goto theExit; case wParam of WM_USER 210: begin if form1 <> nil then begin if form1.Visible = true then Form1.Hide else Form1.Show; end else Form1:=TForm1.Create(Application); end; end; theExit: result := CallNextHookEx(hHk, nCode, wParam, lParam); end; //------------------------------------------------------------------------------ function HookOn(lpHwnd:HWND):Longint;stdcall;export; begin hThread :=GetWindowThreadProcessId(lpHwnd,hmod); if lpHwnd<>0 then hHk :=SetWindowsHookEx(WH_CALLWNDPROC,@HookProc,hInstance,hThread); Result :=hHk end;[/code] |
|
水中鳥
一般會員 發表：4 回覆：2 積分：1 註冊：2009-03-03 發送簡訊給我 |
發表時間：2009-03-04 18:12:49
IP:59.120.xxx.xxx 訂閱
系統時間：2024-05-15 5:29:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |