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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |