Dateiendung .mp3 Registrierung klappt nicht!

[dadu]

Hab die Antwort selbst gefunden:

Benutzt folgenden Code und ihr setzt euch gegen alle großen Programme durch

Überall wo "DaDuMediaPlayer5" muss dann euer Name rein

Delphi-Quellcode:

     function tmainform.InstallExt(Extension, ExtDescription, FileDescription,
  OpenWith, ParamString: string; IconIndex: Integer): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
   
 //Normale Teil
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(Extension, True);
      WriteString('', ExtDescription);
      OpenKey('\' + ExtDescription, True);
      WriteString('', FileDescription);
      OpenKey('DefaultIcon', True);
      WriteString('', OpenWith + ',' + IntToStr(IconIndex));
      OpenKey('\' + ExtDescription + '\Shell\Open\Command', True);
      WriteString('', '"' + OpenWith + '" "' + ParamString + '"');
   
 //Neu Teil

      RootKey := HKEY_Current_User;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\',
        True);
      if KeyExists('.mp3') then DeleteKey('.mp3');
      RootKey := HKEY_Local_Machine;
      OpenKey('\Software\Classes\DaDuMediaPlayer5\DefaultIcon', true);
      WriteString('', Application.ExeName + ',' + IntToStr(1));//Pfadname+ Iconindex
      OpenKey('\Software\Classes\DaDuMediaPlayer5\Shell\Open\Command', true);
      WriteString('', '"' + Application.ExeName + '" "' + '%1' + '"');
      OpenKey('\Software\Classes\.mp3', true);
      WriteString('', 'DaDuMediaPlayer5');
      OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.mp3', True);
      WriteString('', 'DaDuMediaPlayer5');
      SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);// aktuallisiert die Icons
    end;
    Result := True;
  except
    Result := False;
  end;
  Reg.Free;
end;

Funzt perfekt!
Hab mir einfach mal angeguckt wo Windows dieses Öffnen mit aus der Systemsteuerung in der registry speichert

Zitat:

Stichwort Resourcenschutzblock

Was ist das?