Icono de lenguaje sencillo

.Versión 2

.Soporta biblioteca eSkin

.Soporta biblioteca xplib

.Soporta biblioteca shell

.Soporta eAPI.Programa de ventana Assemblies Episodio 1

. Nombre real de la variable ensambladora, tipo de texto

Número de iconos de la variable ensambladora, entero. Subroutine__Launch Window_Create_Write_To_File (tomar el directorio de ejecución () "skn", #skins)

Easy_Skin_Load_Skin (tomar el directorio de ejecución () "skn", )

Estilo XP (3)

Cuadro de edición 1.content = tomar un directorio específico (3). Se hace clic en la subrutina _abrir_

. Nombre de archivo de variable local, tipo de texto

. Variable local n, cuadro de imagen entero 1.picture = { }

Cuadro de diálogo general 1.filter = "Archivo de recursos (*.dll; *.exe)|*.dll; *.exe"

.Si es verdadero (GD1.Open ())

Nombre de archivo = GD1.Filename

Nombre real = Tome el nombre corto de archivo (nombre de archivo) ".ico"

n = Extraer el icono del archivo de recursos (nombre de archivo, 0, tomar el nombre real de un directorio específico (#directorio de archivos temporales), )

.

. )

.If (n = 0)

Cuadro de mensaje ("Este archivo no tiene icono", 0,)

En caso contrario

<. p> Cuadro de imagen 1.Imagen = Leer el archivo (tome el nombre real del directorio específico (#directorio de archivos temporales)). Si se acaba. Si es verdadero, final

Número de iconos = 0

EditBox2.Content = GeneralDialog1.FileName

Número de iconos = Extraer iconos del archivo de recursos (EditBox2.Content, 1 , , )

.If (número de iconos > 0)

Cuadro de mensaje ("Este archivo contiene el icono "para enviar texto (número de iconos)" a***... ..", #Iconos de información, "Felicitaciones...")

. En caso contrario

cuadro de mensaje ("No hay iconos en este archivo...", #Advertencia. iconos, " Mensaje")

.Si finalizó.

La subrutina obtiene un nombre de archivo corto, tipo de texto

nombre de archivo de parámetro, tipo de texto

variable local m, tipo de texto

. m = texto derecho (nombre de archivo, longitud del texto (nombre de archivo) - texto inverso (nombre de archivo, "\", falso))

Nombre de archivo corto = texto izquierdo (m, texto inverso (m, "."))

nombre de archivo corto = llevar el texto a la izquierda (m, texto inverso (m, ". "))

nombre de archivo corto = llevar el texto a la izquierda (m, texto inverso ( m, ". "))

." , false) - 1)

Retorno (nombre corto de archivo). Subrutina _save_clicked

.Número de serie de la variable local , entero

Examinar carpeta ("Seleccione la carpeta para guardar")

.Cuenta el bucle la primera vez (número de icono, número de secuencia)

Extraer ícono de archivo de recursos (editbox2.content, 0, editbox1.content "icon" a texto (número de serie) ".ico", número de serie)

_Ventana de inicio = "Extrayendo:" EditBox1.Content ". Icono" a Texto (Número de serie) ".ico"

Retraso (20)

.Fin del bucle de conteo ()

_Ventana de inicio .Título = "Archivo Extractor de íconos"

Cuadro de mensaje ("Extracción del ícono completada...", # ícono de mensaje, "Felicitaciones...")

.