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

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