Текущий архив: 2004.09.26;
Скачать: 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 вся ветка
Текущий архив: 2004.09.26;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.136 c
