Ruta de Servicios de windows

[diego007]

Hola amig@s, buscando en este foro me encontré con un código para ver los servicios del sistema en este direccion http://www.clubdelphi.com/foros/showthread.php?p=109245
el codigo es

Código PHP:

function ServiceGetList(sMachine: string;
                         dwServiceType, dwServiceState: DWord;
                         slServicesList: TStrings) : boolean;
const
  // assume that the total number of services is less than 4096.
  //Increase if necessary
  cnMaxServices = 4096;
type
  TSvcA = array [0..cnMaxServices] of TEnumServiceStatus;
  PSvcA = ^TSvcA;
  var
  j: integer;
  // service control manager handle
  schm: SC_Handle;
  // bytes needed for the next buffer, if any
  nBytesNeeded,
  // number of services
  nServices,
  // pointer to the next unread service entry
  nResumeHandle: DWord;
  // service status array
  ssa: PSvcA;
begin { ServiceGetList }
  Result := false;

  // connect to the service control manager
  schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_ALL_ACCESS);

  // if successful...
  if (schm>0) then
  begin
    nResumeHandle := 0;

    New(ssa);

    EnumServicesStatus(schm, dwServiceType, dwServiceState, ssa^[0],
                       sizeof(ssa^), nBytesNeeded, nServices,
                       nResumeHandle);

    // assume that our initial array was large enough to hold all
    // entries. add code to enumerate if necessary.
    for j := 0 to nServices-1 do
    begin
      slServicesList.Add(StrPas(ssa^[j].lpServiceName));
    end; { for j }
    Result := true;

    Dispose(ssa);

    // close service control manager handle
    CloseServiceHandle(schm);
  end; { (schm>0) }
end; { ServiceGetList } 


como ver la ruta completa del servicio que muestra este programa? por ejemplo ver las rutas de este tipo:
System32\DRIVERS\xxxxxxxxx.xxx
%SystemRoot%System\xxxxxxxxxx.xx

[Neftali [Germán.Estévez]]

En mi página puedes descargar la librería GlibWMI, que entre los componentes que hay uno llamado ServiceInfo, que te permitirá obtener toda la información que necesites de los servicios instalados en la máquina (entre ellos el path).

[diego007]

Hola Neftali, me parece que es muy buena esta librería que desarrollas, pero tengo una pregunta, yo uso D7 y estoy tratando de instalarla a esta librería 1.8b que descargue de SF, pero no se instala como otras librerías, tienes un mini manual de como hacerlo ya que el archivo GLibWMI_1.8beta_all no tiene ninguna carpeta de nombre Lib y en sources no hay ningún archivo dcu o algún instalador.

Gracias de antemano.

[Neftali [Germán.Estévez]]

Si descargas toda la librería completa, hay un directorio donde se encuentra un DPK que es el package que debes instalar. Abrelo y haz un Build y un Install.

También hay un fichero BPG (Borland Project Group) que contiene el packages y las demos. Si lo abres, puedes compilar todo y desde ahí mismo si seleccionas el DPK puedes instalarlo.