Bei ServiceShutdown tut sich nichts (ruft das nicht auch nur das Event auf?).
Hast Recht.
DoStop ist übrigens nur in TService sichtbar.
Habe es eben mal so getestet. Funktioniert bei mir.
Delphi-Quellcode:
unit service;
type
TMeinSRV =
class(TService)
...
public
Procedure StopIt;
implementation
Procedure TMeinSRV.StopIt;
begin
DoStop;
end;
Delphi-Quellcode:
unit egal;
implementation
uses service;
....
service.MeinService.StopIt;