易语言atwp_斩月源码,易语言文件配置读写模块源码

易语言文件配置读写模块源码

系统结构:窗口函数,周期事件,取壁纸数,重写配置,程序是否运行,取执行文件路径,注册窗口类,整数到文本,添加桌面右键菜单,取消桌面右键菜单,写注册项文本,读注册项文本,删除注册项_,文件是否存在_,系统参数,打开事件同步对象_,创建事件同步对象_,取命令行_,取模板完整路径_,寻找顶级窗口_,发送消息_整数,MessageBox,删除路径文件名_,创建窗口_,设置时钟_指针,中断获取消息_,获取消息_,解释消息_,分派消息_,销毁时钟_,wvsprintfA,调用窗口过程_,注册窗口类_,关闭注册表项_,创建指定注册表项扩展_,打开注册表项扩展_,取注册项文本值_,置注册项文本_,取文本长度_,取注册项数据值_,查找文件_,关闭搜索句柄_,关闭句柄_,删除指定注册表项_,取字节集指针,取文件尺寸_,整数到文本,置文件名,写文本,写数值,读文本,读数值,删除小节,删除项目,取项目列表,取小节列表,创建或修改配置文件,读配置整数,读配置文本,删配置文件项,删配置文件小节,目录是否存在_,取配置项列表_,取进程堆栈句柄_,删除路径文件名_,取配置节列表_,取内存变量地址_字节集,拷贝内存_整数,打开文件_,API_取文件长度,关闭句柄_,wvsprintfA,拷贝内存_文本,取文本长度_,删文本首尾空_,拷贝内存_文本1,寻找文本串_,寻找文本_,

======程序集1
| |
| |------ _启动子程序
| |
| |------ 窗口函数
| |
| |------ 周期事件
| |
| |------ 取壁纸数
| |
| |------ 重写配置
| |
| |
======程序集2
| |
| |------ 程序是否运行
| |
| |------ 取执行文件路径
| |
| |------ 注册窗口类
| |
| |------ 整数到文本
| |
| |------ 添加桌面右键菜单
| |
| |------ 取消桌面右键菜单
| |
| |------ 写注册项文本
| |
| |------ 读注册项文本
| |
| |------ 删除注册项_
| |
| |------ 文件是否存在_
| |
| |
======调用的Dll
| |
| |---[dll]------ 系统参数
| |
| |---[dll]------ 打开事件同步对象_
| |
| |---[dll]------ 创建事件同步对象_
| |
| |---[dll]------ 取命令行_
| |
| |---[dll]------ 取模板完整路径_
| |
| |---[dll]------ 寻找顶级窗口_
| |
| |---[dll]------ 发送消息_整数
| |
| |---[dll]------ MessageBox
| |
| |---[dll]------ 删除路径文件名_
| |
| |---[dll]------ 创建窗口_
| |
| |---[dll]------ 设置时钟_指针
| |
| |---[dll]------ 中断获取消息_
| |
| |---[dll]------ 获取消息_
| |
| |---[dll]------ 解释消息_
| |
| |---[dll]------ 分派消息_
| |
| |---[dll]------ 销毁时钟_
| |
| |---[dll]------ wvsprintfA
| |
| |---[dll]------ 调用窗口过程_
| |
| |---[dll]------ 注册窗口类_
| |
| |---[dll]------ 关闭注册表项_
| |
| |---[dll]------ 创建指定注册表项扩展_
| |
| |---[dll]------ 打开注册表项扩展_
| |
| |---[dll]------ 取注册项文本值_
| |
| |---[dll]------ 置注册项文本_
| |
| |---[dll]------ 取文本长度_
| |
| |---[dll]------ 取注册项数据值_
| |
| |---[dll]------ 查找文件_
| |
| |---[dll]------ 关闭搜索句柄_
| |
| |---[dll]------ 关闭句柄_
| |
| |---[dll]------ 删除指定注册表项_
======程序集1
| |
| |------ _启动子程序
| |
| |------ 取字节集指针
| |
| |------ 取文件尺寸_
| |
| |------ 整数到文本
| |
| |
======配置文件类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 置文件名
| |
| |------ 写文本
| |
| |------ 写数值
| |
| |------ 读文本
| |
| |------ 读数值
| |
| |------ 删除小节
| |
| |------ 删除项目
| |
| |------ 取项目列表
| |
| |------ 取小节列表
| |
| |
======调用的Dll
| |
| |---[dll]------ 创建或修改配置文件
| |
| |---[dll]------ 读配置整数
| |
| |---[dll]------ 读配置文本
| |
| |---[dll]------ 删配置文件项
| |
| |---[dll]------ 删配置文件小节
| |
| |---[dll]------ 目录是否存在_
| |
| |---[dll]------ 取配置项列表_
| |
| |---[dll]------ 取进程堆栈句柄_
| |
| |---[dll]------ 删除路径文件名_
| |
| |---[dll]------ 取配置节列表_
| |
| |---[dll]------ 取内存变量地址_字节集
| |
| |---[dll]------ 拷贝内存_整数
| |
| |---[dll]------ 打开文件_
| |
| |---[dll]------ API_取文件长度
| |
| |---[dll]------ 关闭句柄_
| |
| |---[dll]------ wvsprintfA
| |
| |---[dll]------ 拷贝内存_文本
| |
| |---[dll]------ 取文本长度_
| |
| |---[dll]------ 删文本首尾空_
| |
| |---[dll]------ 拷贝内存_文本1
| |
| |---[dll]------ 寻找文本串_
| |
| |---[dll]------ 寻找文本_

调用的DLL命令:

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

.DLL命令 打开事件同步对象_, 整数型, , "OpenEventA"
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型

.DLL命令 创建事件同步对象_, 整数型, , "CreateEventA"
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型

.DLL命令 取命令行_, 文本型, "kernel32", "GetCommandLineA"

.DLL命令 取模板完整路径_, 整数型, "kernel32.dll", "GetModuleFileNameA", , $(b)获取一个已装载模板的完整路径名称 如执行成功，返回复制到lpFileName的实际字符数量；零表示失败。会设置GetLastError
.参数 模块句柄, 整数型, , 一个模块的句柄。可以是一个DLL模块，或者是一个应用程序的实例句柄
.参数 文件名缓冲区, 文本型, , 指定一个字串缓冲区，要在其中容纳文件的用NULL字符中止的路径名，hModule模块就是从这个文件装载进来的
.参数 缓冲区大小, 整数型, , 装载到缓冲区lpFileName的最大字符数量;

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

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

.DLL命令 MessageBox, 整数型, , "MessageBoxA"
.参数 窗口
.参数 消息, 文本型
.参数 标题, 文本型
.参数 标志

.DLL命令 删除路径文件名_, 整数型, "shlwapi.dll", "PathRemoveFileSpecA", , 如："c:windowsboot.ini"返回"c:windows"
.参数 路径文本, 文本型, , pszPath

.DLL命令 创建窗口_, 整数型, "user32.dll", "CreateWindowExA"
.参数 扩展风格, 整数型
.参数 类名, 文本型, , 刚才注册的类名
.参数 窗口标题, 文本型
.参数 风格, 整数型
.参数 屏幕横坐标, 整数型
.参数 屏幕纵坐标, 整数型
.参数 宽度, 整数型
.参数 高度, 整数型
.参数 父窗口句柄, 整数型, , 没有就写0
.参数 菜单句柄, 整数型
.参数 模块句柄, 整数型
.参数 参数, 整数型

.DLL命令 设置时钟_指针, 整数型, "user32.dll", "SetTimer"
.参数 窗口句柄, 整数型, , hwnd
.参数 事件标识符, 整数型, , nIDEvent
.参数 时钟周期, 整数型, , uElapse
.参数 回调函数地址, 子程序指针, , lpTimerFunc

.DLL命令 中断获取消息_, , "user32", "PostQuitMessage", , 通知WINDOWS线索将中断　
.参数 nExitCode, 整数型

.DLL命令 获取消息_, 整数型, "user32.dll", "GetMessageA", , GetMessage
.参数 消息值, 消息_, , lpMsg
.参数 窗口句柄, 整数型, , hwnd
.参数 过滤消息最小值, 整数型, , wMsgFilterMin
.参数 过滤消息最大值, 整数型, , wMsgFilterMax

.DLL命令 解释消息_, 整数型, "user32.dll", "TranslateMessage"
.参数 消息结构, 消息_, , lpMsg

.DLL命令 分派消息_, , "user32.dll", "DispatchMessageA"
.参数 消息结构, 消息_, , lpMsg

.DLL命令 销毁时钟_, 整数型, "user32.dll", "KillTimer"
.参数 窗口句柄, 整数型, , hwnd
.参数 事件标识符, 整数型, , nIDEvent

.DLL命令 wvsprintfA, 整数型, , "wvsprintfA"
.参数 文本缓冲, 文本型, 传址
.参数 格式, 文本型, 传址, 设为%d
.参数 待转数值, 整数型, 传址

.DLL命令 调用窗口过程_, 整数型, "user32", "DefWindowProcA", , 调用缺省窗口过程　
.参数 窗口句柄, 整数型, , DefFrameProcA
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型

.DLL命令 注册窗口类_, 整数型, "user32", "RegisterClassExA", , 　
.参数 pcWndClassEx, 窗口类_

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

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

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

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

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

.DLL命令 取文本长度_, 整数型, "kernel32.dll", "lstrlenA", , lstrlenA
.参数 文本, 文本型, , Ptr

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

.DLL命令 查找文件_, 整数型, "kernel32.dll", "FindFirstFileA", , 返回搜索句柄，不用时用“关闭搜索句柄_”关闭
.参数 文件名, 文本型, , lpFileName，欲搜索的文件名
.参数 文件信息, 查找的文件信息_, , lpFindFileData，参见相关帮助

.DLL命令 关闭搜索句柄_, 整数型, "kernel32.dll", "FindClose", , FindClose,关闭由FindFirstFile函数创建的一个搜索句柄
.参数 搜索句柄, 整数型, , hFindFile，由FindFirstFile函数提供的搜索句柄

.DLL命令 关闭句柄_, , , "CloseHandle"
.参数 线程句柄, 整数型

.DLL命令 删除指定注册表项_, 整数型, "advapi32.dll", "RegDeleteKeyA", , Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
.参数 标准项名或项句柄, 整数型, , hkey，一个已打开项的句柄，或者标准项名之一
.参数 删除项的名字, 文本型, , lpsubkey，要删除项的名字。这个项的所有子项也会删除

调用的DLL命令:

.DLL命令 创建或修改配置文件, 整数型, "kernel32.dll", "WritePrivateProfileStringA", , 如果配置文件不存在则将被创建
.参数 小节名, 文本型, , 就是用中括号括起来的内容
.参数 项目名, 文本型, , 就是等号前边的内容
.参数 项目值, 文本型, , 就是等号后面的内容
.参数 文件名, 文本型, , 就是你要写入的那个文件

.DLL命令 读配置整数, 整数型, "kernel32.dll", "GetPrivateProfileIntA"
.参数 小节名, 文本型, , 就是用中括号括起来的内容
.参数 项目名, 文本型, , 就是等号前边的内容
.参数 默认值, 整数型, , 如果找不到对应的项目则返回该值
.参数 文件名, 文本型, , 就是你要写入的那个文件

.DLL命令 读配置文本, 整数型, "kernel32.dll", "GetPrivateProfileStringA"
.参数 小节名, 文本型, , 就是用中括号括起来的内容
.参数 项目名, 文本型, , 就是等号前边的内容
.参数 默认值, 文本型, , 可以为“”
.参数 缓冲容器, 文本型, , 一般将容器的大小设定为255
.参数 缓冲容积, 整数型, , 应与缓冲容器的大小相等255
.参数 文件名, 文本型, , 就是你要写入的那个文件

.DLL命令 删配置文件项, 整数型, "kernel32", "WritePrivateProfileStringA"
.参数 小节名, 文本型, , 就是用中括号括起来的内容
.参数 项目名, 文本型, , 就是等号前边的内容
.参数 项目值, 整数型, , 0
.参数 文件名, 文本型, , 就是你要写入的那个文件

.DLL命令 删配置文件小节, 整数型, "kernel32", "WritePrivateProfileStringA"
.参数 小节名, 文本型, , 就是用中括号括起来的内容
.参数 项目名, 整数型, , 0
.参数 项目值, 整数型, , 0
.参数 文件名, 文本型, , 就是你要写入的那个文件

.DLL命令 目录是否存在_, 整数型, "shlwapi.dll", "PathIsDirectoryA", , 存在返回真，不存在返回假
.参数 路径文本, 文本型, , pszPath

.DLL命令 取配置项列表_, 整数型, "kernel32", "GetPrivateProfileSectionA"
.参数 小节名, 文本型, , lpAppName
.参数 返回文本, 字节集, , lpReturnedString
.参数 返回文本大小, 整数型, , nSize
.参数 配置项文件名, 文本型, , lpFileName

.DLL命令 取进程堆栈句柄_, 整数型, "kernel32", "GetProcessHeap", , 获取调用过程堆句柄

.DLL命令 删除路径文件名_, 整数型, "shlwapi.dll", "PathRemoveFileSpecA", , 如："c:windowsboot.ini"返回"c:windows"
.参数 路径文本, 文本型, , pszPath

.DLL命令 取配置节列表_, 整数型, "kernel32.dll", "GetPrivateProfileSectionNamesA"
.参数 lpszReturnBuffer, 字节集
.参数 nSize, 整数型
.参数 lpFileName, 文本型

.DLL命令 取内存变量地址_字节集, 整数型, "kernel32", "lstrcpynA"
.参数 数据1, 字节集, , lpString1
.参数 数据2, 字节集, , lpString2
.参数 数据长度, 整数型, , iMaxLength

.DLL命令 拷贝内存_整数, , "kernel32.dll", "RtlMoveMemory"
.参数 缓冲区, 整数型, 传址
.参数 内存地址, 整数型
.参数 尺寸, 整数型

.DLL命令 打开文件_, 整数型, "kernel32", "_lopen"
.参数 文件名, 文本型
.参数 访问模式, 整数型, , 4096.创建文件;512.删除文件;0.只读;1.只写;2.读写;16.其他任何一个程序都不能再打开这个文件;64.可打开文件，以便由其他程序读写;48.禁止其他程序读写文件内容;32.其他程序可以读文件，但不能写文件;

.DLL命令 API_取文件长度, 整数型, "kernel32", "GetFileSizeEx"
.参数 hFile, 整数型
.参数 lpFileSizeHigh, 整数型, 传址

.DLL命令 关闭句柄_, , , "CloseHandle"
.参数 线程句柄, 整数型

.DLL命令 wvsprintfA, 整数型, , "wvsprintfA"
.参数 文本缓冲, 文本型, 传址
.参数 格式, 文本型, 传址, 设为%d
.参数 待转数值, 整数型, 传址

.DLL命令 拷贝内存_文本, , "kernel32.dll", "RtlMoveMemory"
.参数 缓冲区, 文本型, 传址
.参数 内存地址, 整数型
.参数 尺寸, 整数型

.DLL命令 取文本长度_, 整数型, "kernel32.dll", "lstrlenA", , lstrlenA
.参数 文本, 文本型, , Ptr

.DLL命令 删文本首尾空_, , "shlwapi.dll", "PathRemoveBlanksA", , 删除文本首部尾部的空格
.参数 文本, 文本型, , pszPath

.DLL命令 拷贝内存_文本1, , "kernel32.dll", "RtlMoveMemory"
.参数 缓冲区, 文本型, 传址
.参数 内存地址, 文本型
.参数 尺寸, 整数型

.DLL命令 寻找文本串_, 整数型, "shlwapi.dll", "StrCSpnA"
.参数 被寻找文本, 文本型, , lpStr
.参数 欲寻找文本, 文本型, , lpSet

.DLL命令 寻找文本_, 整数型, "shlwapi.dll", "StrStrA"
.参数 被寻找文本, 文本型, , lpSource
.参数 欲寻找文本, 文本型, , lpLast