首页 > 代码库 > 系统服务
系统服务
function StopServies(sServiceName: String): boolean; // 停止某个服务; var schService: SC_HANDLE; schSCManager: SC_HANDLE; ssStatus: TServiceStatus; begin schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); schService := OpenService(schSCManager, Pchar(sServiceName), SERVICE_ALL_ACCESS); try if ControlService(schService, SERVICE_CONTROL_STOP, ssStatus) then begin Sleep(1000); while (QueryServiceStatus(schService, ssStatus)) do begin Application.ProcessMessages; if ssStatus.dwCurrentState = SERVICE_STOP_PENDING then Sleep(1000) else break; end; // while if ssStatus.dwCurrentState = SERVICE_STOPPED then result := True else result := False; end else result := False; finally CloseServiceHandle(schService); CloseServiceHandle(schSCManager); end; end;
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。