Ejemplos usando el Api de windows para Visual basic

68 - Extraer iconos usando el Api

Volver al Listado Api - Anterior - Siguiente

Ejemplo que muestra como extraer los iconos de archivos usando principalmente el Api ExtractAssociatedIcon.

Esta función por que lo que estuve ojeando y probando, si el archivo a extraer no contiene iconos, extrae el icono asociado al archivo.

En el ejemplo se utiliza la función anterior para extraerlo, esta a su ves devuelve un handle de dicho grafico. Luego con ese handle se utiliza el Api DrawIconEx para dibujarlo en un control Picture a mediada que se va recorriendo en un bucle.

La imagen del ejemplo que extrae los iconos del archivo vb6.exe

vista del ejemplo para extraer los archivos de iconos utilizando el api ExtractAssociatedIcon y DrawIconEx

La función ExtractAssociatedIcon en el primer parámetro se le envía la instancia de la aplicación, en este caso le pasamos App.hInstance, El segundo es el path del archivo. El tercero es el número o index del archivo de icono, es decir la posición dentro del archivo que se va a extraer. En el ejemplo, como se hace en un bucle, se le pasa la variable i del For-Next.

La otra función DrawIconEx que dibuja en el PictureBox, tiene los siguientes parámetros:

El primero es el Hdc del control donde dibujarlo, en este caso le pasamos Picture1.hdc. El segundo y tercer es la posición x e y dentro del HDC, es decir del picture1. Los siguientes 2 parámetros son el ancho y alto. Los últimos 3 parámetros no tengo idea. En el Msdn debe estar documentado.

En el ejemplo, el ancho y alto está establecido en 32 x 32.

Por último, cada ves que se extrae un icono , se utiliza la función Api DestroyIcon que lleva como parámetro el handle.

Controles

Un Picturebox
un Textbox
un CommonDialog
un Command1
un Command2
un Combobox

Código fuente en un form:

Option Explicit 'Constantes para las Api '*********************** Const DI_MASK = &H1 Const DI_IMAGE = &H2 Const DI_NORMAL = DI_MASK Or DI_IMAGE 'Declaraciones Api: '********************* 'Api que Extrae archivos de iconos Private Declare Function ExtractAssociatedIcon _ Lib "shell32.dll" _ Alias "ExtractAssociatedIconA" ( _ ByVal hInst As Long, _ ByVal lpIconPath As String, _ lpiIcon As Long) As Long 'Dibuja un icono en un HDC, en este caso en un PictureBox 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 'Destruye el handle del icono obtenido antes con DrawIconEx Private Declare Function DestroyIcon Lib "user32" ( _ ByVal hIcon As Long) As Long Private Sub Extraer_Icono(nIcono As Integer) 'Handle para el icono Dim mIcon As Long, nIconos As Integer, x As Integer, y As Integer, i As Long With Picture1 .ScaleMode = vbPixels .AutoRedraw = True .Cls End With x = 0 y = 0 If Text1 = "" Then MsgBox "Seleccione un archivo que contenga iconos" Exit Sub End If For i = 0 To nIcono - 1 'Extraemos el icon asociado al archivo. _ El ultimo parametro busca mas dentro del archivo mIcon = ExtractAssociatedIcon(App.hInstance, Text1, i) 'Dibujamos los iconos en el PictureBox DrawIconEx Picture1.hdc, x, y, mIcon, 32, 32, 0, 0, DI_NORMAL x = x + 32 If x >= Picture1.ScaleWidth - 32 Then y = y + 32: x = 0 'Remueve el icono de la memoria DestroyIcon mIcon DoEvents Next Picture1.Refresh End Sub Private Sub Command1_Click() Extraer_Icono CInt(Combo1) End Sub Private Sub Command2_Click() With CommonDialog1 .ShowOpen If .FileName = "" Then Exit Sub Text1 = .FileName End With End Sub Private Sub Form_Load() Dim i As Integer For i = 1 To 500 Combo1.AddItem i Next Text1 = "" Combo1 = Combo1.List(0) End Sub

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb