Listando informações dos Aliases
Com o código abaixo você poderá desenvolver um pequeno aplicativo para obter informações dos aliases contidos em sua máquina. Inicie uma nova aplicação. Insira no formulário, 4 componentes do tipo TLabel e um TListBox. No evento OnCreate do objeto Form1 digite o seguinte código:
procedure TForm1.FormCreate(Sender: TObject);
begin
Session.GetAliasNames(ListBox1.Items);
end;
Agora no evento OnClick do componente ListBox insira:
procedure TForm1.ListBox1Click(Sender: TObject);
var
tStr: array[0..100] of char;
Desc: DBDesc;
begin
if ListBox1.Items.Count = 0 then
exit;
StrPLCopy(tStr, ListBox1.Items.Strings[ListBox1.ItemIndex], High(tStr));
DbiGetDatabaseDesc(tStr, @Desc);
with Desc do
begin
Label1.Caption := StrPas(Desc.szName);
Label2.Caption := StrPas(Desc.szPhyName);
Label3.Caption := StrPas(Desc.szDbType);
Label4.Caption := StrPas(Desc.szText);
end;
end;
Repare que, ao executar o programa, o ListBox já vai trazer os aliases listados. A partir daí, basta você selecionar cada um deles e observar nos Labels o resultado.
