【導(dǎo)讀】unitServiceMainU;Windows,Messages,SysUtils,Classes,Graphics,Controls,SvcMgr,Dialogs,IdBaseComponent,IdComponent,IdTCPServer,IdFTPServer,Registry,forms,IdUserAccounts,IdThreadMgr,IdThreadMgrPool,IdThreadMgrDefault,IdFTPList;end;ServMain:TServMain;csRegEventLog='SYSTEM\CurrentControlSet\Services\Eventlog\Application';csServiceName='ServMain';usesMainU;(CtrlCode);end;Result:=ServiceController;end;reg:TRegistry;reg:=;:=HKEY_LOCAL_MACHINE;('EventMessageFile',ParamStr(0));End;(csServiceName);End;End;End;procedure(Sender:TService);RegEventLog(true);end;procedure(Sender:TService);RegEventLog(false);end;procedure(Sender:TService;varStarted:Boolean);Started:=true;end;procedure(Sender:TService;varStopped:Boolean);Stopped:=true;end;procedure(Sender:TService);(False);sleep(100);end;end;end;