Esta função retorna qual a partição que o Windows está instalado.
É necessário estar declarado Windows na seção uses,
em versões unicode declare Winapi.Windows;
Abaixo segue o código fonte da função.
1 2 3 4 5 6 7 8 9 10 | 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; |
Exemplos de uso.
1 2 3 4 5 | procedure TForm1.Button1Click(Sender: TObject); begin // Exemplo de retorno: C ShowMessage(GetWindowsDrive); end; |
