Fórum Duplicate database name ´Estoque´ #172987

procedure TfrmBackup_Cria.FormShow(Sender: TObject);
var
vpath: string;
begin
vPath := GetAliasPath(´Estoque´);
label1.caption:=vPath + ´*.*´;
filelistbox.Items.Clear;
filelistbox.Items.Add(vPath+´*.*´);
end;

function TfrmBackup_Cria.GetAliasPath( sAlias : String) : String;
var
  oDataBase : TDatabase;
  pszDir   : Pchar;
  sDir : String;
begin
  try
    oDataBase := TDatabase.Create(nil);
    With oDatabase do
    begin
      try
        pszDir := StrAlloc( 255 );
        AliasName := sAlias;
        DataBaseName := sAlias;
        Connected := true;
        DbiGetDirectory( Handle, true, pszDir );
        sDir := StrPas( pszDir );
        {$Ifdef Win32}
          Result := sDir;
        {$else}
          Result := sDir + ´\´;
        {$endif}
        Connected := false;
      except
        on E:EOutOfMemory do
          MessageDlg(´Problemas de memória ´ + E.Message, MtError,[MBOK],0);
      end;
    end;
  finally
    StrDispose( pszDir );
    oDataBase.Free;
  end;
end;