Registry: Standard Parameter?

[Moyyer]

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

[sakura]

Die Suche hätte Dir auch geholfen, aber hier die Anwort:e1 := reg.Readstring(''); ......

[Moyyer]

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