Dateiendung .mp3 Registrierung klappt nicht!

[dadu]

Hi Leute.
Will die Dateiendung .mp3 mit meinem Programm und meinem ICON verknüpfen
[Wenn man also eine mp3 im Explorer sieht, hat diese mein Icon; bei doppelklick wird mein Programm geöffnet!]

Hab mir auch aus dem Netz folgenden Code geholt:

Code:

function tmainform.InstallExt(Extension, ExtDescription, FileDescription,
  OpenWith, ParamString: string; IconIndex: Integer): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      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 + '"');
    end;
    Result := True;
  except
    Result := False;
  end;
  Reg.Free;
end;

der hat auch immer funktioniert, doch wenn ich jetzt den MS Mediaplayer oder Winamp starte, und diese dann sofort .mp3 mit sich selbst wieder verknüpfen, funzt der Code nicht mehr( Bei erneutem Öffnen meines Programms und ausführen der oben genannten Routine!)

Also: Was machen die großen Player, damit ihr ICON sofort angezeigt wird, und das jede mp3 mit dem jeweiligen Player geöffnet wird???

DaDu