Código fuente ico en lenguaje fácil

. Biblioteca de soporte eImgConverter

. Biblioteca de soporte eAPI

Biblioteca de soporte shellEx

. Soporte de biblioteca. Ensamble el conjunto de la ventana 6. Seleccione Subrutina_ListBox1_ListItem.

. Identificador de fondo de pantalla variable local, cuadro de imagen entero 1. Imagen = Leer archivo (Cuadro de lista 1. Obtener texto del elemento (Cuadro de lista 1. Obtener elemento de enfoque()))

Identificador de fondo de pantalla = Imagen cargada(Cuadro de imagen 1. Imagen)

Etiqueta 5. title = "width:" + to text (mesa de trabajo 1. Obtener ancho de imagen (identificador de fondo de pantalla))

Etiqueta 6. title = "Altura:" + al texto (mesa de trabajo 1. Obtener la altura de la imagen (controlador del fondo de pantalla))

Desinstale la imagen (controlador del fondo de pantalla). Cuadro Subroutine_List 1_Haga doble clic para seleccionar.

. Nombre del archivo de fondo de pantalla de variable local, texto del fondo de pantalla actual = cuadro de lista 1. Obtener elemento de enfoque()

El nombre de archivo del fondo de pantalla = cuadro de lista 1. Obtenga el texto del elemento (fondo de pantalla actual).

Si es verdadero (cambiar a mayúsculas (tomar el lado derecho del texto (nombre del archivo de fondo de pantalla, 4)) 8800; ".BMP")

Si es verdadero (convertir a BMP ( wallpaper Nombre del archivo, directorio del programa + "wallpaper. BMP") = 1)

Nombre del archivo del fondo de pantalla = directorio del programa + "wallpaper. BMP"

Si termina. Si se acabó

. Se inicia el juicio (cuadro de radio 1. seleccionado)

Establecer fondo de escritorio (nombre del archivo de fondo de pantalla, 1)

Juez (cuadro de radio 2. seleccionado)

Establecer escritorio fondo de pantalla (nombre del archivo de fondo de pantalla, 2)

. Predeterminado

Establecer fondo de escritorio (nombre del archivo de fondo de pantalla, 0)

Prueba finalizada

. Se hace clic en el cuadro de subrutina 4. if (casilla 4. marcada = verdadera)

_Ventana de inicio. Reloj 2. Período de reloj = al valor (cuadro de edición 2. contenido) × 60000.

Cuadro de edición 2. prohibido=false

En caso contrario.

Cuadro de edición 2. enable=true

_Iniciar ventana. Reloj 2. Ciclo de reloj = 0

Si finaliza

La subrutina _Wallpaper Management_ será destruida.

. Las variables locales guardan archivos de fondo de pantalla, tipo entero.

. Bucle de fondo de pantalla variable local, archivo de fondo de pantalla guardado de números enteros = abrir archivo (directorio de programa + "wallab.ini", 4,)

Borrar matriz (lista de fondos de pantalla)

. Si es verdadero (guardar archivo de fondo de pantalla ≠ 0)

. Primero calcule el ciclo (cuadro de lista 1. Obtenga el número de elementos (), ciclo de fondo de pantalla)

Escriba una línea de texto (guarde el archivo de fondo de pantalla, cuadro de lista 1. Dispare el texto del proyecto (ciclo de fondo de pantalla-1) )

Unirse a miembro (Lista de fondos de pantalla, Cuadro de lista 1. Obtener texto del elemento (Bucle de fondos de pantalla-1))

. Fin del período de conteo ()

Cierre el archivo (guarde el archivo de fondo de pantalla)

Si realmente terminó.

Si (casilla 4. Marque)

_Ventana de inicio. Reloj 2. Período de reloj = al valor (cuadro de edición 2. contenido) × 60000.

Escribir elementos de configuración (directorio de programas + "clock.ini", "Cambiar fondo de pantalla", "intervalo", cuadro de edición 2. contenido)

Escribir elementos de configuración (directorio de programas +" clock.ini", "cambiar fondo de pantalla", "cambio automático", "y")

En caso contrario.

_Ventana de inicio. Reloj 2. Ciclo de reloj = 0

Escribir elemento de configuración (directorio de programa + "clock.ini", "cambiar fondo de pantalla", "cambio automático", "n")

Escribir elemento de configuración (programa Directorio + "clock.ini", "cambiar fondo de pantalla", "intervalo de tiempo", "")

Si se acabó

Juzgar inicio (cuadro de radio 2. Seleccionar)

p>

Escribir elemento de configuración (Directorio de programas + "Clock.ini", "Cambiar fondo de pantalla", "Modo de visualización", "2")

Juez (Buzón inalámbrico 1. Seleccionar)

Escribir elementos de configuración (directorio de programas + "clock.

ini", "Cambiar fondo de pantalla", "Modo de visualización", "1")

. Predeterminado

Escribir elemento de configuración (Directorio de programas + "Clock.ini", "Cambiar fondo de pantalla" , "modo de visualización", "0")

Fin de la prueba

Se ha creado la subrutina_Administración de fondos de pantalla

La variable local toma el valor del período del fondo de pantalla como un número entero. Si es verdadero (obtenga el número de miembros de la matriz (lista de fondos de pantalla)> 0 Calcule el encabezado del bucle (obtenga el número de miembros de la matriz (lista de fondos de pantalla) y el valor del bucle de fondos de pantalla) Si es verdadero (existe el archivo (lista de fondos de pantalla) [obtener). valor del ciclo del fondo de pantalla]))

Agregue un elemento al cuadro de lista 1 (lista de fondos de pantalla [obtener el valor del ciclo del fondo de pantalla],)

si es verdadero.

Cuadro de edición 2. Contenido = a texto (_Ventana de inicio. Reloj 2. Período de reloj ÷ 60000)

Seleccione cuadro 4 = verdadero

Si realmente terminó.

Seleccione un elemento (fondo de pantalla actual)

_Listbox1_El elemento de la lista está seleccionado()

Agregar mensaje (cuadro de imagen 1. Obtener ventana handle (), "Haga doble clic con el mouse para borrar el fondo de pantalla", false, false)

Si es verdadero (¿puede el formulario ser transparente)

Establezca la transparencia de la ventana (GetWindowHandle(), 230)

Si realmente terminó

Subrutina_Editar cuadro 2_Contenido cambiado si es así (Seleccionar cuadro 4. Seleccionar. )

_Período de reloj = hasta. valor (cuadro de edición 2. contenido) × 60000.

. Subroutine_Wallpaper Management_puede cerrarse, el tipo lógico devuelve (verdadero). Subroutine_PictureBox1_is hace doble clic, tipo lógico

>. del parámetro de número entero

Estado de la tecla de función del parámetro, fondo de escritorio del conjunto de números enteros (",)

Se hizo clic en la subrutina _ Hiperbotón 1_.

. La variable local toma el nombre del archivo abierto de tipo texto.

. La variable local contiene el nombre del archivo, tipo de texto, "0"

. La variable local se repite para tomar el valor, el número entero toma el nombre del archivo abierto = abre el cuadro de diálogo de múltiples archivos (administración de fondos de pantalla. Tome el identificador de la ventana (), "Seleccione el fondo de pantalla para agregar", "JPG, BMP, ICO |*.JPG; *.BMP *.ICO ",)

Si es verdadero (tome el nombre del archivo abierto 8800; " ")

Guarde el nombre del archivo = texto dividido (tome el nombre del archivo abierto, "; ), )

. Calcule el encabezado del bucle (tome el número de miembros de la matriz (guarde el nombre del archivo) y recorra los valores)

Agregue elemento (guarde nombre de archivo [bucle] valor],)

Agregar miembros (lista de fondos de pantalla, guardar nombre de archivo [valor de bucle])

Contando cola del ciclo ()

Si. realmente ha terminado.

. Subroutine_Hyperbutton2_Clicked.

Tipo de fondo de pantalla variable local

Tipo

. tipo, "4"

La variable local guarda el nombre del archivo del fondo de pantalla, tipo de fondo de pantalla de texto = {"*. jpg "," *. BMP "," *. ico"}.

Directorio de fondos de pantalla = Explorar carpeta ("Seleccione un directorio para buscar fondos de pantalla", verdadero)

Si es verdadero (Directorio de fondos de pantalla ≦ "")

Si es verdadero (tome el lado derecho del texto (directorio de fondos de pantalla, 1) 8800; " \ ")

Directorio de fondos de pantalla = directorio de fondos de pantalla + "\ "

Si es verdadero Se acabó.

Contar encabezado de bucle (4, obtener nombre de archivo)

Guardar nombre de archivo de fondo de pantalla = buscar archivo (directorio de fondo de pantalla + tipo de fondo de pantalla [obtener nombre de archivo],)

Juzgar encabezado de bucle (guardar fondo de pantalla) Nombre de archivo ≦";)

Cuadro de lista 1. Agregar elemento (directorio de fondos de pantalla + nombre de archivo del fondo de pantalla guardado)

Agregar miembro (lista de fondos de pantalla, directorio de fondos de pantalla + nombre de archivo de fondo de pantalla guardado) )

Guardar nombre del archivo de fondo de pantalla = buscar archivo (,)

Determinar el final del ciclo ()

Fin del ciclo de conteo ()

Si es verdadero.

Se hace clic en la subrutina _charm3_.

El bucle de variable local recupera el archivo si es verdadero (listbox1. .Número de elementos recuperados () > 0)

Calcular el encabezado del bucle (cuadro de lista 1. Obtener el número de elementos (), obtener un número de bucle en el archivo)

Cuadro de lista 1. Seleccione un elemento (archivo de bucle-1,) <. /p>

Fin del ciclo de conteo()

Se hace clic en Subroutine_Hyperbutton. 4_

. La variable local guarda la matriz de nombres de archivo, tipo de texto, "0". , el número entero borra la matriz (guarda la matriz del nombre del archivo).

Si es verdadero (ListBox 1. GetNumber of Selected Items() > 0)

Calcula el encabezado del bucle (ListBox 1. GetNumber of). Items() y nombre el bucle)

Si es verdadero (cuadro de lista 1. Si (nombre del bucle-1) = falso)

Agregar miembro (guardar matriz de nombre de archivo, cuadro de lista). 1. Obtener el texto del elemento (el bucle se llama -1))

Calcular la hora de finalización del ciclo()

Vacío()

Matriz (fondo de pantalla lista)

Calcular el número de cabezas de bucle (obtener el número de miembros de la matriz (guardar el nombre del archivo matriz) y nombrar el bucle)

Agregar elemento al cuadro de lista 1 (guardar el nombre del archivo) matriz [. nombre del bucle],)

Agregar miembro (lista de fondos de pantalla, guardar matriz de nombre de archivo [nombre del bucle])

Contar cola del ciclo()

Si cierto. Se acabó.