标题: [求助]如何利用注册表来启动一个服务？ [打印本页]

---

作者: cnds     时间: 2010-3-21 11:37    标题: [求助]如何利用注册表来启动一个服务？

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

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

请教各位了，谢谢。

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

---

作者: Hanyeguxing     时间: 2010-3-21 16:07
//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 ]

---

作者: HAT     时间: 2010-3-21 17:05
看来楼主要好好学习Delphi基础了^_^

---

作者: xqx     时间: 2010-8-15 05:57    标题: 我最服你了

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

---

作者: lovelymorning     时间: 2010-8-16 07:25
delphi 中，不能调用程序么？

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

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