실행 파일 경로에서 서비스 이름 가져 오기

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

PathName이 경로와 비슷한 서비스에 대해 WMI에 쿼리 할 수 ​​있습니다.

참고 : 일부 경로에는 params가 포함됩니다. 평등을 사용할 수 없습니다 (좋아요 사용).

당신은 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이 필요합니다.