2Pascal-新时代的Pascal

 找回密码
 立即注册
搜索
热搜: fastreport
查看: 2304|回复: 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 可用的啊?。。小弟初来乍到。。。 就是修改指定的服务程序的属性让它出错可以再重启。

回复

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
83472
沙发
发表于 2018-9-21 04:41:07 | 只看该作者
京东数码购物支持本站
原来的垃圾代码,没有缩进。
代码垃圾你自己看就算了。发出来就是你不对了。所以,还得让老子替你加缩进,否则实在是恶心人。

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

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

(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

5

主题

15

帖子

74

积分

注册会员

Rank: 2

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

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

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
83472
地板
发表于 2018-9-21 07:48:12 | 只看该作者
京东数码购物支持本站
worm 发表于 2018-9-21 05:54
大哥真是热心人,现在搞DELPHI的人好少哟。要查一些资料太少了。。。还不知道 能不能用。还是感谢。
PS: ...

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

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

81558011
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

5

主题

15

帖子

74

积分

注册会员

Rank: 2

积分
74
5#
 楼主| 发表于 2018-9-22 00:11:29 | 只看该作者
京东数码购物支持本站
wang_80919 发表于 2018-9-21 07:48
不懂一个中文含义?
不会去百度?
不会查字典?

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

使用道具 举报

1

主题

43

帖子

1193

积分

金牌会员

Rank: 6Rank: 6

积分
1193
6#
发表于 2018-9-22 06:42:07 | 只看该作者
京东数码购物支持本站
查看一下,谢谢分享!
回复 支持 反对

使用道具 举报

0

主题

6

帖子

28

积分

新手上路

Rank: 1

积分
28
7#
发表于 2018-9-23 01:00:16 | 只看该作者
京东数码购物支持本站
看看,学习下
回复 支持 反对

使用道具 举报

0

主题

24

帖子

133

积分

注册会员

Rank: 2

积分
133
9#
发表于 2018-9-26 08:47:34 | 只看该作者
京东数码购物支持本站
  查看一下,谢谢分享!

Check it out, thanks for sharing!
回复 支持 反对

使用道具 举报

1

主题

52

帖子

2185

积分

金牌会员

Rank: 6Rank: 6

积分
2185
10#
发表于 2018-9-27 01:03:46 | 只看该作者
京东数码购物支持本站
好资源,多谢
回复 支持 反对

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

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