中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 23:51 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » [求助]如何利用注册表来启动一个服务？
可打印版本 　1,196 / 4
第1楼　cnds 发表于 2010-03-21 11:37
初级用户　发帖 36　积分 37
[求助]如何利用注册表来启动一个服务？
如何利用注册表来启动一个服务？

如果用cmd命令来启动一个服务的话，是net start 服务名，
或者sc start 服务名，但是由于delphi中无法直接使用cmd命令，
我就想到利用写注册表的方式来启动服务，于是我就先停止一个服务，
然后导出注册表，再开启这个服务，再导出注册表，然后利用软件观察
注册表发生了什么变化，但是检测不到变化。

请教各位了，谢谢。

[ Last edited by cnds on 2010-3-21 at 11:39 ]
第2楼　Hanyeguxing 发表于 2010-03-21 16:07
银牌会员　发帖 897　积分 1,039　来自 在地狱中仰望天堂
//delphi启动服务
function StartServices(Const SvrName: String): Boolean;
var
a,b:SC_HANDLE;
c:PChar;
begin
Result:=False;

a:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if a <=0 then Exit;

b:=OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);

if b <=0 then Exit;
try
Result:=StartService(b,0,c);
CloseServiceHandle(b);
CloseServiceHandle(a);
except
CloseServiceHandle(b);
CloseServiceHandle(a);
Exit;
end;
end;

[ Last edited by Hanyeguxing on 2010-3-21 at 16:20 ]
第3楼　HAT 发表于 2010-03-21 17:05
版主　发帖 5,017　积分 9,023
看来楼主要好好学习Delphi基础了^_^
第4楼　xqx 发表于 2010-08-15 05:57
初级用户　发帖 25　积分 28
我最服你了
2楼的，我最服你了！
你的帖子总是简单易行！
我要给你加分！
第5楼　lovelymorning 发表于 2010-08-16 07:25
初级用户　发帖 72　积分 131
delphi 中，不能调用程序么？

能调用到cmd，那还有什么cmd命令不能用？？？？

不要一个死脑筋，delphi不能直接执行cmd命令，你就不会，让cmd去执行？？
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023