Delphi 7 - pegando o diretório Arquivos de Programas (ProgramFilesDir)

Para pegar o nome da pasta Arquivos de programas em tempo de execução (se é Program Files ou Arquivos de Programas, e em qual unidade está), basta seguir o exemplo abaixo.

var
Reg := TRegistry;
pProgramFilesDir: String
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
pProgramFilesDir := Reg.ReadString('ProgramFilesDir');
Reg.CloseKey;
Reg.Free;
end;

Vai retornar, por exemplo: C:\Arquivos de Programas ou C:\Program Files.


Napa