service application, Thread [D6, Win2k]
AlexA © (2004-09-10 15:57:00)
Возникла необходимость написать приложение запускающиюся как
сервис. Нашел в хелпе "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:00) [1]
> Все сервис не запускается!!
не верю.
Наверх 
ЧАТ |
Орешник |
|
