Cómo saber el "nombre real" de un servicio

[[egostar]]

Empezado por roman

¿Ves qué fácil son las cosas en Windows?



// Saludos

huy huy huy, haber si esto no termina en el foro de debates.......

Salud OS.

[Casimiro Notevi]

bueno, bueno, bueno... no cantéis victoria tan pronto, tanto en "services.msc" como en el registro, no he encontrado lo que estaba buscando.
Tampoco sé si servirá lo que pone allí "InterbaseServer", tendré que probarlo mañana en el trabajo, porque lo de "FirebirdServerDefaultInstance" no está

[[egostar]]

No se si lo que quieres es conocer el nombre del ejecutable, si es eso en la ruta que ya te dieron

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\

buscas la clave FirebirdServerDefaultInstance y dentro de ella la clave ImagePath que todos los servicios tienen y ahi viene el nombre del servicio (programa) con su ruta y parametros necesarios.

Salud OS.

[Casimiro Notevi]

Buenos días, comprabado, funciona.
Cervecitas para todos!!!

[dec]

Hola,

La siguiente función, que habrá de revisarse todo lo que se quiera, basada en una homónima que se encuentra en la unidad "JclSrvCtrl.pas" (que para mí que lo contiene todo en cuanto a Servicios de Windows se refiere y su control desde Delphi), digo, que, la siguiente función retorna en la variable que se pasa como parámetro una lista con todos los nombres de los Servicios del sistema:

Código Delphi [-]
uses
  WinSvc;

procedure EnumServices(services: TStringList);
var
  I: Integer;
  Ret: BOOL;
  PBuf: Pointer;
  mn, db: Pchar;
  hSCManager: SC_HANDLE;
  PEss: PEnumServiceStatus;
  BytesNeeded, ServicesReturned, ResumeHandle: DWORD;
begin
  mn := nil;
  db := nil;
  services.Clear;
  // Enum the services
  hSCManager := OpenSCManager(mn, db, SC_MANAGER_ENUMERATE_SERVICE);
  if (hSCManager <> 0) then
  begin
    ResumeHandle := 0; // Must set this value to zero !!!
    try
      PBuf := nil;
      BytesNeeded := 40960;
      repeat
        ReallocMem(PBuf, BytesNeeded);
        Ret := EnumServicesStatus(hSCManager, SERVICE_TYPE_ALL, SERVICE_STATE_ALL,
                PEnumServiceStatus(PBuf)^, BytesNeeded, BytesNeeded,
                 ServicesReturned, ResumeHandle);
      until Ret or (GetLastError <> ERROR_MORE_DATA);
      PEss := PBuf;
      for I := 0 to ServicesReturned-1 do
      begin
        services.Add(PEss^.lpServiceName);
        Inc(PEss);
      end;
    finally
      FreeMem(PBuf);
    end;
  end;
end;

[Casimiro Notevi]

Interesante y útil... Una cervecita también para dec