Applikation als NT Service (System Dienst) unter XP starten

[magicshadow]

Also services sind ganz normale Programme, mit einer kleinen besonderheit. Sie haben bestimmte prozeduren. Diese prozediren werden vom Service manager angesprochen, solten diese nicht vorhanden sien gibt der service manager fehler beim starten/beenden oder anderen aktionen aus. Einziges problem, wenn man eine Service-Anwendung erstellt beendet sich diese nach einem normalen ausführen selbstständig wieder. Die stelle an der sich die Anwendung beendet sollte aber auffindbar sein

Ach, was noch funktioniert:
global:
var exec:boolean;
im onStart und onStop des Services einfach
exec:=false;
im oncreate einfach
exec:=true;
und im onClose
while exec do application.processmessages; //es muß die Unit Forms als letzte eingetragen werden!

Dann beendet sich das programm bei einem normalen starten nicht mehr! (funst bei mir recht gut, es belegt jedoch alle freie CPU auslastung.)