Ver Mensaje Individual
  #1  
Antiguo 11-04-2004
verm83 verm83 is offline
Miembro
 
Registrado: nov 2003
Posts: 28
Reputación: 0
verm83 Va por buen camino
un CPL que no muestra el icono en el Panel de control

Buenas. Tengo una aplicación ya programada, y he conseguido hacer de ella una DLL (renombrada a CPL), para poderla ejecutar desde el panel de control. He seguido los pasos de un "truco" de la web Q3, que consistía en hacer una serie de cambios en el código del proyecto, para indicar que era una library (no un program) y añadir código de configuración del CPL. El caso es que funcionar funciona perfecto, pero el icono que se muestra en el Panel de control es el que trae Delphi por defecto. Antes hacer los cambios para crear la DLL, configuré el icono desde las opciones de proyecto, así como el que aparece en el formulario, y compilando a EXE funciona bien, pero a DLL no. ¿Por qué puede ser? Parte del código añadido al proyecto, y que configura el icono es este:


Código:
        // Devolvemos info de nuestro icono
        CPL_NEWINQUIRE:
        begin
            NewCplInfo:=PNewCplInfo(lParam2);
            with NewCplInfo^ do
                begin
                    dwSize:=SizeOf(TNewCplInfo);
                    dwFlags:=0;
                    dwHelpContext:=0;
                    lData:=0;
                    // El icono de nuestra aplicacion
                    hIcon:=LoadIcon(HInstance,'MAINICON');
                    // Nombre del applet CPL
                    szName:='Nombre de la aplicación';
                    // Descripción
                    szInfo:='Descripción de la aplicación';
                    szHelpFile:='';
                end;
        end;
¿Alguna sugerencia? Gracias de antemano
__________________
IncestoCanibal.com
Responder Con Cita