Quiero extraer un ícono de un archivo usando un lenguaje simple y mostrarlo en una ventana de DirectUI
GeneralDialog1.InitialDirectory = Seleccionar un directorio específico (#SystemDesktop) ' Ignorar este código
GeneralDialog1.FileName = "" ' Borrar el último registro
. If (gdb1.open ())
recuento de iconos = extraer iconos del archivo de recursos (gdb1.filename, , , ) ' Obtener el número de iconos
.Count Loop First (número de iconos, n1) ' Escribe cada icono en el escritorio (puedes cambiarlo)
Extrae los iconos del archivo de recursos (diálogo genérico1.nombre de archivo, 0, toma un directorio específico (#SystemDesktop) + al texto (n1) + " .ico", número de iconos)
.Contar fin de bucle ()
Eso es todo
.