本文整理自网络，侵删。
Delphi启动/停止Windows服务,启动类型修改为"自动"
unit U_StartServices;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinSVC, StdCtrls;
type
TForm1 = class(TForm)
btn_StartServices: TButton;
btn_StopServices: TButton;
procedure btn_StartServicesClick(Sender: TObject);
procedure btn_StopServicesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function StartServices(const SvrName: string): Boolean;
implementation
{$R *.dfm}
//开启服务
function StartServices(const SvrName: string): Boolean;
var
SCH, SvcSCH: SC_HANDLE;
arg: PChar;
dwStartType: DWORD;
begin
Result := False;
SCH := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCH <= 0 then Exit;
SvcSCH := OpenService(SCH, PChar(SvrName), SERVICE_ALL_ACCESS);
if (ChangeServiceConfig(
SvcSCH, // handle of service
SERVICE_NO_CHANGE, //SERVICE_NO_CHANGE, // service type: no change
SERVICE_AUTO_START, // change service start type
SERVICE_NO_CHANGE, // error control: no change
nil, // binary path: no change
nil, // load order group: no change
nil, // tag ID: no change
nil, // dependencies: no change
nil, // account name: no change
nil, // password: no change
nil)) then
showmessage('Auto Start OK')
else
showmessage('Auto Start Error');
if SvcSCH <= 0 then Exit;
try
Result := StartService(SvcSCH, 0, arg);
CloseServiceHandle(SvcSCH);
CloseServiceHandle(SCH);
except
CloseServiceHandle(SvcSCH);
CloseServiceHandle(SCH);
Exit;
end;
//停止服务
function StopServices(const SvrName: string): Boolean;
var
SCH, SvcSCH: SC_HANDLE;
SS: TServiceStatus;
begin
Result := False;
SCH := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCH <= 0 then Exit;
SvcSCH := OpenService(SCH, PChar(SvrName), SERVICE_ALL_ACCESS);
if SvcSCH <= 0 then Exit;
try
Result := ControlService(SvcSCH, SERVICE_CONTROL_STOP, SS);
CloseServiceHandle(SCH);
CloseServiceHandle(SvcSCH);
except
CloseServiceHandle(SCH);
CloseServiceHandle(SvcSCH);
Exit;
end;
end;
procedure TForm1.btn_StartServicesClick(Sender: TObject);
begin
if StartServices('PolicyAgent') = true then
application.MessageBox(PChar('PolicyAgent 服务启动成功'), PChar('服务信息'), MB_ICONINFORMATION)
else
application.MessageBox(PChar('PolicyAgent 服务启动失败'), PChar('服务信息'), MB_ICONERROR);
end;
procedure TForm1.btn_StopServicesClick(Sender: TObject);
begin
if StopServices('PolicyAgent') = true then
application.MessageBox(PChar('PolicyAgent 服务停止成功'), PChar('服务信息'), MB_ICONINFORMATION)
else
application.MessageBox(PChar('PolicyAgent 服务停止成功'), PChar('服务信息'), MB_ICONERROR);
end;
end.
相关阅读 >>
Delphi tscreen 类 - 通过 screen 更换光标
Delphi xe5 android 调用 google zxing
Delphi tms web core直接从html&css设计的页面布局
更多相关阅读请进入《Delphi》频道 >>
