worm 发表于 2018-9-21 03:58:43

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


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;
                        act.Delay = act.Delay = act.Delay = 0;
                        act.Type = act.Type = act.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;
}

这段代码 有没有高手 可以转成DELPHI XE 可用的啊？。。小弟初来乍到。。。 就是修改指定的服务程序的属性让它出错可以再重启。

wang_80919 发表于 2018-9-21 04:41:07

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

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

**** Hidden Message *****

worm 发表于 2018-9-21 05:54:05

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

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

wang_80919 发表于 2018-9-21 07:48:12

worm 发表于 2018-9-21 05:54
大哥真是热心人，现在搞DELPHI的人好少哟。要查一些资料太少了。。。还不知道 能不能用。还是感谢。
PS： ...
不懂一个中文含义？
不会去百度？
不会查字典？

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

81558011

worm 发表于 2018-9-22 00:11:29

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


消消火。。消消火。。。。。都说了是小菜了。。嘿嘿。:'(

wfymqj 发表于 2018-9-22 06:42:07

查看一下，谢谢分享！

noners 发表于 2018-9-23 01:00:16

看看,学习下

2delphi 发表于 2018-9-23 13:59:39

:victory::victory::victory::victory:

ruoyu 发表于 2018-9-26 08:47:34

查看一下，谢谢分享！

Check it out, thanks for sharing!

bjabc 发表于 2018-9-27 01:03:46

好资源，多谢
页: [1] 2
查看完整版本: delphi 让服务启动失败后总是恢复 LetServiceAlwaysReboot