Você está aqui: Delphi ::: Dicas & Truques ::: Arquivos e Diretórios

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

Quantidade de visualizações: 18033 vezes

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.

Link para compartilhar na Internet ou com seus amigos:

Desafios, Exercícios e Algoritmos Resolvidos de Delphi

Como calcular média ponderada em Delphi - Ler o nome de um aluno e as notas de três provas - Exercícios Resolvidos de Delphi

Um programa Delphi que lê dois números e mostra a soma, subtração, multiplicação e a divisão dos números lidos - Exercício Resolvido de Delphi

Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit - Exercício Resolvido de Delphi

Veja mais Dicas e truques de Delphi

Como calcular porcentagem em Delphi - Como efetuar cálculos de porcentagem em Delphi

Usando a propriedade MultipleTransactionsSupported da classe TSQLConnection para verificar se o banco de dados dá suporte a múltiplas transações

Como usar a propriedade CommandType da classe TSQLDataSet para definir o tipo de comando SQL que será disparado

Como calcular o coeficiente angular de uma reta em Delphi dados dois pontos no plano cartesiano

Acessando um formulário HTML em um TWebBrowser por meio de seu índice

Como carregar uma imagem JPG, convertê-la em Bitmap e desenhá-la no formulário usando Delphi

Apostila Delphi para iniciantes - Como criar sua primeira DLL usando Delphi

Quer usar o banco de dados MySQL com Delphi? Comece lendo esta dica

Como usar a classe TSQLQuery em suas aplicações Delphi

Como usar a função GetWindow() da API do Windows para pesquisar e retornar um handle para uma janela baseado em seu título completo ou parcial usando Delphi

Dicas e truques de outras linguagens

JavaScript - Adicionando três elementos ao final de um vetor em JavaScript usando o método push() do objeto Array - Como adicionar elementos ao final de um vetor usando JavaScript - Revisado

C# - Como retornar a quantidade de itens em um ComboBox do C# Windows Forms

Java - Como usar o método next() da interface Iterator do Java para obter o próximo elemento da iteração

jQuery - Como definir o conteúdo HTML de um elemento usando a função html() do jQuery

C# - Exercícios Resolvidos de C# - Como verificar quantas vezes um valor é encontrado em um vetor - Como usar vetores e matrizes em C#

Revit C# - Como pedir para o usuário selecionar um ponto na área de desenho do Revit usando a função PickPoint() do objeto Selection da Revit C# API

Java - Como usar o método System.out.printf() do Java para converter um valor na base decimal para hexadecimal

C - Como contar as linhas de um arquivo usando a função fgetc() da linguagem C

PHP - Como excluir um diretório usando a função rmdir() do PHP

PHP - Apostila PHP para iniciantes - Como testar múltiplas condições usando a construção if...elseif...else da linguagem PHP

E-Books em PDF

E-Book 650 Dicas, Truques e Exercícios Resolvidos de Python - PDF com 1.200 páginas

Domine lógica de programação e a linguagem Python com o nosso E-Book 650 Dicas, Truques e Exercícios Exercícios de Python, para você estudar onde e quando quiser.

Este e-book contém dicas, truques e exercícios resolvidos abrangendo os tópicos: Python básico, matemática e estatística, banco de dados, programação dinâmica, strings e caracteres, entrada e saída, estruturas condicionais, vetores e matrizes, funções, laços, recursividade, internet, arquivos e diretórios, programação orientada a objetos e muito mais.

Ver Conteúdo do E-book

E-Book 350 Exercícios Resolvidos de Java - PDF com 500 páginas

Domine lógica de programação e a linguagem Java com o nosso E-Book 350 Exercícios Exercícios de Java, para você estudar onde e quando quiser.

Este e-book contém exercícios resolvidos abrangendo os tópicos: Java básico, matemática e estatística, programação dinâmica, strings e caracteres, entrada e saída, estruturas condicionais, vetores e matrizes, funções, laços, recursividade, internet, arquivos e diretórios, programação orientada a objetos e muito mais.

Ver Conteúdo do E-book

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: C
6º lugar: Delphi
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby

Você está aqui: Delphi ::: Dicas & Truques ::: Arquivos e Diretórios

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

Questões de Concurso para Engenharia Civil

Exercícios Resolvidos

Bancos de Dados

Questões de Concurso

Frameworks

Projetos e Códigos Fonte

Especializações

Calculadoras

Ferramentas

Todas as Linguagens, Frameworks, Biliotecas e Bancos de Dados

Compre pelo WhatsApp: +55 (062) 98553-6711

E-Book 350 Exercícios Resolvidos de Java - Com comentários em Português

PDF COM 500 PÁGINAS

Apenas R$ 19,90