Examples Delphi

Question:
How can determine the standard programs directory (e.g. one of the following)
C:\Programs
C:\Program Files
C:\Programme // German
Answer:
Read the registry on path HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\
And read the value of: ProgramFilesDir