从其可执行文件的路径获取服务名称

Question

我有一个可执行文件的路径，它是一个正在运行的服务应用程序。

例如：C:\Program Files (x86)\Someapp\somesvc.exe

我想停止并启动它，为此我想我需要获取[this] 答案中概述的服务名称。

我可以通过遍历HKLM\System\CurrentControlSet\Services 处所有服务的所有注册表项并检查ImagePath 注册表项是否与我的可执行路径匹配来获得此信息。

这个解决方案应该可行，但对我来说似乎是错误的。有没有更好的方法来做到这一点？

Answer 1

使用EnumServicesStatus() 或EnumServicesStatusEx() 枚举已安装的服务。这将为您提供每个服务的名称，而不是其ImagePath。要检索它，您可以使用OpenService(SERVICE_QUERY_CONFIG) 打开每个服务，然后使用QueryServiceConfig() 获取其ImagePath。

Answer 2

您可以向 WMI 查询 PathName 类似于您的路径的服务。

注意：某些路径包含参数。你不能使用 equal（使用 Like）。

您可以使用类似这样的代码来查询 WMI：

//-----------------------------------------------------------------------------------------------------
//     This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.350
//     http://code.google.com/p/wmi-delphi-code-creator/
//     Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
//     Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015 
//----------------------------------------------------------------------------------------------------- 
//
//     LIABILITY DISCLAIMER
//     THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
//     YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
//     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GetWMI_Info;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;



// La clase Win32_Service representa un servicio en un sistema Win32. Un 
// aplicación de servicio cumple las reglas de la interfaz del Administrador de 
// control de servicios (SCM, Service Control Manager) y un usuario la puede 
// iniciar automáticamente al arrancar el sistema a través del programa Servicios 
// del Panel de control o mediante una aplicación que utilice las funciones de 
// servicio de la API de Win32. Los servicios se pueden ejecutar aunque ningún 
// usuario haya iniciado sesión en el sistema.

procedure  GetWin32_ServiceInfo(sPath:String);
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_Service WHERE PathName like "%' + sPath + '%"','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Writeln(Format('Caption        %s',[String(FWbemObject.Caption)]));// String
    Writeln(Format('DisplayName    %s',[String(FWbemObject.DisplayName)]));// String
    Writeln(Format('Name           %s',[String(FWbemObject.Name)]));// String
    Writeln(Format('PathName       %s',[String(FWbemObject.PathName)]));// String

    Writeln('');
    FWbemObject:=Unassigned;
  end;
end;


begin
 try
    CoInitialize(nil);
    try
      GetWin32_ServiceInfo(ExtractFileName('c:\windows\system\locator.exe'));
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;      
end.

如果您需要更多属性，请添加到 precedure。

查询：'c:\windows\system\locator.exe'，获取：

查询：'C:\Program Files (x86)\Skype\Updater\Updater.exe'，你得到：

对于启动和停止服务，您需要property Name。