Solo una cosa mas, esta forma de asignar la imagen del icono:
Código:
Image1->Picture->Icon ->Handle = hIcon;
Puede dar problemas con el nº de colores para algunas versiones de Builder antiguas. Funciona bien para iconos de 16 colores pero si tiene mas, se reducen, al menos en BCB 5 y 6. Me imagino que en delphi 5 y 6 pasará lo mismo. Creo que las versiones de 2008 no tienen este problema.
Para solventar este problema escribí una
función que mapea un HICON en memoria según un HDC concreto.
Si en tu Builder 2007 no tienes ese problema, pues perfecto. Si es así dímelo.
Saludos.
PD:
La idea de cHackAll:
Cita:
Empezado por cHackAll
Tambien te tocara revisar la API ShellAPI.FindExecutable
|
Te puede servir para aquellos iconos desde su ejecutable, claro que lños que estén en el resource del mismo ejecutable. A mi me parece también una buena opción.