É 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 GetInstallWindowsDirectory: String; var S: string; begin SetLength(S, MAX_PATH); if GetWindowsDirectory(PChar(S), MAX_PATH) > 0 then Result := string(S) else Result := ''; end; |
Exemplos de uso:
1 2 3 4 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetInstallWindowsDirectory); end; |
