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

[SubCash 0]

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; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('A letra do drive atual é: ' + obterLetraDriveAtual); end;

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