uses BDE;
    .....
    procedure ShowDatabaseDesc(DBName: String);
    const
       DescStr = 'Driver Name: %s'#13#10'AliasName: %s'#13#10 +
                 'Text: %s'#13#10'Physical Name/Path: %s';
    var
      dbDes: DBDesc;
    begin
       dbiGetDatabaseDesc(PChar(DBName), @dbDes);
       with dbDes do
         ShowMessage(Format(DescStr, [szDbType, szName, szText, szPhyName]));
    end;

Makasih ya say... ups... kaya ke pacar aja... wakakak

@saysansay:

Makasih ya say... ups... kaya ke pacar aja... wakakak

Wah jeruk makan jeruk nech

procedure TForm1.Button1Click(Sender: TObject);
var
  ses: TSession;
begin
  ses := TSession.Create(Application);
  try
    {blm explore lebih lanjut kegunaan SessionName, baca manual aja}
    ses.SessionName := 'mySession';  
    ses.GetAliasNames(ListBox1.Items);
  finally
    ses := nil;
    ses.Free;
  end;
end;

function GetAliasPath(aliasName: string): string;
var
    cfgRec  : DBDesc;
    dbRes   : DBIResult;
    tempStr : array of char;
begin
  result:= '';
  dbRes:= DBIGetDatabaseDesc(StrPCopy(tempStr, aliasName) , @cfgRec);
  if dbRes = DBIERR_OBJNOTFOUND then
    begin
      raise Exception.create('Tidak Ada Alias BDE Nech Kumaha Atuhhhh Wakakakaakka');
    end
  else
    result := strPas(cfgRec.szPhyName);
end;