J'utilise cette fonction trouvée sur le FAQ qui retourne entre autre le Path d'un alias BDE:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
uses
  BDE;
 
function DetailAlias(Alias : String): DBDesc;
var
  tStr: array[0..100] of char;
  Description: DBDesc;
begin
  StrPLCopy(tStr, Alias, High(tStr));
  DbiGetDatabaseDesc(tStr, @Description);
  result:= Description;
end;
 
procedure TMyForm.MyButtonClick(Sender: TObject);
begin
  with DetailAlias('DBDEMOS') do
  begin
    Label1.Caption := StrPas(szName);
    Label2.Caption := StrPas(szPhyName);
    Label3.Caption := StrPas(szDbType);
  end;
end;
Or je n'arrive pas à le faire marcher. Rien ne s'affiche dans les labels.
Y a-t-il une astuce ??