Люди, кто сервисы НТвые писал, помогите!!!
 

Есть проблема: нужно написать небольшой сервис, который бы работал себе тихонько и выводил бы что-то на экран в канве (раз в н-цать секунд). Так вывод на экран оказался не проблемой, а вот заставить сервис выполнять ето я не смог. Не ну все выглядело замечательно... сервис устанавливается, даже работает вроде как, а вот заставить его выполнить то что мне надо не получается.... Для меня это дело не освоенное, засим и прошу помощи....
Для полноты: у меня есть следующее + то что по дефолту

procedure TMyService.ServiceExecute(Sender: TService);
begin
while not terminated do
begin
myService.ServiceThread.ProcessRequests(True);
MyService.ReportStatus;
end;

end;

procedure TMyService.TimerTimer(Sender: TObject);
var
hW:HWND;
hD:HDC;
Canv:TCanvas;
begin
canv:=Tcanvas.Create ;
hW:=getdesktopwindow;
hW:=getWindow(hW, GW_HWNDLAST );
hD:=getDC(hW);
Canv.Handle := hD;
canv.Textout(10,10,'Hello');
canv.Destroy ;
end;

Кто может помочь, подсказать что-нибудь?
Помогите а? А то я аж худеть начал..... :-)

Gi, ne tak eto prosto. Porpobui na servise wrubit interaktiwnij link s desktopom. Budet normalno pahat na nt, no na 2k, xp, dotnet w multi-user mode pahat ne budet. U serwisow defaultom swoi desktop.

Da, ya eto delo w swoe wremya delal tak: bil servis i pod kajdogo zaloginennogo uzwerya gruzilsya maliusenkij agent (cherez HKEY_USRS, Software\Microsoft\Windows\Run ili Startup menu ili to-je samoe w HKEY_LOCAL_MACHINE). Agent konnektilsya s servisom cherez zamaplenuju pamyat i bral s nego wse, chto nado.

Статья про написание служб под NT/2K . Правда на си, но тут дело в принципах а не в языке .

Razer! Spasibo za statju!

Хмм .... Спасибо за статью - на первый взгляд даже интересная почитаю на досуге... (времени нет вооообще, доки сдавать надо). Я вообще хотел поюзать стандартный дельфово\билдерный TService, но если загорюсь попробую чисто сам.
Блин где мое свободное время :(

Sh, spasibo, konechno horosho, no nezabud dat Razer'u reiting.