Obtener el icono de Windows dado una extensión

[[David]]

Hola

En nuestro windows, cada vez que aplicamos una extensión, nos da un icono correspondiente, y sino tiene icono por ser una extensión no reconocida, pues nos da siempre el icono ese de windows que no corresponde a ningún programa en concreto.

El caso es que dado una extensión dada, me gustaria recuperar el icono, así pues sería una función que devuelve un componente TIcon, para dibujar el icono en otra parte.

Atención, sólo tengo la extensión no el archivo, no me valdría para nada la función ExtractAssociatedIcon, pues esta devuelve un icono a partir de un archivo situado en el disco duro, pero lo que yo tengo es una DBGrid con un campo, Files, que contiene el nombre de cada archivo, eje. Rutas.doc, Planos.pdf, Balance.xls, etc...

Estoy buscando por internet y lo mejor que he visto por ahora es esto

http://www.jpgriffiths.com/tutorial/...iatedicon.html

pero no me vale, porque la función no devuelve un icon sino un string y además, no contempla sólo las extensiones sino que vuelve a la función de la Api ExtractAssociatedIcon, que realmente no me sirve.

Un saludo