Hallo,
ist zwar schon ein paar Monate alt, aber ich hatte gerade das gleiche Problem:
Einfach eine
Unit anlegen, die einen String aufnimmt. Dann im Oncreate des MainForms (egal ob Application oder Service) diese
Unit einbinden und den String setzen (als FGlobalAppType := Application.Classname);
Wenn man nun die
Unit in anderen Units einbindet, muß kein Forms oder SvcMgr mit rein. Man prüft den String per Function auf TServiceApplication und gut ist.
@marabu: Die Idee war super ohne das wäre ich darauf nicht gekommen.
Gruß winkel79