2Pascal-新时代的Pascal

 找回密码
 立即注册
搜索
热搜: fastreport
查看: 2305|回复: 9
打印 上一主题 下一主题

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

[复制链接]

5

主题

15

帖子

74

积分

注册会员

Rank: 2

积分
74
跳转到指定楼层
楼主
发表于 2018-9-21 03:58:43 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
京东购书支持本站
[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 可用的啊?。。小弟初来乍到。。。 就是修改指定的服务程序的属性让它出错可以再重启。

回复

使用道具 举报

5

主题

15

帖子

74

积分

注册会员

Rank: 2

积分
74
沙发
 楼主| 发表于 2018-9-21 05:54:05 | 显示全部楼层
京东数码购物支持本站
wang_80919 发表于 2018-9-21 04:41
你原来的垃圾代码,没有缩进。
代码垃圾你自己看就算了。发出来就是你不对了。所以,还得让老子替你加缩进 ...

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

使用道具 举报

5

主题

15

帖子

74

积分

注册会员

Rank: 2

积分
74
板凳
 楼主| 发表于 2018-9-22 00:11:29 | 显示全部楼层
京东购书支持本站
wang_80919 发表于 2018-9-21 07:48
不懂一个中文含义?
不会去百度?
不会查字典?

消消火。。消消火。。。。。都说了是小菜了。。嘿嘿。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|新时代Pascal论坛

GMT+8, 2024-11-1 07:56 , Processed in 0.060695 second(s), 23 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表