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