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