启动服务函数

最新推荐文章于 2024-06-19 04:18:41 发布

zwylly99

最新推荐文章于 2024-06-19 04:18:41 发布

阅读量612

点赞数

文章标签： service manager access string

本文链接：https://blog.youkuaiyun.com/zwylly99/article/details/1797923

版权

procedure StartService(psServiceName: string);
var
hscmanager,
hService: SC_HANDLE;
lpServiceArgVectors: Pchar;
returnstatus: TServiceStatus;
begin
try
    lpServiceArgVectors := nil;
    hscmanager := OpenSCManager(nil,nil,SC_MANAGER_ENUMERATE_SERVICE);
    hService := OpenService(hscmanager,PChar(psServiceName),SERVICE_ALL_ACCESS);

QueryServiceStatus(hService,returnstatus); //查看该Service的状态

    if returnstatus.dwCurrentState=SERVICE_STOPPED then   //如果该Service已停止则启动它
       StartService(hService,0,lpServiceArgVectors);
finally
    CloseServiceHandle(hService);//关闭该Serviceend;
end;
end;