易语言自动壁纸源码

系统结构:重写配置,置自动运行,取消自动运行,是否自动运行,查找项目,取坐标行号,添加桌面右键菜单,取消桌面右键菜单,写注册项文本,读注册项文本,系统参数,发送消息_文本,寻找顶级窗口_,判断窗口句柄_,关闭注册表项_,创建指定注册表项扩展_,发送消息_整数,置注册项文本_,打开注册表项扩展_,取注册项数据值_,取注册项文本值_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 重写配置
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ _列表框1_双击选择
           |  |
           |  |------ _删除_被选择
           |  |
           |  |------ _列表框1_鼠标右键被按下
           |  |
           |  |------ _编辑框1_放开某键
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _选择框2_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 置自动运行
           |  |
           |  |------ 取消自动运行
           |  |
           |  |------ 是否自动运行
           |  |
           |  |------ 查找项目
           |  |
           |  |------ 取坐标行号
           |  |
           |  |------ 添加桌面右键菜单
           |  |
           |  |------ 取消桌面右键菜单
           |  |
           |  |------ 写注册项文本
           |  |
           |  |------ 读注册项文本
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   系统参数
           |  |
           |  |---[dll]------   发送消息_文本
           |  |
           |  |---[dll]------   寻找顶级窗口_
           |  |
           |  |---[dll]------   判断窗口句柄_
           |  |
           |  |---[dll]------   关闭注册表项_
           |  |
           |  |---[dll]------   创建指定注册表项扩展_
           |  |
           |  |---[dll]------   发送消息_整数
           |  |
           |  |---[dll]------   置注册项文本_
           |  |
           |  |---[dll]------   打开注册表项扩展_
           |  |
           |  |---[dll]------   取注册项数据值_
           |  |
           |  |---[dll]------   取注册项文本值_

调用的DLL命令:

.DLL命令 系统参数, 整数型, , "SystemParametersInfoA"
    .参数 uAction
    .参数 uParam
    .参数 lpvParam, 文本型
    .参数 fuWinIn

.DLL命令 发送消息_文本, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 文本型, , 具体取决于消息;

.DLL命令 寻找顶级窗口_, 整数型, "user32.dll", "FindWindowA", , FindWindow,寻找窗口列表中第一个符合指定条件的顶级窗口
    .参数 窗口类名, 文本型, , lpClassName，参见相关帮助
    .参数 窗口文本, 文本型, , lpWindowName，参见相关帮助

.DLL命令 判断窗口句柄_, 逻辑型, "user32.dll", "IsWindow", , 判断一个窗口句柄是否有效
    .参数 窗口句柄, 整数型, , hwnd,待检查窗口的句柄

.DLL命令 关闭注册表项_, 整数型, "advapi32.dll", "RegCloseKey", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 关闭项句柄, 整数型, , hKey，要关闭的项句柄

.DLL命令 创建指定注册表项扩展_, 整数型, "advapi32.dll", "RegCreateKeyExA", , 在指定项下创建新项的更复杂的方式。在Win32环境中建议使用这个函数。如指定的项已经存在，则函数会打开现有的项
    .参数 项句柄, 整数型, , 一个打开项的句柄，或者一个标准项名
    .参数 新子项名称, 文本型, , 欲创建的新子项的名字
    .参数 保留参数, 整数型, , 设为零
    .参数 项类名, 文本型, , 项的类名
    .参数 选项标志, 整数型, , 下述常数为零：REG_OPTION_VOLATILE——这个项不正式保存下来，系统重新启动后会消失
    .参数 常量标志, 整数型, , 带有前缀KEY_??的一个或多个常数。它们组合起来描述了允许对这个项进行哪些操作
    .参数 security特性结构, , , SECURITY_ATTRIBUTES，对这个项的security特性进行描述的一个结构（用ByVal As Long传递空值）。不适用于windows 95
    .参数 新子项变量, 整数型, 传址, 指定用于装载新子项句柄的一个变量
    .参数 常数变量, 整数型, 传址, 用于装载下列某个常数的一个变量

.DLL命令 发送消息_整数, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 置注册项文本_, 整数型, "advapi32.dll", "RegSetValueExA"
    .参数 标准项名或项句柄, 整数型, , hKey
    .参数 值名称, 文本型, , lpValueName
    .参数 保留参数, 整数型, , Reserved
    .参数 类型, 整数型, , dwType
    .参数 数据值, 文本型, , lpValue
    .参数 数据值长度, 整数型, , cbData

.DLL命令 打开注册表项扩展_, 整数型, "advapi32.dll", "RegOpenKeyExA", , 打开一个现有的项。在win32下推荐使用这个函数
    .参数 项句柄, 整数型, , 一个已打开项的句柄，或指定一个标准项名
    .参数 子项名称, 文本型, , 欲打开注册表项的名字
    .参数 保留参数, 整数型, , 未用，设为零
    .参数 常量标志, 整数型, , 带有前缀KEY_??的一个或多个常数。它们的组合描述了允许对这个项进行哪些操作
    .参数 新子项变量, 整数型, 传址, 用于装载打开项的名字的一个变量

.DLL命令 取注册项数据值_, 整数型, "advapi32.dll", "RegQueryValueExA"
    .参数 标准项名或项句柄, 整数型, , hKey
    .参数 值名称, 文本型, , lpValueName
    .参数 保留参数, 整数型, , lpReserved
    .参数 类型, 整数型, 传址, lpType
    .参数 数据, 整数型, 传址, lpData，Any
    .参数 数据长度, 整数型, 传址, lpcbData

.DLL命令 取注册项文本值_, 整数型, "advapi32.dll", "RegQueryValueExA"
    .参数 标准项名或项句柄, 整数型, , hKey
    .参数 值名称, 文本型, , lpValueName
    .参数 保留参数, 整数型, , lpReserved
    .参数 类型, 整数型, 传址, lpType
    .参数 文本数据, 文本型, , lpData
    .参数 文本数据长度, 整数型, 传址, lpcbData