键盘钩子的问题,好久了,还没有能解决,请各位大侠出手
function KeyboardHookHandler(iCode: Integer;
wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall; export;
const
_KeyPressMask = $80000000;
begin

Result := 0;
If iCode < 0 Then
begin
Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);
Exit;
end;
k:=1;
while k <124 do
begin
if ((lParam and _KeyPressMask) = 0) and (wParam = k ) then
begin
SendMessage(HWND_BROADCAST,UnMsg[k],0,0);
end;
if ((GetKeyState(VK_LCONTROL) <0) and (wParam = k)) then
begin
SendMessage(HWND_BROADCAST,UnMsg[k+1000],0,0);//这里的组合键消息每次都发一大堆,如何解决啊
end;
k:=k+1;
end;
end;

问题1:解决以上代码中的问题(以上是一个dll里的代码)
问题2:谁能给我一个dll代码,可以钩住键盘组合键的代码,谢谢了,我只能钩住单击,不能钩住组合键.

[解决办法]
bCtrlKeyDown := Boolean(GetAsyncKeyState(VK_CONTROL) shr ((sizeof(SHORT) * 8) - 1));

bWinKeyDown :=Boolean(GetAsyncKeyState(VK_LWIN) shr ((sizeof(SHORT) * 8) - 1)) or
Boolean(GetAsyncKeyState(VK_RWIN) shr ((sizeof(SHORT) * 8) - 1));

[解决办法]
建议你用记录钩子，那样会比较方便，也比较好用。。
[解决办法]
library KeyBoard;

uses
SysUtils,
Windows,
ShellApi,
Messages,
WinProcs,
Classes;

var
KBHook:HHook;
IsHooked:boolean;

function KeyBoardProc(Code:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
const
_keypressmask=$80000000;
begin
result:=0;
if Code <0 then
begin
CallNextHookEx(KBHook,Code,wParam,lParam);
end;

if ((lparam and _keypressmask)=0) and (GetAsyncKeyState(VK_CONTROL) <0) and (GetAsyncKeyState(VK_MENU) <0) and (wParam=47) then
begin
ShellExecute(0, 'Open ', 'NotePad.exe ',nil,nil,SW_SHOW);
result:=1;
end;

end;

function StartHook:boolean;stdcall;
begin
result:=false;
if IsHooked then exit;
KBHook:=SetWindowsHookEx(WH_KEYBOARD,@KeyBoardProc,hInstance,0);
if KBHook <> 0 then
begin
Result:=true;
IsHooked:=true
end
else
IsHooked:=false;
end;

function RemoveHook:boolean;stdcall;
begin
result:=false;
if (not IsHooked) and (KBHook <> 0) then exit;
UnHookWindowsHookEx(KBHook);
Result:=true;
IsHooked:=false;
end;

exports
StartHook,RemoveHook;

{$R *.res}

begin
end.