Delphi启动/停止Windows服务,启动类型修改为"自动"
来源:互联网 发布:苗族 知乎 编辑:程序博客网 时间:2024/06/05 05:31
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;
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.
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;
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服务,启动类型修改为"自动"
- Delphi启动/停止Windows服务,启动类型修改为"自动"
- Delphi启动/停止Windows服务,启动类型修改为"自动"
- delphi启动停止windows服务
- windows启动停止服务
- C++通过WMI启动/停止服务,修改服务类型 (
- Delphi启动或者停止windows服务的函数
- 用delphi如何实现启动停止windows服务
- windows 设置tomcat为自动启动服务
- C#启动停止windows服务
- C#启动,停止Windows服务
- Web启动,停止Windows服务
- windows 服务自动启动
- 批处理设置服务的启动类型与启动/停止服务
- delphi编程启动服务停止服务新建服务的方法
- OracleOraDb11g_home1TNSListener服务启动后自动停止
- OracleOraDb11g_home1TNSListener服务启动后又自动停止
- win7启动修改服务为自动或手动
- Postgres数据库总设计师:NewSQL体系比Hadoop更具效率
- DirectX Hello World
- SQL中查询指定数据的 上一条或下一条数据
- 优秀的Web前端开发人员是这样炼成的
- Page_Load()无事件响应的解决
- Delphi启动/停止Windows服务,启动类型修改为"自动"
- gdb调试多进程程序
- sqlserver 日期函数
- 软件工程第一章 软件工程概述
- 页面输出缓存
- 牛顿法求平方根
- Mni2440 linux PWM 驱动代码修改支持 频率,占空比修改--XiaoLin.Peng
- 菜鸟笔记5——Camera扩充(3) 界面更改,弹出对话框
- Winsock网络编程