2Pascal-新时代的Pascal

标题: delphi 让服务启动失败后总是恢复 LetServiceAlwaysReboot [打印本页]

作者: worm 时间: 2018-9-21 03:58
标题: delphi 让服务启动失败后总是恢复 LetServiceAlwaysReboot
[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 时间: 2018-9-21 04:41
你原来的垃圾代码，没有缩进。
代码垃圾你自己看就算了。发出来就是你不对了。所以，还得让老子替你加缩进，否则实在是恶心人。

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

作者: worm 时间: 2018-9-21 05:54

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

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

作者: wang_80919 时间: 2018-9-21 07:48

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

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

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

81558011

作者: worm 时间: 2018-9-22 00:11

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

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

作者: wfymqj 时间: 2018-9-22 06:42
查看一下，谢谢分享！

作者: noners 时间: 2018-9-23 01:00
看看,学习下

作者: 2delphi 时间: 2018-9-23 13:59

作者: ruoyu 时间: 2018-9-26 08:47
查看一下，谢谢分享！

Check it out, thanks for sharing!

作者: bjabc 时间: 2018-9-27 01:03
好资源，多谢

欢迎光临 2Pascal-新时代的Pascal (http://2pascal.com/)