本文整理自网络，侵删。
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实现windows xp中“本地连接”的启用和禁用
Delphi 检查字符串是不是 包含 中文和获取中文字符个数
更多相关阅读请进入《Delphi》频道 >>
