Get service name from the path of its executable - windows

Question

I have the path to an executable which is a running service application.
For example: C:\Program Files (x86)\Someapp\somesvc.exe
I want to stop and start it, and for that I suppose I need to get the name of the service as it is outlined in [this] answer.
I might get this by iterating trough all the registry entries of all the services at HKLM\System\CurrentControlSet\Services, and checking if the ImagePath registry key matches my executable path.
This solution should work, but it seems wrong to me. Is there a better way to do this?

Answer 1

Use EnumServicesStatus() or EnumServicesStatusEx() to enumerate installed services. That will give you the name of each service, but not its ImagePath. To retrieve that, you can open each service using OpenService(SERVICE_QUERY_CONFIG) and then get its ImagePath using QueryServiceConfig().

Answer 2

You can query to WMI for services that PathName is like your path.
NOTE: Some path include params. You can't use equal (use Like).
You can use some code like this to query 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.
If you need more properties, add to precedure.
For query with: 'c:\windows\system\locator.exe', you obtain:
For query with: 'C:\Program Files (x86)\Skype\Updater\Updater.exe', you obtain:
For Start and Stop the service, tou need the property Name.