Como obter o diretório atual usando a função GetCurrentDir()

[SubCash 0]

Como obter o diretório atual usando a função GetCurrentDir()

 

Em algumas situações precisamos obter o diretório atual, ou seja, aquele a partir do qual nosso programa está sendo executado. Em Delphi isso pode ser feito com o auxílio da função GetCurrentDir() da unit SysUtils. Esta função não exige nenhum argumento e retorna o drive e nome do diretório atual como uma string. Veja o exemplo:

 

procedure TForm1.Button1Click(Sender: TObject); var diretorio_atual: string; begin // vamos obter o diretório atual diretorio_atual := GetCurrentDir; // vamos exibir o resultado ShowMessage('O diretório atual é: ' + diretorio_atual); end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.