blocks|key|1309633|text|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);|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1309634|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>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);
</code></pre>

blocks|key|1309670|text|使用OpenService打开服务，然后通过将Service_Disabled作为ChangeServiceConfig的dwStartType参数传递来禁用它。为其余的参数指定一个空指针或Service_No_Change，因为您对更改它们不感兴趣。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1309671|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/ms684330.aspx|1|http://msdn.microsoft.com/en-us/library/ms681987.aspx^0|2|B|N|G|15|J|1P|B|2N|H|2|B|0|15|J|1|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]|$9|S|A|T|B|C]|$9|U|A|V|B|C]|$9|W|A|X|B|C]|$9|Y|A|Z|B|C]]|D|@$9|10|A|11|1|12]|$9|13|A|14|1|15]]|E|$]]|$1|F|3|-4|5|6|7|16|8|@]|D|@]|E|$]]]|G|$H|$5|I|J|K|E|$L|M]]|N|$5|I|J|K|E|$L|O]]]]

Open the service with <a href="http://msdn.microsoft.com/en-us/library/ms684330.aspx" rel="noreferrer"><code>OpenService</code></a>, and then disable it by passing <code>Service_Disabled</code> as the <code>dwStartType</code> parameter for <a href="http://msdn.microsoft.com/en-us/library/ms681987.aspx" rel="noreferrer"><code>ChangeServiceConfig</code></a>. Specify a null pointer or <code>Service_No_Change</code> for the rest of the parameters since you're not interested in changing them.

blocks|key|1309701|text|你可以使用JEDI组件库中的JclSvcCtrl.pas文件。我已经写了一个你可以使用的伪例。但是，请注意我并没有对其进行测试。但在这种情况下，它应该工作(省略了错误检查)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1309702|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;|code-block|syntax|javascript|1309703|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You can use file JclSvcCtrl.pas from JEDI Components Library (JCL).
I have written a pseudo example that you could use. However, be aware that I didn't test it. But in this way it should work (error checks omitted):

<pre><code>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;
</code></pre>

blocks|key|1309752|text|另一种选择是使用DelphiVault+ServiceManager+unit+(另请参阅this+answer)：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1309753|var+
++++SM:+TServiceManager;
++++Svc:+TServiceInfo;
begin
++++SM+:=+TServiceManager.Create;
++++try
++++++++SM.Active+:=+True;+
++++++++Svc+:=+SM.ServiceByName['MyServiceName'];
++++++++Svc.SetStartType(ssDisabled);
++++finally
++++++++SM.Free;
++++end;
end;++|code-block|syntax|javascript|1309754|entityMap|0|LINK|mutability|MUTABLE|url|https://github.com/carmas123/delphi-vault/blob/master/Source/DelphiVault.Windows.ServiceManager.pas|1|https://stackoverflow.com/a/5917648/2306907^0|8|V|0|19|B|1|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]|$A|W|B|X|1|Y]]|C|$]]|$1|D|3|E|5|F|7|Z|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|10|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]|Q|$5|L|M|N|C|$O|R]]]]

An other option is to use the <a href="https://github.com/carmas123/delphi-vault/blob/master/Source/DelphiVault.Windows.ServiceManager.pas" rel="nofollow noreferrer">DelphiVault ServiceManager unit</a> (see also <a href="https://stackoverflow.com/a/5917648/2306907">this answer</a>):
<pre><code>var 
 SM: TServiceManager;
 Svc: TServiceInfo;
begin
 SM := TServiceManager.Create;
 try
 SM.Active := True; 
 Svc := SM.ServiceByName['MyServiceName'];
 Svc.SetStartType(ssDisabled);
 finally
 SM.Free;
 end;
end; 
</code></pre>

I use a routine that can start and stop services via Delphi but I also need to be able to disable them, is it possible?

How can I disable a service via Delphi?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

我使用了一个可以通过Delphi启动和停止服务的例程，但我还需要能够禁用它们，这是可能的吗？

问如何通过Delphi禁用服务？
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何通过Delphi禁用服务？EN