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

最新推荐文章于 2022-03-04 22:02:12 发布

trassion

最新推荐文章于 2022-03-04 22:02:12 发布

阅读量3.4k

点赞数 1

分类专栏： delphi 文章标签： delphi 服务器 service

本文链接：https://blog.csdn.net/Trassion/article/details/9699227

版权

本文介绍了如何使用Delphi来管理Windows服务，包括启动、停止服务，创建新的服务，以及查询服务的状态。提供的关键代码涵盖StartServices、StopServices、QueryServiceStatu和CreateServices等函数，方便开发者集成到自己的应用程序中。

摘要由CSDN通过智能技术生成

本文主要讲解了如何使用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);