关闭

启动服务函数

266人阅读 评论(0) 收藏 举报

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; 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:9226次
    • 积分:219
    • 等级:
    • 排名:千里之外
    • 原创:10篇
    • 转载:6篇
    • 译文:0篇
    • 评论:1条
    文章存档
    最新评论