delphi 服务操作

2017-04-28 20:07:27来源:CSDN作者:zisongjia人点击

[delphi] view plain copy print?
  1. unit Service;  
  2.       
  3. interface     
  4.   uses Windows,Messages,SysUtils,Winsvc,Dialogs;  
  5.       
  6.   function  StartServices(Const  SvrName:String):Boolean;  
  7.   function  StopServices(Const  SvrName:String):Boolean;  
  8.   function  QueryServiceStatu(Const SvrName:   String):String;  
  9.   function  CreateServices(Const SvrName,FilePath:String):Boolean;     
  10.   function  DeleteServices(Const SvrName: String):Boolean;     
  11.       
  12.   implementation    
  13.       
  14.   //开启服务     
  15.   function StartServices(Const   SvrName:   String):   Boolean;  
  16.   var     
  17.       a,b:SC_HANDLE;     
  18.         c:PChar;     
  19.   begin     
  20.         Result:=False;     
  21.       
  22.         a:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);     
  23.       
  24.         if a <=0 then  Exit;     
  25.       
  26.         b:=OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);     
  27.       
  28.         if b <=0  then  Exit;     
  29.             try     
  30.               Result:=StartService(b,0,c);     
  31.               CloseServiceHandle(b);     
  32.               CloseServiceHandle(a);     
  33.         except     
  34.               CloseServiceHandle(b);     
  35.               CloseServiceHandle(a);     
  36.               Exit;     
  37.         end;     
  38.   end;     
  39.       
  40.       
  41.   //停止服务     
  42.   function   StopServices(Const   SvrName:   String):   Boolean;  
  43.   var  
  44.         a,b:   SC_HANDLE;     
  45.         d:   TServiceStatus;     
  46.   begin     
  47.         Result := False;     
  48.       
  49.         a :=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);     
  50.       
  51.         if a <=0 then Exit;     
  52.       
  53.         b:=OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);     
  54.       
  55.         if b <=0  then  Exit;     
  56.             try     
  57.               Result:=ControlService(b,SERVICE_CONTROL_STOP,d);     
  58.                CloseServiceHandle(a);     
  59.               CloseServiceHandle(b);     
  60.         except     
  61.               CloseServiceHandle(a);     
  62.               CloseServiceHandle(b);     
  63.               Exit;     
  64.         end;     
  65.   end;     
  66.       
  67.       
  68.   //查询当前服务的状态     
  69.   function  QueryServiceStatu(Const   SvrName:   String):   String;     
  70.   var     
  71.         a,b:   SC_HANDLE;     
  72.         d:   TServiceStatus;     
  73.   begin     
  74.         Result := '未安装';     
  75.       
  76.         a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);     
  77.       
  78.         if a <=0 then  Exit;     
  79.       
  80.         b := OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);     
  81.       
  82.         if  b  <= 0  then  Exit;     
  83.             try     
  84.               QueryServiceStatus(b,d);     
  85.                      if   d.dwCurrentState     =   SERVICE_RUNNING   then               
  86.                     Result   :=   '启动'       //Run     
  87.               else   if   d.dwCurrentState     =   SERVICE_RUNNING   then     
  88.                     Result   :=   'Wait'       //Runing     
  89.               else   if   d.dwCurrentState     =   SERVICE_START_PENDING then     
  90.                     Result   :=   'Wait'       //Pause     
  91.               else   if   d.dwCurrentState     =   SERVICE_STOP_PENDING     then     
  92.                     Result   :=   '停止'       //Pause     
  93.               else   if   d.dwCurrentState     =   SERVICE_PAUSED   then     
  94.                     Result   :=   '暂停'       //Pause     
  95.               else   if   d.dwCurrentState     =   SERVICE_STOPPED   then     
  96.                     Result   :=   '停止'     //Stop     
  97.               else   if   d.dwCurrentState     =   SERVICE_CONTINUE_PENDING     then     
  98.                     Result   :=   'Wait'       //Pause     
  99.               else   if   d.dwCurrentState     =   SERVICE_PAUSE_PENDING   then     
  100.                     Result   :=   'Wait';       //Pause     
  101.       
  102.               CloseServiceHandle(a);     
  103.               CloseServiceHandle(b);     
  104.         except     
  105.               CloseServiceHandle(a);     
  106.               CloseServiceHandle(b);     
  107.               Exit;     
  108.         end;     
  109.   end;     
  110.       
  111.       
  112.   {建立服务}     
  113.   function  CreateServices(Const SvrName,FilePath:   String):   Boolean;     
  114.   var     
  115.         a,b:SC_HANDLE;     
  116.   begin     
  117.         Result:=False;     
  118.             if  FilePath   =''   then   Exit;     
  119.       
  120.         a   :=   OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);     
  121.       
  122.         if   a   <=   0   then   Exit;     
  123.         try     
  124.               b   :=   CreateService(a,PChar(SvrName),     
  125.                PChar(SvrName),     
  126.                SERVICE_ALL_ACCESS,     
  127.                SERVICE_INTERACTIVE_PROCESS   or   SERVICE_WIN32_OWN_PROCESS,     
  128.                SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,     
  129.                PChar(FilePath),nil,nil,nil,nil,nil);     
  130.                   if   b   <=   0   then   begin     
  131.                     ShowMessage(   SysErrorMessage(   GetlastError   ));     
  132.                     Exit;     
  133.               end;     
  134.                   CloseServiceHandle(a);     
  135.               CloseServiceHandle(b);     
  136.                   
  137.               Result   :=   True;     
  138.         except     
  139.               CloseServiceHandle(a);     
  140.               CloseServiceHandle(b);     
  141.               Exit;     
  142.         end;     
  143.   end;     
  144.       
  145.       
  146.   {卸载服务}     
  147.   function   DeleteServices(Const   SvrName:   String):   Boolean;     
  148.   var     
  149.         a,b:SC_HANDLE;     
  150.   begin     
  151.         Result:=False;     
  152.             a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);     
  153.             if a <= 0 then  Exit;     
  154.             b :=OpenService(a,PChar(SvrName),STANDARD_RIGHTS_REQUIRED);     
  155.             if b <= 0 then Exit;     
  156.             try     
  157.               Result := DeleteService(b);     
  158.       
  159.               if not Result then     
  160.                     ShowMessage(SysErrorMessage(GetlastError));     
  161.                CloseServiceHandle(b);     
  162.               CloseServiceHandle(a);     
  163.             except     
  164.               CloseServiceHandle(b);     
  165.               CloseServiceHandle(a);     
  166.               Exit;     
  167.         end;     
  168.   end;     
  169.   end.  
  170. 调用方法:  
  171.    {启动服务}  
  172.        StartServices(服务名);  
  173.    {停止服务}  
  174.        StopServices(服务名);  
  175.    {新建服务}  
  176.        CreateServices(服务名,exe文件路径);  
  177.    {删除服务}  
  178.          DeleteServices(服务名);  
  179.    {获取服务状态}  
  180.          string:=QueryServiceStatu(服务名); 

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台