Скачать: CL | DM;

service application, Thread   Найти похожие ветки 

← →
AlexA   (2004-09-10 15:57) [0]

Возникла необходимость написать приложение запускающиюся как сервис. Нашел в хелпе "Service threads"
Итак, использую TServis
пробую куски из хелпа:
описываю:

TSparkyThread = class(TThread)

   public
     procedure Execute; override;
 end;

соответственно процедура:

procedure TSparkyThread.Execute;

begin
 while not Terminated do
 begin
   Beep;
   Sleep(500);
 end;
end;

При старте сервиса:

procedure TService1.Service1Start(Sender: TService; var Started: Boolean);

begin
 SparkyThread := TSparkyThread.Create(False);
 Started := True;
end;

Все сервис не запускается!!

Если процедуру
procedure TSparkyThread.Execute;
сделать пустой сервис запускается..
Уважаемые знатоки, в чем грабли?
Спасибо.

---

← →
Digitman ©   (2004-09-10 16:24) [1]

> Все сервис не запускается!!


не верю.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c