1
[编辑]好的家伙,谢谢你的答案,这就是我需要知道的!Windows服务应用程序的RegisterHotKey? [解决] - 你不能
如果我从ServiceStart过程调用RegisterHotKey(),它将失败,并返回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;
你不能,因为服务不与用户桌面交互;他们无法获得按键。错误值清楚地表明了这一点,所以我不确定你会期望我们提供什么。 'ERROR_REQUIRES_INTERACTIVE_WINDOWSTATION'似乎对我来说很容易理解。 –
要添加到Ken所说的内容,[Interactive Services](https://msdn.microsoft.com/en-us/library/windows/desktop/ms683502.aspx)在[Session 0 Isolation](https:// msdn.microsoft.com/en-us/library/windows/hardware/dn653293.aspx)在Vista中引入。在此之前,如果在调用CreateService()时指定了SERVICE_INTERACTIVE_PROCESS标志,那么服务*可以与用户桌面进行交互(但只有第一个用户的桌面才能登录)。该标志不再受支持,并且服务不能再与任何用户桌面交互。 –
谢谢,这就是我需要知道的一切! – cracksman