Ersetzen von %USERPROFILE% verhindern

[Alexander Lohnes]

Hallo.

Ich lese zum Speichern einer Datei die Registry aus um den Speicherort zu erfahren.

regist:=TRegistry.Create;
regist.rootKey:=HKEY_CURRENT_USER;
regist.openkey('Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders',true);
savedialog1.InitialDir:=regist.ReadString('AppData')+'\Meine Anwendung';
if not DirectoryExists(savedialog1.initialdir) then begin
createdir(savedialog1.initialdir);

Leider schreibt er mir in Savedialog1.initialdir den Wert "%USERPROFILE%\Anwendungsdaten\Meine Anwendung rein und das Erstellen des Ordners geht schief. Wie kann ich das Ersetzen des Strings verhindern? In der Registry stehen die absoluten Pfade (C:\Dokumente und Einstellungen\...\Anwendungsdateien) drin.

Vielen Dank für eure Anregungen.

Gruß,

Alex