中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]如何利用注册表来启动一个服务？

cnds
初级用户

积分 37
发帖 36
注册 2008-12-2
状态离线

『楼主』: [求助]如何利用注册表来启动一个服务？

如何利用注册表来启动一个服务？

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

请教各位了，谢谢。

[ Last edited by cnds on 2010-3-21 at 11:39 ]

2010-3-21 11:37

Hanyeguxing
银牌会员

正在学习中的菜鸟...

积分 1039
发帖 897
注册 2009-3-1
来自在地狱中仰望天堂
状态离线

『第 2 楼』:

//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 ]

批处理之家 http://bbs.bathome.net/forum-5-1.html

2010-3-21 16:07

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 3 楼』:

看来楼主要好好学习Delphi基础了^_^

2010-3-21 17:05

xqx
初级用户

积分 28
发帖 25
注册 2010-8-3
状态离线

『第 4 楼』: 我最服你了

2楼的，我最服你了！
你的帖子总是简单易行！
我要给你加分！

2010-8-15 05:57

lovelymorning
初级用户

积分 131
发帖 72
注册 2008-2-24
状态离线

『第 5 楼』:

delphi 中，不能调用程序么？

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

不要一个死脑筋，delphi不能直接执行cmd命令，你就不会，让cmd去执行？？

2010-8-16 07:25

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: