quarta-feira, 2 de março de 2016

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;

Nenhum comentário:

Postar um comentário