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

Hola, aquí va una preguntita sobre windows, no sé si será sencillo o complicado, yo no sé encontrar esa información, o no me acuerdo.

Tengo un programita sencillito con 2 botones, uno dice: "stop servicio firebird" y el otro dice: "start servicio firebird", eso es todo el programa. Pues bien, mediante unas funciones que he encontrado escritas por seoane es bien fácil hacerlo funcionar, llamo a start/stop el servicio: "FirebirdServerDefaultInstance" o este otro: "FirebirdGuardianDefaultInstance" y todos felices y contentos.
Pero el problema es que no recuerdo de dónde saqué que el nombre del servicio de FBServer es "FirebirdServerDefaultInstance", y el problema es que quiero iniciar/detener otros servicios de los que desconozco su nombre.
Ahora la pregunta: ¿Cómo puedo saber el nombre del servicio al que tengo que llamar?.
Si tengo un LoQueSea.exe que inicia un servicio de cualquier programa o dispositivo, ¿cómo consigo su nombre para iniciarlo/detenerlo?

Seguramente es sencillo, pero ahora mismo no recuerdo, o nunca lo he sabido, de dónde sacar ese dichoso nombre.

Quien me diga la solución al enigma planteado, tendrá una invitación a cerveza y aceitunas en una taberna típica andaluza :)

Yo lo que haría es ejecutar "services.msc", en la lista de servicios que aparecen busco el que quiero y con botón derecho/propiedades obtengo un montón de información sobre el servicio, entre ellas el nombre que buscas.

;) Si acerté exijo mi cervecita ...

lo puedes buscar dentro del registro en

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services


cada servicio está como una clave, el valor ImagePath indica la aplicación así como los parámetros

Bueno, vale, os la habéis ganado (la cerveza), de momento tendrá que ser virtual (de nuestra taberna), pero prometo que en cuanto pueda ser "físicamente real", la tendréis :)


Muchas gracias, qué rapidez!!!

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

:D :p :D

// Saludos

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

Salud OS.

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á :(

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.

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

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;

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