SetWindowsHookEx 問題

發文回覆瀏覽次數：1362

推到 Plurk!

推到 Facebook!

缺席

n4chen
一般會員

發表：9
回覆：7
積分：3
註冊：2011-05-12

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-06-23 22:31:41

IP:221.169.xxx.xxx 訂閱

大家好
我想把VB6 低級鍵盤 Hook 的程式碼翻到 Delphi 去

[code delphi]
unit HookCtrl;
interface
uses
windows;
type
KBDLLHOOKSTRUCT = packed record
vkCode:DWORD;
scanCode:DWORD;
flags:DWORD;
time:DWORD;
dwExtraInfo:DWORD;
end;
Function RemoteMyHook():Boolean;
Function LowLevelKeyboardProc(nCode:integer; wParam:WPARAM; lParam:LPARAM):LRESULT;
Function CreateMyHook():Boolean;
implementation
var {Private}
CurrentHook:HHOOK;
Function LowLevelKeyboardProc(nCode:integer; wParam:WPARAM; lParam:LPARAM):LRESULT;
var
kbdllhs:KBDLLHOOKSTRUCT;
begin
If nCode >= 0 Then begin
CopyMemory(kbdllhs, lParam, kbdllhs);
If kbdllhs.flags = 128 Then begin
MessageBox(0, PChar(kbdllhs.vkCode), PChar('vkCode ='), MB_OK Or MB_ICONINFORMATION);
end;
end;
LowLevelKeyboardProc:= CallNextHookEx(CurrentHook, nCode, wParam, lParam);
end;
Function CreateMyHook():Boolean;
begin
CurrentHook:= SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, hInstance, DWORD(0));
If CurrentHook <> 0 Then begin
RESULT:= True;
end
else begin
RESULT:= False;
end;
end;
Function RemoteMyHook():Boolean;
begin
If UnhookWindowsHookEx(CurrentHook) Then begin
RESULT:= True;
end
else begin
RESULT:= FALSE;
end;
end;
end.[/code]
但Delphi 跳出了EAccessViolation 錯誤
請Win32 大師糾正我的程式碼哪裡錯了
拜託大師幫幫我解決這個問題

編輯記錄

n4chen 重新編輯於 2011-06-23 08:37:15，註解無‧
n4chen 重新編輯於 2011-06-23 23:58:54，註解無‧

系統時間：2024-04-19 11:08:01

聯絡我們 | Delphi K.Top討論版

本站聲明

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