Código fuente del fondo de pantalla
. 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. Obtenga 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 (directorio de programa) "reloj.
ini", "Cambiar fondo de pantalla", "Tiempo de intervalo", "")
Si ha terminado
Juzgar inicio (cuadro de radio 2. Seleccionar)
Escribir elementos de configuración (directorio del programa "clock.ini", "cambiar fondo de pantalla", "modo de visualización", "2")
Juez (buzón inalámbrico 1. Seleccionar)
Escribir configuración Elemento(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
Subrutina_Administración de fondos de pantalla_se ha creado.
Variables locales Tratar el fondo de pantalla valor del ciclo como un número entero si es verdadero (tome 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 ciclo de fondos de pantalla).
Si es verdadero (¿existe el archivo (lista de fondos de pantalla [obtener valor del ciclo de fondos de pantalla]))
Agregue un elemento al cuadro de lista 1 (lista de fondos de pantalla [obtener valor del ciclo de fondos de pantalla],)
Si es verdadero. Calcular la hora de finalización del período()
Si es verdadero (_Ventana de inicio. 2. Período de reloj > 0)
Cuadro de edición 2. Contenido = a texto (_Ventana de inicio. Período de reloj ÷ 60000)
Seleccione el cuadro 4.
Si realmente terminó
Cuadro de lista 1. Seleccione un. elemento (fondo de pantalla actual)
_Cuadro de lista 1_Listar elemento seleccionado ()
Agregar mensaje (cuadro de imagen 1. Obtener identificador de ventana (), "Haga doble clic con el mouse para borrar el fondo de pantalla", false, false)
Si es verdadero (¿puede el formulario ser transparente)
Establecer la transparencia de la ventana (obtener identificador de ventana (), 230)
Si realmente lo es over.
Subroutine_edit box 2_content ha sido cambiado (. Seleccionar cuadro 4. Seleccionar)
_Período de inicio de reloj = valor (editar cuadro 2. Contenido) × 60000.
Si es verdadero. /p>
. Subroutine_Wallpaper Management_se puede cerrar, se devuelve el tipo lógico (verdadero). Posición vertical del parámetro entero
Estado de la tecla de función del parámetro, configuración de fondo de escritorio de entero (",)
Subrutina_Hyperbutton 1_Hoja de golpe.
. 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, "; ). valor],)
Agregar miembros (lista de fondos de pantalla, guardar nombre de archivo [valor de bucle])
. Contando cola del ciclo ()
Si realmente terminó.
Subroutine_Hyperbutton2_Clicked.
Tipo de fondo de pantalla variable local
Tipo. tipo de fondo de pantalla, tipo de texto, "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 final
Encabezado del bucle de conteo (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 nombre de archivo de fondo de pantalla ≦";)
Cuadro de lista 1. Agregar elemento (el nombre del archivo del fondo de pantalla guardado en el directorio de fondos de pantalla)
Unirse a miembro (lista de fondos de pantalla, nombre del archivo de fondos de pantalla guardado en el directorio de fondos de pantalla)
Guardar nombre del archivo de fondos de pantalla = buscar archivo (,)
. Determine el final del bucle ()
. Cuente la cola del ciclo()
Si realmente ha terminado.
. Se hace clic en Subroutine_Charms3_.
. Bucle de variable local para recuperar archivos, tipo entero. si es verdadero(ListBox1.Número de elementos recuperados() > 0)
. Calcule el encabezado del bucle (cuadro de lista 1. Obtenga el número de elementos (), obtenga un número de bucle en el archivo)
Cuadro de lista 1. Seleccione un elemento (archivo de bucle-1)
. Cuente la cola del ciclo()
Si realmente ha terminado.
. Se hace clic en la subrutina_hiperbotón 4_.
. La variable local contiene una matriz de nombres de archivos, tipo de texto, "0"
. Las variables locales se nombran en un bucle y la matriz de enteros se borra (guarde la matriz de nombres de archivo).
Si es verdadero (ListBox 1. Obtener el número de elementos seleccionados () > 0)
. Calcular el encabezado del bucle (cuadro de lista 1. Tome el número de elementos () y nombre el bucle)
Si es verdadero (cuadro de lista 1. Está marcado (nombre del bucle-1) = falso)
Agregar miembros (guardar conjunto de nombres de archivos, cuadro de lista 1. obtener texto del elemento (bucle llamado -1))
. Si realmente se acabó. Calcular la hora de finalización del período()
Cuadro de lista 1. Vacío()
Borrar la matriz (lista de fondos de pantalla)
Calcular el número de cabezas de bucle (obtener el número de miembros de la matriz (guardar el nombre del archivo de la matriz) y nombrar el bucle)
Cuadro de lista 1. Agregar elemento (guardar matriz de nombres de archivos [nombre de bucle],)
Agregar miembro (lista de fondos de pantalla, guardar matriz de nombres de archivos [nombre de bucle])
. Cuente la cola del ciclo()
Si realmente ha terminado.