如何通過Delphi禁用服務？

Question

我使用一個可以通過Delphi啓動和停止服務的例程，但我也需要能夠禁用它們，這有可能嗎？

Answer 1

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); 

Answer 2

打開與OpenService的服務，然後通過傳遞Service_Disabled作爲dwStartType參數ChangeServiceConfig禁用它。對於其他參數指定空指針或Service_No_Change，因爲您不想更改它們。

Answer 3

這是我用

這只是周圍的一些 Windows API函數一點包裝，我們發現有用 處理NT-服務。它允許你 查詢，啓動，停止，暫停和 本地或遠程系統上啓用/禁用NT-Services。

http://blog.marcduerst.com/post/How-to-use-TServiceManager-to-manage-Windows-services.aspx

，它可以讓你寫的 '好' Delphi代碼;）

procedure DisableService(ServiceName: PChar); 
var SM: TServiceManager; 
begin 
    SM:=TServiceManager.Create; 
    try 
    SM.Connect; 
    SM.OpenServiceConnection(ServiceName); 

    //not working with TServiceManager as is 
    //but its easy to fix, see below   
    SM.DisableService; 


    finally 
    SM.Free; 
    end; 
end; 

的DisableService部分處理不當被寫入，但所有需要的是

procedure TServiceManager.DisableService; 
begin 
    ChangeServiceConfig(ServiceHandle, SERVICE_NO_CHANGE,SERVICE_DISABLED,SERVICE_NO_CHANGE, nil, nil, nil, nil, nil, nil, nil); 
end; 

Answer 4

除了使用以前的方法，如果你需要更多的控制，你可以使用WMI。
隨着Win32_Service class訪問安裝在計算機上的服務的所有信息，你可以訪問方法：啓動，停止，暫停，恢復，查詢，創建，刪除，更改，ChangeStartMode ...

這裏（ Web/SourceForge）您可以找到一組與WMI配合使用的組件（GLibWMI組件庫）;有一個叫做CServiceInfo給你所有的信息和這個類的一些方法。

除了包tere是一些演示;一個被稱爲（ServiceControl）並實現所有方法。

alt text http://img341.imageshack.us/img341/8505/imagen336.png

所有封裝中包含的源。看看它可以用於你的代碼。

問候。

Answer 5

您可以使用JEDI組件庫（JCL）中的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;