从Windows服务应用程序注册HotKey

Question

如果我从

RegisterHotKey()

程序调用

ServiceStart

，它将失败并出现以下错误：

ERROR_REQUIRES_INTERACTIVE_WINDOWSTATION

我找不到太多关于此的信息，所以我创建了一个线程，创建了一个窗口（

CreateWindow

）并从这个上下文中调用了

RegisterHotKey()

；但是，它返回相同的错误，从服务应用程序注册热键的正确方法是什么？

这是我的代码：

Function Makewnd(): integer;
Var
  Hwnd: THandle;
  uMsg: TMsg;
Begin
  Hwnd := CreateWindow('STATIC', 'DummyWindow', 0, 0, 0, 100, 100, HWND_MESSAGE, 0, HInstance, Nil);

  Writelog(pchar('CreateWindow HWND->'+inttohex(hwnd,8)));

  If (RegisterHotKey(Hwnd, 7000, MOD_CONTROL or MOD_ALT, VK_F12) = TRUE) Then
    writelog('hotkey set: MOD_CONTROL or MOD_ALT, VK_F12')
  Else begin
    Writelog(PWideChar('Error: '+inttostr(getlasterror())));
  End;

  while (GetMessage(uMsg, Hwnd, 0, 0) = TRUE) do
    case uMsg.message of
      WM_HOTKEY:
      Begin
        Writelog(PWideChar('Hotkey! ID-> ' + inttostr(uMsg.wParam)));
      End;

    end;
    Writelog('GetMessage=false');
    Result := 0;
End;

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service4.Controller(CtrlCode);
end;

function TService4.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService4.ServiceExecute(Sender: TService);
begin
  Writelog('ServiceExecuteing');
  while not Terminated do
  Begin
    ServiceThread.ProcessRequests(TRUE);
  End;
end;

procedure TService4.ServiceStart(Sender: TService; var Started: Boolean);
Var
  TID: DWORD;
  Handle: THandle;
begin
  writelog('ServiceStart');
  Handle := CreateThread(Nil, 0, @makewnd, Nil, 0, TID);
  //not using handle right now
end;

Answer 1

你不能

补充一下 Ken 所说的，当 Vista 中引入 Session 0 隔离时，交互服务被消除了。在此之前，如果在对 CreateService() 的调用中指定了 SERVICE_INTERACTIVE_PROCESS 标志，则服务可以与用户桌面交互（但只能与第一个登录用户的桌面交互）。不再支持该标志，并且服务无法再与任何用户桌面交互。 – 雷米·勒博