• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

Delphi启动/停止Windows服务,启动类型修改为"自动"

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
  1. unit U_StartServices;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, WinSVC, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     btn_StartServices: TButton;
  12.     btn_StopServices: TButton;
  14.     procedure btn_StartServicesClick(Sender: TObject);
  15.     procedure btn_StopServicesClick(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  22. var
  23.   Form1: TForm1;
  24. function StartServices(const SvrName: string): Boolean;
  25. implementation
  28. {$R *.dfm}
  30. //开启服务
  32. function StartServices(const SvrName: string): Boolean;
  33. var
  34.   SCH, SvcSCH: SC_HANDLE;
  35.   arg: PChar;
  36.   dwStartType: DWORD;
  37. begin
  38.   Result := False;
  39.   SCH := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  40.   if SCH <= 0 then Exit;
  41.   SvcSCH := OpenService(SCH, PChar(SvrName), SERVICE_ALL_ACCESS);
  43.   if (ChangeServiceConfig(
  44.     SvcSCH, //   handle   of   service
  45.     SERVICE_NO_CHANGE, //SERVICE_NO_CHANGE,   //   service   type:   no   change
  46.     SERVICE_AUTO_START, //   change   service   start   type
  47.     SERVICE_NO_CHANGE, //   error   control:   no   change
  48.     nil, //   binary   path:   no   change
  49.     nil, //   load   order   group:   no   change
  50.     nil, //   tag   ID:   no   change
  51.     nil, //   dependencies:   no   change
  52.     nil, //   account   name:   no   change
  53.     nil, //   password:   no   change
  54.     nil)) then
  55.     showmessage('Auto Start OK')
  56.   else
  57.     showmessage('Auto Start Error');
  60.     if SvcSCH <= 0 then Exit;
  61.   try
  62.     Result := StartService(SvcSCH, 0, arg);
  63.     CloseServiceHandle(SvcSCH);
  64.     CloseServiceHandle(SCH);
  65.   except
  66.     CloseServiceHandle(SvcSCH);
  67.     CloseServiceHandle(SCH);
  68.     Exit;
  69.   end;
  74. end;
  76. //停止服务
  78. function StopServices(const SvrName: string): Boolean;
  79. var
  80.   SCH, SvcSCH: SC_HANDLE;
  81.   SS: TServiceStatus;
  82. begin
  83.   Result := False;
  84.   SCH := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  85.   if SCH <= 0 then Exit;
  86.   SvcSCH := OpenService(SCH, PChar(SvrName), SERVICE_ALL_ACCESS);
  87.   if SvcSCH <= 0 then Exit;
  88.   try
  89.     Result := ControlService(SvcSCH, SERVICE_CONTROL_STOP, SS);
  90.     CloseServiceHandle(SCH);
  91.     CloseServiceHandle(SvcSCH);
  92.   except
  93.     CloseServiceHandle(SCH);
  94.     CloseServiceHandle(SvcSCH);
  95.     Exit;
  96.   end;
  97. end;
  100. procedure TForm1.btn_StartServicesClick(Sender: TObject);
  101. begin
  102.   if StartServices('PolicyAgent') = true then
  103.     application.MessageBox(PChar('PolicyAgent 服务启动成功'), PChar('服务信息'), MB_ICONINFORMATION)
  104.   else
  105.     application.MessageBox(PChar('PolicyAgent 服务启动失败'), PChar('服务信息'), MB_ICONERROR);
  106. end;
  108. procedure TForm1.btn_StopServicesClick(Sender: TObject);
  109. begin
  110.   if StopServices('PolicyAgent') = true then
  111.     application.MessageBox(PChar('PolicyAgent 服务停止成功'), PChar('服务信息'), MB_ICONINFORMATION)
  112.   else
  113.     application.MessageBox(PChar('PolicyAgent 服务停止成功'), PChar('服务信息'), MB_ICONERROR);
  114. end;
  116. end.
复制代码

 

http://www.appweixin.net/thread-67-1-1.html

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi中关于文件、目录操作的函数发布时间：2022-07-18
下一篇：
Delphi7学习开发控件（继承TGraphicControl只画一条线）发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap