Sh
05.11.2002, 02: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;
Кто может помочь, подсказать что-нибудь?
Помогите а? А то я аж худеть начал..... :-)
Для полноты: у меня есть следующее + то что по дефолту
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;
Кто может помочь, подсказать что-нибудь?
Помогите а? А то я аж худеть начал..... :-)