Delphi-PRAXiS - Delphi Registry: Standard Parameter?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Registry: Standard Parameter? (https://www.delphipraxis.net/6102-registry-standard-parameter.html)

Registry: Standard Parameter?

Ich habe hier den Code:

Code:

			procedure toptionen.dateiendung(en: string);

var f1: textfile;

    reg: TRegistry;

    e1: string;

begin

    if fileexists(s1 + '/standart.txt')

    then next

    else begin rewrite(f1, s1 + '\standart.txt');

               reg := TRegistry.Create;

               reg.RootKey := HKEY_CLASSES_ROOT;

               reg.OpenKey('mp3file\shell\open\command',false);

               e1 := reg.Readstring('(Standard)');

               writeln(f1, e1);

               reg.Free;

               closefile(f1);

         end;

end;

Mit dem Code möchte ich, dass der Wert, der in Standard gespeichert ist (z.B WINDOWS MEDIA PLAYER) ausgelesen wird und falls die Datei noch nicht vorhanden ist neuerstellt und gespeichert wird. Doch das Programm liefert mir nichts zurück.
Woran kann das liegen? Wie liesßt man Stadardwerte aus?
MFG Moyyer

Die Suche hätte Dir auch geholfen, aber hier die Anwort:

Delphi-Quellcode:

e1 := reg.Readstring('');

...:cat:...

Danke für doe Hilfe. Aber wenn ICH suche finde ich nie das was ich will!!!
:coder: