Buscar por:

Como pegar o diretório de uma alias?

Código

Unit Unit1; 

interface 

uses 

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 

  StdCtrls, Buttons, Db, DBTables ; 

type 

  TForm1 = class(TForm) 

  Label1: TLabel; 

  BitBtn1: TBitBtn; 

  Edit1: TEdit; 

  Table1: TTable; 

  Label2: TLabel; 

  procedure BitBtn1Click(Sender: TObject); 

  private 

  { Private declarations } 

  public 

  { Public declarations } 

  WAlias : TStringList; //Capitura o Alias do Bde 

  WServidor : String; //Retorna o Caminho 

  end; 

var 

  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.BitBtn1Click(Sender: TObject); 

begin 

 {Para validar a Session e necessario ter um compomente table anexado ao projeto} 

 WAlias := TStringList.Create; 

// Session.GetAliasParams('CrAdm',WAlias); //Coloque o Alias diretamente ou Troque pelo Edit 

 Session.GetAliasParams(Edit1.Text,WAlias); 

 WServidor := WAlias[0]; 

 WServidor := Copy(WServidor,6,255); 

 WServidor := Copy(WServidor,1,(Length(WServidor))); 

 Label1.Caption := WServidor; 

end; 

end.