如何通过Delphi禁用服务？
如何通过Delphi禁用服务？
提问于 2010-03-08 21:23:18
我使用了一个可以通过Delphi启动和停止服务的例程，但我还需要能够禁用它们，这是可能的吗？
回答 4
Stack Overflow用户
回答已采纳
发布于 2010-03-09 00:19:28
ShellExecute(0, nil, 'cmd.exe', 'sc config "the service name" start=disabled', nil, SW_HIDE);
ShellExecute(0, nil, 'cmd.exe', 'sc config "the service name" start=auto', nil, SW_HIDE);
ShellExecute(0, nil, 'cmd.exe', 'sc config "the service name" start=demand', nil, SW_HIDE);Stack Overflow用户
发布于 2010-03-09 02:54:09
使用OpenService打开服务，然后通过将Service_Disabled作为ChangeServiceConfig的dwStartType参数传递来禁用它。为其余的参数指定一个空指针或Service_No_Change，因为您对更改它们不感兴趣。
Stack Overflow用户
发布于 2010-03-11 23:50:38
你可以使用JEDI组件库中的JclSvcCtrl.pas文件。我已经写了一个你可以使用的伪例。但是，请注意我并没有对其进行测试。但在这种情况下，它应该工作(省略了错误检查)：
M := TJclSCManager.Create;
M.Refresh(true); //Not sure if true is needed or not (refresh all services)
For i := 0 to M.ServiceCount -1 do
begin
S := M.Services[i]; //TJclNtService
if CompareText(S.ServiceName, 'bla') then
begin
S.Stop;
S.StartType := sstDisabled;
S.Commit;
break;
end;
end;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/2401528
复制相关文章
相似问题
腾讯云开发者
