用delphi如何实现启动停止windows服务
来源:互联网 发布:麦克雷 数据 编辑:程序博客网 时间:2024/05/19 10:10
function StartService(AServName: string): Boolean; //use WinSvc
var
SCManager, hService: SC_HANDLE;
lpServiceArgVectors: PChar;
begin
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
Result := SCManager <> 0;
if Result then
try
hService := OpenService(SCManager, PChar(AServName), SERVICE_ALL_ACCESS);
Result := hService <> 0;
if (hService = 0) and (GetLastError = ERROR_SERVICE_DOES_NOT_EXIST) then
Exception.Create('The specified service does not exist');
if hService <> 0 then
try
lpServiceArgVectors := nil;
Result := WinSvc.StartService(hService, 0, PChar(lpServiceArgVectors));
if not Result and (GetLastError = ERROR_SERVICE_ALREADY_RUNNING) then
Result := True;
finally
CloseServiceHandle(hService);
end;
finally
CloseServiceHandle(SCManager);
end;
end;
//如果要轉載本文請注明出處,免的出現版權紛爭,我不喜歡看到那種轉載了我的作品卻不注明出處的人 Seven{See7di#Gmail.com}
function StopService(AServName: string): Boolean;
var
SCManager, hService: SC_HANDLE;
SvcStatus: TServiceStatus;
begin
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
Result := SCManager <> 0;
if Result then
try
hService := OpenService(SCManager, PChar(AServName), SERVICE_ALL_ACCESS);
Result := hService <> 0;
if Result then
try //停止并卸载服务;
Result := ControlService(hService, SERVICE_CONTROL_STOP, SvcStatus);
//删除服务,这一句可以不要;
// DeleteService(hService);
finally
CloseServiceHandle(hService);
end;
finally
CloseServiceHandle(SCManager);
end;
end;
- 用delphi如何实现启动停止windows服务
- delphi启动停止windows服务
- Delphi启动/停止Windows服务,启动类型修改为"自动"
- Delphi启动/停止Windows服务,启动类型修改为"自动"
- Delphi启动/停止Windows服务,启动类型修改为"自动"
- Delphi启动或者停止windows服务的函数
- windows启动停止服务
- mysql服务的注册,启动、停止、注销。 [delphi代码实现]
- 用代码启动和停止Windows服务
- 如何启动停止远程windows server端的服务
- C#启动停止windows服务
- C#启动,停止Windows服务
- Web启动,停止Windows服务
- 如何启动/停止NOC服务
- delphi编程启动服务停止服务新建服务的方法
- 批处理实现启动服务和停止服务
- Windows SC(server control)命令详解 - 如何远程停止/启动/控制Windows服务
- 命令行方式 启动和停止 windows服务
- php编译器工作方式及错误调试
- 用PHP忙了一晚上写的图片缩略和图片等比缩放函数
- 常见几个排序源码及二分查找源码
- 将“Windows 资源管理器”的默认视图更改为“我的电脑”
- 常用PHP5函数小全
- 用delphi如何实现启动停止windows服务
- [AS3]纯AS代码实现可预览本地图片的flash上传客户端
- PHP 与 ASP.NET 正面交锋
- php注入实例
- php rss生成类
- php中一个可查询所有表的“通用”查询分页类
- 用PHP编程语言开发动态WAP页面
- 提升php执行效率的注意事项
- PHP数据库备份文件分卷导入的实现思路