Saber si Firebird esta corriendo

[[felipe88]]

Hola Dec gracias por el vinculo, esta funcion me sirvio mucho, le añadi unos retoques para lo que necesitaba y finalmente me quedo asi

Código Delphi [-]
//Añadir al uses TLHelp32

function TForm1.fbrunning: Boolean;
var
  Proceso : TProcessEntry32;
  ProcessHandle : THandle;
  Sproceso   : Boolean;
  Nproceso : String;
begin
  Result := False;
  Proceso.dwSize := SizeOf(TProcessEntry32);
  ProcessHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(ProcessHandle, Proceso) then
  begin
    Nproceso:= String(Proceso.szExeFile);
    repeat Sproceso := Process32Next(ProcessHandle, Proceso);
      Nproceso:= String(Proceso.szExeFile);
      if Nproceso = 'fbserver.exe' then
        Result := True;
    until not Sproceso;
  end;
  CloseHandle(ProcessHandle);
end;

Ya mismo la añado en la seccion de trucos, es de gran utilidad