Delphi-Quellcode:
uses
Windows,
WinSvc,
Winsock2,
Winsock;
const
Port = 454;
type
PArgArray = ^PChar;
var
ServiceStatus: SERVICE_STATUS;
hServiceStatusHandle : SERVICE_STATUS_HANDLE;
Terminated: boolean = false;
........
Na, je später der Abend; Danke, schlanker Code, habe bereits die C Variante (posting zwei) portiert und um zwei Funktionen (DllRegisterServer, DllUnregisterServer) erweitert.
Gruß, Axel