delphi - 出现异常重启服务

Question

我正在开发必须自行重启的服务应用程序。有什么方法可以做到这一点？如果停止，是否可以再次询问系统启动应用程序？我正在使用德尔福 2007。

Answer 1

ChangeServiceConfig2()您的服务可以通过在其AfterInstall事件内部调用 Win32 API 函数，以编程方式为自己配置恢复选项。设置dwInfoLeveltoSERVICE_CONFIG_FAILURE_ACTIONS并设置lpInfoto 指向一条记录，该SERVICE_FAILURE_ACTIONS记录描述了您希望在服务失败时发生的情况。

Answer 2

如果您进入services.msc，您可以为您的服务配置它。您不必在代码中执行此操作。当您打开服务的属性时，请查看“恢复”选项卡。