以下是监测系统服务状态的代码，测试以后只能对‘mssqlserver’有作用，别的服务全部提示没有该服务，不知道是怎么回事儿？
function CheckSQL: Integer;
var
SCManager: THandle;
HService: THandle;
ServiceStatus: TServiceStatus;
ServiceName: string;
begin
ServiceName:='主动防御';
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCManager <> 0 then
begin
HService := OpenService(SCManager, PChar(ServiceName), GENERIC_READ);
if HService <> 0 then
begin
if ControlService(HService, SERVICE_CONTROL_INTERROGATE, ServiceStatus) then
begin
if ServiceStatus.dwCurrentState = SERVICE_RUNNING then
Result := 0 //运行
else
Result := 2; //暂停
end else
Result := 1; //停止
end
else
Result := -1; //没有服务
CloseServiceHandle(HService);
CloseServiceHandle(SCManager);
end;
----------------------------------------------
-
function CheckSQL: Integer;
var
SCManager: THandle;
HService: THandle;
ServiceStatus: TServiceStatus;
ServiceName: string;
begin
ServiceName:='主动防御';
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCManager <> 0 then
begin
HService := OpenService(SCManager, PChar(ServiceName), GENERIC_READ);
if HService <> 0 then
begin
if ControlService(HService, SERVICE_CONTROL_INTERROGATE, ServiceStatus) then
begin
if ServiceStatus.dwCurrentState = SERVICE_RUNNING then
Result := 0 //运行
else
Result := 2; //暂停
end else
Result := 1; //停止
end
else
Result := -1; //没有服务
CloseServiceHandle(HService);
CloseServiceHandle(SCManager);
end;
----------------------------------------------
-
郑重声明：资讯 【检测服务只能对mssqlserver有作用，为什么？】由 发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权， 请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。
—— 相关资讯 ——
