Здравствуйте. Работаю в Delphi и юзаю компонент для сервиса который называется TService. Хочу при старте сервиса поменять Desktop у сервиса на InputDesktop. Делаю это так Код (Text): hDesktop:= OpenInputDesktop(0, false, GENERIC_ALL); if hDesktop = 0 then begin MessageBox(0, 'Error', 'Message', MB_OK or MB_SERVICE_NOTIFICATION); end; if not SetThreadDesktop(hDesktop) then begin MessageBox(0, 'Error', 'Message', MB_OK or MB_SERVICE_NOTIFICATION); end; Но почемуто этот код выполняет только в методе OnExecute у TService. Подскажите пожалуйста в чем тут дело?