[[seoane]]

Una forma sencilla de hacerlo:

Código Delphi [-]
var
  Str: String;
begin
  Str:= GetEnvironmentVariable('Programfiles');
end;