Osmar J. Silva

Ofereço ajuda em Java, C/C++, Python, C#, LISP, AutoLisp, AutoCAD

+55 (062) 98553-6711

José de Angelis

Ofereço ajuda em PHP, Python, C#, JavaScript, Laravel, Google Ads e SEO

+55 (062) 98243-1195

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

Como retornar apenas a letra do drive do diretório atual

Quantidade de visualizações: 11604 vezes

A unit System do Delphi nos fornece a procedure GetDir(), usada para retornar o diretório atual. Porém, há situações nas quais precisamos obter apenas a letra do drive atual. Para esta finalidade escrevi a função obterLetraDriveAtual(), que não requer nenhum argumento e retorna a letra do drive atual. Note que incluí uma chamada a ela no evento Click de um botão para tornar o exemplo completo:

// função que permite obter a letra do drive
// atual
function obterLetraDriveAtual: Char;
var
  s: string;
  letra: Char;
begin
  GetDir(0, s);
  letra := s[1];
  Result := letra;
end;

+ Ver Código Completo - Exclusivo para Apoiadores - R$ 32,90 (12 meses de acesso)

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

Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit - Exercício Resolvido 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

Veja mais Dicas e truques de Delphi

Como retornar o texto do item selecionado em um ComboBox do Delphi

Como obter a quantidade de dias para um determinado mês e ano

Como gerar um número aleatório de 0 a 10 em Delphi usando a função Random()

Obtendo o nome de usuário do computador

Como habilitar ou desabilitar um TEdit do Delphi usando a função EnableWindow() da API do Windows

Entenda e aprenda a usar a classe TRegistry em seus programas Delphi

Como obter o conteúdo de um TEdit do Delphi em tempo de execução usando a função SendMessage() da API do Windows e a mensagem WM_GETTEXT

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

Como listar todas as janelas ativas do Internet Explorer (IE)

Como pesquisar e retornar um elemento HTML em um TWebBrowser usando o método getElementById()

Dicas e truques de outras linguagens

Java - Exercício Resolvido de Java - Como rotacionar os elementos de um vetor de inteiros n vezes para a direita - Solução usando vetor temporário

Java - Como obter o índice da primeira ocorrência de um elemento no ArrayList do Java usando o método indexOf()

PHP - Como embaralhar os elementos de um array em PHP usando a função shuffle() - Vetores e matrizes em PHP

C - Como calcular o cateto adjascente dadas as medidas da hipotenusa e do cateto oposto em C

C - Exercícios Resolvidos de C - Um método recursivo que conta de 10 até 0

C# - Como retornar a quantidade de itens em uma ListBox do C# Windows Forms usando a propriedade Count

Java - E-Book 350 _Exercícios Resolvidos_ de Java - PDF com 500 páginas

Python - Exercícios Resolvidos de Python - Ler os lados de um triângulo e informar se ele é isósceles, escaleno ou equilátero

Delphi - Como trabalhar com strings em Delphi - Como usar strings na linguagem Delphi

C - Como escrever uma função strtolower() para transformar uma palavra inteira em letras minúsculas usando a linguagem C

E-Books em PDF

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

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

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 apenas a letra do drive do diretório atual

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 650 Dicas, Truques e Exercícios Resolvidos de Python - Com comentários em Português

PDF COM 1.200 PÁGINAS

Apenas R$ 32,90