使用innosetup安装服务

时间:2013-06-05 05:49:22
【文件属性】:

文件名称:使用innosetup安装服务

文件大小:2KB

文件格式:RAR

更新时间:2013-06-05 05:49:22

innosetup service

不知哪下的,感觉不错,上传给大家使用 function SartService(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,''); CloseServiceHandle(hService) end; CloseServiceHandle(hSCM) end; end;


【文件预览】:
serviceCtl.iss

网友评论

  • 学习中,感觉还是不太会使用。
  • 学习中 需要研究研究
  • 参考其它的资料,终于实现了,谢谢楼主
  • 正在学习中