Почему моя DLL-программа не работает при установке из службы?

Question

У меня эти функции объявлены в моей DLL. Если я использую их в отдельном приложении, все идет хорошо, но при использовании их в службе я не получаю никакого результата. Нет никакого крючка.

function HookProc(code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; 
begin 
    Result := CallNextHookEx(Code, code, wParam, lParam) 
end; 

procedure StartHook; stdcall; 
begin 
    HookHandle := SetWindowsHookEx(WH_GETMESSAGE, HookProc, hInstance, 0); 
end; 

procedure StopHook; stdcall; 
begin 
    UnhookWindowsHookEx(HookHandle); 
end; 

Проблема только в Vista и выше.

Answer 1

Вы пытаетесь подключить приложение на другом рабочем столе. Документация dwthreadId paramteter из SetWindowsHookEx говорит вам, что вы не можете сделать это:

идентификатор нити, с которым подключаемая процедура должна быть связана. Если этот параметр равен нулю, процедура hook связана со всеми существующими потоками, запущенными на том же рабочем столе, что и вызывающий поток.

Помните, что изоляция сеанса 0 в Vista up означает, что ваши службы запускаются на другом сеансе (и, следовательно, на другом рабочем столе) с любых интерактивных рабочих столов.

Я предполагаю, что есть другие причины, которые остановят эту работу с сеанса 0. Вам понадобится запустить этот код из процесса, который живет на том же рабочем столе, что и процессы, которые вы хотите подключить.