Service soll sich selber stoppen

[jensw_2000]

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;