Establecer un programa para una extension

[Khronos]

Mil gracias cHackAll, va de perlas. Se solucionaba con esto:

Código Delphi [-]
 App := '"'+ParamStr(0)+'" "%1"';

Tengo otra duda, como podria asignar un icono a una extension?

[[cHackAll]]

Empezado por Khronos

...Tengo otra duda, como podria asignar un icono a una extension?

Me alegra que este andando bien tu proyecto; al asignarle a una extensión una determinada aplicación, la misma adquiere el icono que la aplicación tiene, caso contrario puedes crear una clave como ésta:

Código Delphi [-]
var
 hKey: Windows.HKEY;
 Icon: string;
begin
 Icon := '%SystemRoot%\System32\shell32.dll,3';
 RegCreateKey(HKEY_CLASSES_ROOT, '.abc\DefaultIcon', hKey);
 RegSetValue(hKey, nil, REG_SZ, PChar(App), Length(App));
 RegCloseKey(hKey);
end;

Donde el ,3 estaría definido por los recursos de la librería o aplicación. tambien puedes definirlo con un archivo Icon := 'c:\micono.ico' o el nombre de tu aplicación ,0 para que tenga exactamente el icono de tu aplicacion.

Saludos

[Khronos]

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

[D-MO]

[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]Usa esta línea:
[/font]

Código Delphi [-]
Icon := 'C:\Archivos de programa\Phoenix\ListPlayer.ico';

El ,3 al final era innecesario ya que estabas llamando al icono de una vez.

Saludos.

[Khronos]

Ya lo habia probado sin el 3, pero le habia puesto comillas a la path por eso no me iba. Fallo tonto.
Muchas gracias, he solucionado el problema ahora me faltan los ultimos retoques al reproductor y pronto terminare la web para su descarga.


Salu2