利用Inno Setup安装服务
5星
- 浏览量: 0
- 大小:None
- 文件类型：None
简介：
本教程详细介绍如何使用Inno Setup创建能够自动安装Windows服务的应用程序。通过实例讲解，帮助开发者轻松掌握相关技巧和步骤。
不知道从哪里看到的,感觉不错,所以上传给大家使用。
以下是代码部分:
function StartService(ServiceName: string): boolean;
var
hSCM : HANDLE;
hService: HANDLE;
Status : SERVICE_STATUS;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService := OpenService(hSCM, ServiceName, SERVICE_START);
if hService <> 0 then begin
Result := StartService(hService, 0, nil);
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end;
end;
全部评论 (0)
还没有任何评论哟~
