¿Como detectar si el servidor de bases de datos está lanzado?

[Casimiro Noteví]

FirebirdGuardianDefaultInstance
FirebirdServerDefaultInstance

[ZRR]

Tengo una validación para que no se ejecuten dos instancias de mi aplicación y funciona correctamente. Pero al validar lo mismo pero con el guardian Firebird no lo valida e intenta correrlo de nuevo, lo que genera un mensaje de error.

Mi código es el siguiente:

Código Delphi [-]
  MiMutex:= CreateMutex(nil,true,'fbguard');
  if MiMutex=0 then
  begin
   MessageDlg('Error al verificar monitor de Base de Datos.', mtError, [mbOk], 0);
  end;
  if GetLastError<>ERROR_ALREADY_EXISTS then //no esta ejecutandose
  begin
   WinExec(Pchar(rutaFB), SW_SHOW);
  end;

Al parecer no encuentra el programa con el nombre 'fbguard', tambien intente con 'fbserver', FirebirdGuardianDefaultInstance, FirebirdServerDefaultInstance y no funciona.

Alguien conoce el nombre con el que se identifica el programa de guardian de Firebird?

Saludos

[[seoane]]

¿Quien se supone que crea el mutex?

[xander]

Definitivamente eres un "escapao" Seoane... peazo e' codigos te avientas...

Vaya que ni la identación te puede uno criticar