La extracción de iconos en lenguaje sencillo no funciona. 2da edición. Admite la biblioteca edroptarget. Admite la biblioteca eAPI. Programa de ventana 1. Subrutina __Iniciar ventana.

¡Proporcionándole código escrito sobre la marcha!

.Versión 2

.Biblioteca de soporte?iext

.Biblioteca de soporte iext2

.Biblioteca de shell de soporte

.¿Subrutina? __Iniciar ventana_Creada

SuperListBox1.Type?= ?0

.Subrutina?_Button1_clicked

. Conjunto de bytes de variables locales, conjunto de bytes

. ¿Crear un conjunto de imágenes vacío? (32,?32)

Cuadro de diálogo genérico 1. escriba ?0

.¿Si es verdadero? (Cuadro de diálogo genérico 1. ¿abrir? ())

SuperListBox1.DeleteAll?()

. Determine el primer ?(¿Extraer imagen agregada?(Byteset, Common Dialog 1.Nombre de archivo, ?i, ?) ?≠ ?

SuperListBox1.PictureSet = ?Byteset

SuperListBox1.Insert entrada de la tabla ?(,? en el texto ?(i),?i,? ,? ,?)

i?=?i?+?1

. ? ()

Título?"Número de icono:"?+texto? (i)

Cuadro de mensaje ("¡Extracción completa!",? #Icono de información,? )

.Finalizar si es verdadero

.¿Subrutina?Haga clic en _Botón 2_

Variables locales: carpeta, tipo de texto

Variable local?Número de tabla. entradas, número entero

Variable local i, número entero

Número de entradas de la tabla=?SuperListBox1.FetchNumberofEntries?()

Número de entradas ≠0) <. /p>

Carpeta = ?Examinar Carpeta? ("Examinar", ???)

.Si es verdadero?(¿carpeta? ≠? "")

.Calcular el ¿Primera vez del ciclo? (entradas de tabla, ?i)

¿Escribir en el archivo?(¿carpeta?+?"\"?+? en texto?(i?- ?1)?+?". bmp",?¿Obtener la imagen del grupo de imágenes? (SuperListBox1.PictureGroup,?i?-?1,?))

.Calcular la hora de finalización del bucle ()

. Si es verdadero, finalice

De lo contrario

¿Cuadro de información? ("¡Sin icono!",? #Icono de error,?)