delphi Tservice服务的执行逻辑

假设服务程序为 MyService.exe

CMD指令，跳转至MyService.exe程序路径后。

操作	示例
安装服务	MyService.exe /install
启动服务	net start MyService
停止服务	net stop MyService
卸载服务	MyService.exe /uninstall

 创建执行逻辑

ServiceCreate
ServiceBeforeInstall
ServiceAfterInstall
ServiceDestroy

 

启动执行逻辑

ServiceCreate
ServiceStart
ServiceExecute
其中 ServiceExecute 中需要有循环，否则启动后直接退出

procedure TYQSHService.ServiceExecute(Sender: TService);
begin
  PostLog(llDebug, 'ServiceExecute');
  while not Terminated do
  begin
    Sleep(10);
    PostLog(llDebug, 'ServiceExecute Loop');
    ServiceThread.ProcessRequests(False);
  end;
end;

 

 

停止执行逻辑

ServiceStop
ServiceDestroy

 

删除执行逻辑

ServiceCreate
ServiceBeforeUninstall
ServiceAfterUninstall
ServiceDestroy