Dateiendung .mp3 Registrierung klappt nicht!

[S2B]

Also ich hätte das so gemacht:

Delphi-Quellcode:

   
  regist:=TRegistry.Create;
  With regist do
  try
    RootKey:=HKEY_CLASSES_ROOT;
    OpenKey('.mp3', true);
    WriteString('', 'Programmname');
    CloseKey;
    OpenKey('Programmname', true);
    WriteString('', 'MP3-Datei');
    OpenKey('DefaultIcon', true);
    WriteString('', 'Pfad zum Icon');
    CloseKey;
    OpenKey('Programmname\Shell\Open', true);
    WriteString('', 'Mit Programm öffnen');
    CloseKey;
    OpenKey('Programmname\Shell\Open\Command', true);
    WriteString('', '"Pfad zur exe-Datei" "%1"');
    CloseKey;
  finally free;
  end;

Gruß
S2B