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

05.11.2002, 01:14

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

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;

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

*helldomain* · 05.11.2002, 07:55

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.

*helldomain* · 05.11.2002, 07:58

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.

RaZEr · 05.11.2002, 18:52

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

*helldomain* · 06.11.2002, 23:16

Razer! Spasibo za statju!

11.11.2002, 22:03

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

*helldomain* · 12.11.2002, 05:34

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

05.11.2002, 07:55	# 2
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	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. __________________ Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд.

05.11.2002, 07:58	# 3
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	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. __________________ Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд.

06.11.2002, 23:16	# 5
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	Razer! Spasibo za statju! __________________ Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд.

12.11.2002, 05:34	# 7
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	Sh, spasibo, konechno horosho, no nezabud dat Razer'u reiting. __________________ Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд.

05.11.2002, 01:14	# 1
Sh Guest Сообщения: n/a	Люди, кто сервисы НТвые писал, помогите!!! Есть проблема: нужно написать небольшой сервис, который бы работал себе тихонько и выводил бы что-то на экран в канве (раз в н-цать секунд). Так вывод на экран оказался не проблемой, а вот заставить сервис выполнять ето я не смог. Не ну все выглядело замечательно... сервис устанавливается, даже работает вроде как, а вот заставить его выполнить то что мне надо не получается.... Для меня это дело не освоенное, засим и прошу помощи.... Для полноты: у меня есть следующее + то что по дефолту 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; Кто может помочь, подсказать что-нибудь? Помогите а? А то я аж худеть начал..... :-)

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