Interbase - usuarios logados

select user from RDB$DATABASE;

// other way

Um Botão

Um TMemo

Um .IBDatabaseInfo1

e a receita...

procedure TFPrincipal.BitBtn1Click(Sender: TObject);

var

  I: Integer;

begin

  with dmSeller.IBDatabaseInfo1 do

  begin

    for I := 0 to UserNames.Count - 1 do

      Memo1.Lines.Add(UserNames[I]);

//    Memo1.Lines.Add(DBFileName);

//    Memo1.Lines.Add(IntToStr(Fetches));

//    Memo1.Lines.Add(IntToStr(CurrentMemory));

  end;

end;