[firebase-br] Auto Run apos FB iniciar

[Pedro Leonardo]

Amigos, tenho uma aplicação que executa assim q o windows é iniciado, mas
sempre inicia antes do FB startar. Tem como eu saber via programaçao  se o
banco está ativado e caso contrario esperar ele entrar no ar p/ conectar meu
banco?

seria algo assim
// verifico se o FB startou caso contrario espero uns 10 segundos
     // seleep (10000) e conecto
          IBDatabase.Connected:= False;
          Ini:= TIniFile.Create(ExtractFilePath(
Application.ExeName )+'\DataBase.Ini');
          IBDatabase.DatabaseName:=
Ini.ReadString('Database','Caminho','C:\MeuPrograma\Dados.fdb');
          IBDatabase.Open;
          IBDatabase.Connected:= True;

Uso FB 1.5.3
Delphi 7

Obrigado
Leonardo