delphi 服务操作

unit Service;
    
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);   
              CloseServiceHand