delphi 让服务启动失败后总是恢复 LetServiceAlwaysReboot

worm

[mw_shl_code=c,true]
BOOL WINAPI LetServiceAlwaysReboot(LPCTSTR ServiceName){
        SC_HANDLE hSCManager = OpenSCManager(NULL, NULL, SC_MANAGER_CONNECT);
        if (hSCManager != NULL){
                SC_HANDLE hService = OpenService(hSCManager, ServiceName, SC_MANAGER_ALL_ACCESS);//值得一提的是需要用SC_MANAGER_ALL_ACCESS
                if (hService != NULL){
                        SERVICE_FAILURE_ACTIONS failact = { 0 };
                        SC_ACTION act[3];
                        act[0].Delay = act[1].Delay = act[2].Delay = 0;
                        act[0].Type = act[1].Type = act[2].Type = SC_ACTION_RESTART;
                        failact.cActions = 3;
                        failact.lpsaActions = act;
                        failact.dwResetPeriod = 0;
                        if (ChangeServiceConfig2(hService, SERVICE_CONFIG_FAILURE_ACTIONS, &failact))
                        {
                                CloseServiceHandle(hService);
                                CloseServiceHandle(hSCManager);
                                return TRUE;
                        }
                        CloseServiceHandle(hService);
                        CloseServiceHandle(hSCManager);
                        return FALSE;
                }
                CloseServiceHandle(hSCManager);
                return FALSE;
        }
        else return FALSE;
}
[/mw_shl_code]
这段代码 有没有高手 可以转成DELPHI XE 可用的啊？。。小弟初来乍到。。。 就是修改指定的服务程序的属性让它出错可以再重启。

wang_80919

你原来的垃圾代码，没有缩进。
代码垃圾你自己看就算了。发出来就是你不对了。所以，还得让老子替你加缩进，否则实在是恶心人。

虽然暂时用不上，但是，先保留一份。

游客，如果您要查看本帖隐藏内容请回复

worm

wang_80919 发表于 2018-9-21 04:41
你原来的垃圾代码，没有缩进。
代码垃圾你自己看就算了。发出来就是你不对了。所以，还得让老子替你加缩进 ...

大哥真是热心人，现在搞DELPHI的人好少哟。要查一些资料太少了。。。还不知道 能不能用。还是感谢。
PS： 我还不知道什么叫缩进。能不能指点一下。嘿嘿。

wang_80919

worm 发表于 2018-9-21 05:54
大哥真是热心人，现在搞DELPHI的人好少哟。要查一些资料太少了。。。还不知道 能不能用。还是感谢。
PS： ...

不懂一个中文含义？
不会去百度？
不会查字典？

不懂“缩进” ，这是人能说出来的话吗？

81558011

worm

wang_80919 发表于 2018-9-21 07:48
不懂一个中文含义？
不会去百度？
不会查字典？

消消火。。消消火。。。。。都说了是小菜了。。嘿嘿。

wfymqj

查看一下，谢谢分享！

noners

看看,学习下

2delphi

ruoyu

  查看一下，谢谢分享！

Check it out, thanks for sharing!

bjabc

好资源，多谢