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]

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

не верю.

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