Miniaturas de Word/Excel, etc.
 

Hola gente!

Estoy desarrollando una aplicación en la que necesito las miniaturas (Thumbnails) de los archivos de una carpeta. Al darle doble click sobre la imagen, abre el archivo con ShellExecute.

He visto este ejemplo:
http://www.delphi3000.com/articles/article_3806.asp?SK=

Funciona correctamente con archivos de imágenes y de PDFs.
Si hay un Word, Excel, Text por ejemplo solo me devuelve el icono de la aplicación que lo abre.

Al grano: Alguien sabe como obtener miniaturas de archivos Word, Excel, Text?