delphi编程启动服务停止服务新建服务的方法

本文主要讲解了如何使用delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法，以下是关键代码：

unit Servicescontrol;
   
interface  
  uses Windows,Messages,SysUtils,Winsvc,Dialogs;
   
  function  StartServices(Const  SvrName:String):Boolean;
  function  StopServices(Const  SvrName:String):Boolean;
  function  QueryServiceStatu(Const SvrName:   String):String;
  function  CreateServices(Const SvrName,FilePath:String):Boolean;  
  function  DeleteServices(Const SvrName: String):Boolean;  
   
  implementation  

   
  //开启服务  
  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);