Verificar se Firebird está instalado/rodando

Eu ja usei isto aqui

Function FireBirdStarted: Boolean;
Begin
Result := ( FindWindow( ´FB_Guard´, Nil ) <> 0 ) ;
End;

Funciona blz. Pelo menos funcionou.
Mesmo o servidor instalado apenas como serviço funciona.

Obrigado pela dica.
Eu já conhecia o FindWindow;

Só não sabia que o nome da janela ativa do firebird é ´FB_Guard´

Aliás como descobrir o nome da janela ativa de determinado programa?

ehehehehe
Essa é uma boa pergunta.. eu tentei fazer um teste com o MySql e não deu certo.
Tentei pegar o nome do processo, e varias outras coisas.. e nenhum deu certo.

Uma maneira seria listar todas as janelas abertas num listbox por exemplo.. dae vc ver qual é a janela que vc quer
XD

mas se tiver um jeito mais simples e alguem puder compartilhar conosco seria otimo.

flw.

Outra ideia é tentar fazer um ping à porta do Servidor.

Por exemplo,

ping 127.0.0.1:3050 //firebird
ping 127.0.0.1:3036 //mysql

Tem servidores que possui firewall q não permiti ping