Habe noch ne info vergessen
Der "beep", letzte Zeile in Methode "ServiceShutdown" ist nicht zu hören. Es scheint diese Methode wird überhaupt nicht aufgerufen. (Sie ist im
DFM-File Deklariert).
code
DFM-File :
Delphi-Quellcode:
object Service1: TService1
OldCreateOrder = False
DisplayName = 'Service1'
Interactive = False
OnExecute = ServiceExecute
OnShutdown = ServiceShutdown
OnStop = ServiceStop
Left = 300
Top = 199
Height = 540
Width = 783
end