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

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

请教各位了，谢谢。

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

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

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

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

delphi 中，不能调用程序么？

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

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