|
Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
AW: Dienst stop nicht
15. Jun 2010, 10:34
Wenn ich das so machen geht das aber auch nicht
Delphi-Quellcode:
procedure Tkas_service.ServiceExecute(Sender: TService);
begin
KAS_Server1.ShowStatus('Service Run');
//KAS_Server1.DoRun;
while Not Terminated do
Begin
sleep(10);
End;
end;
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|