在 Service 下设置 Key Hook

Question

您好，我有以下代码：

var
  KeyHook: HHOOK;

function KeyHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
type
  PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;
  TKBDLLHOOKSTRUCT = packed record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;
const
  LLKHF_ALTDOWN = $20;
var
  pkbhs: PKBDLLHOOKSTRUCT;
begin
  pkbhs := PKBDLLHOOKSTRUCT(lParam);
  if nCode = HC_ACTION then
  begin
    if (pkbhs^.vkCode = VK_ESCAPE) and WordBool(GetAsyncKeyState(VK_CONTROL) and $8000) then
    begin
      Result := 1;
      Exit;
    end;
  end;
  Result := CallNextHookEx(KeyHook, nCode, wParam, lParam);
end;

initialization
  KeyHook := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyHookProc, 0{HInstance}, 0);
  if KeyHook = 0 then
    RaiseLastOSError;

当我将它作为流程启动时，这种好方法效果很好。

但是当我尝试让它在服务下工作时它不起作用。

不起作用 = 不检测击键。

我做错了什么？

谢谢！

Answer 1

在 Vista 及更高版本中，服务在隔离会话中运行，即会话 0。键盘与位于不同会话中的交互式用户的桌面相关联。因此，您的服务只是与键盘隔离。您将需要您的进程在交互式用户的桌面上运行。

如果您在 XP 上运行，“允许服务与桌面交互”选项可能允许您的挂钩在服务上下文中生效。不过，不建议使用这种方法。