Der Pfad heisst sicher anders:
C:\Program Files (x86)\
C:\Program Files\
GetEnvironmentVariable('ProgramFiles');
Mit einem 32Bit-Programm bekommst Du die erste Zeile als Ergebnis,
mit einem 64Bit-Programm bekommst Du die zweite Zeile als Ergebnis.
Mit folgendem Code bekommt man das gleiche Ergebnis:
Delphi-Quellcode:
function GetProgramFilesDir: string; // uses Registry
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
Result := reg.ReadString('ProgramFilesDir');
finally
reg.Free;
end;
end;