Eigener Dienst beendet nicht korrekt...

[nahpets]

Hallo,

verschieb mal Deine Methode

Delphi-Quellcode:

procedure TMeinDienst.ServiceShutdown(Sender: TService); 
begin 
  UpdateUserInfo(Username, false); 
  LogFile.LOG(msg0009); 
end;

nach

Delphi-Quellcode:

procedure TMeinDienst.ServiceStop(Sender: TService; var Stopped: Boolean);
begin 
  UpdateUserInfo(Username, false); 
  LogFile.LOG(msg0009); 
  Stopped := True;
end;