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

.