Wichtige Ordnerpfade auslesen

Erklärung
bei HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion findet man wichtige Informationen über das Windows System. Diese Pfade werden ausgelesen und mit den Labeln 1-5 wieder ausgegeben.

Quelltext
Wichtig: In die Uses-Klausel REGISTRY aufnehmen
  uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var R: TRegistry;
begin
  R := TRegistry.create;
  R.RootKey := HKEY_LOCAL_MACHINE;
  R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',true);

  //Liefert C:\Programme\
  Label1.Caption := R.ReadString('ProgramFilesDir');

  //Liefert C:\Windows\Media\
  Label2.Caption := R.ReadString('MediaPath');
  R.CloseKey;

  R.RootKey := HKEY_CURRENT_USER;
  R.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',true);

  //Liefert C:\Windows\Desktop\
  Label3.Caption := R.ReadString('Desktop');

  //Liefert  C:\Windows\Start Menü\
  Label4.Caption := R.ReadString('Start Menu');

  //Liefert C:\Windows\Verlauf
  Label5.Caption := R.ReadString('History');

  R.free;
end;