Interbase - saber se o Interbase está rodando

Top  Previous  Next

// saber se o Interbase está rodando

 

uses IBIntf;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  if TryIBLoad then

    Label1.Caption := 'O IB está rodando'

  else

    Label1.Caption := 'O IB NÃO está rodando';

end;