Icono asociado a un archivo

"Arturo Carrión" escribió:

He estado investigando sin exito cómo obtener el icono asociado a esos
archivos ...

Hola, Arturo:

La solución la tienes en la función API «SHGetFileInfo». Échale un vistazo a
la siguiente búsqueda de mensajes, para ver si encuentras algún ejemplo:

http://groups.google.com/group/micr...amp;qt_g=1

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

yo se como se puede obtener el icono de cualquier archivo...lo logre de
esta manera:

=
Option Explicit

Const DI_MASK = &H1
Const DI_IMAGE = &H2
Const DI_NORMAL = DI_MASK Or DI_IMAGE
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias
"ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As
String, lpiIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long,
ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal
cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long,
ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long)
As Long



Private Sub Form_Paint()

Dim mIcon As Long

mIcon = ExtractAssociatedIcon(App.hInstance, AQUI PONES LA RUTA DEL
ARCHIVO, 2)

DrawIconEx Me.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL


DestroyIcon mIcon

End Sub



el problema mio es que necesito guardar el icono como si fuera una
imagen... y no he tenido exito...por favor si alguien sabe como hacerlo
le estaria muy agradecido

att: ekud