Pues muchas gracias escafandra, la función que dejaste se ve interesante, pero me gusto mas la idea que presentaste sobre obtener la dirección e índice del icono de una extensión desde el registro (muy buena idea, yo ni si quera sabia que se podía), así podría extraer y guardar los iconos que use en una especie de cache, y para obtener el tamaño de la imagen que quiero solo usaría el siguiente código.
Código:
Image1->Picture->Icon ->Handle=LoadImage(NULL, "C:\\txt.ico",
IMAGE_ICON, 128, 128,
LR_LOADFROMFILE | LR_CREATEDIBSECTION);
Lo intento de esta forma y les cuento.