No me acaba de funcionar, use este codigo:
Código Delphi
[-]
var hKey: Windows.HKEY;
Icon: string;
begin
Icon := 'C:\Archivos de programa\Phoenix\ListPlayer.ico,3';
RegCreateKey(HKEY_CLASSES_ROOT, '.phx\DefaultIcon', hKey);
RegSetValue(hKey, nil, REG_SZ, PChar(Icon), Length(Icon));
RegCloseKey(hKey);
end;
Salu2