Obter a letra do drive onde está o Windows no Delphi

Inclua na seção uses: Windows

Como saber em qual unidade de disco (drive) o Windows está
instalado?



Esta função retorna a letra do drive onde está instalado o
Windows:

function GetWindowsDrive: Char;
var
  S: string;
begin
  SetLength(S, MAX_PATH);
  if GetWindowsDirectory(PChar(S), MAX_PATH) > 0 then
    Result := string(S)[1]
  else
    Result := #0;
end;

{ Exemplo de uso: }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetWindowsDrive;
end;