易语言安装软件个人修改版源码

系统结构:读入整数,读入逻辑值,读入一段文本,报错退出,写数据到文件,子程序_取开始菜单路径,子程序_创建快捷方式,子程序_取路径文件名,子程序_取路径中路径,询问是否继续,设置按钮状态,跳过选择夹,开始安装,画顶图,自动添加菜单,WndProc,取Windows安装目录,登记菜单和快捷方式,注册OCX,浏览目录,SHGetSpecialFolderPath,InsertMenu,GetSystemMenu,SetWindowLong,CallWindowProc,

======启动窗口程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ __启动窗口__首次激活
           |  |
           |  |------ __启动窗口__尺寸被改变
           |  |
           |  |------ __启动窗口__将被销毁
           |  |
           |  |
======实用程序集
           |  |
           |  |------ 读入整数
           |  |
           |  |------ 读入逻辑值
           |  |
           |  |------ 读入一段文本
           |  |
           |  |------ 报错退出
           |  |
           |  |------ 写数据到文件
           |  |
           |  |------ 子程序_取开始菜单路径
           |  |
           |  |------ 子程序_创建快捷方式
           |  |
           |  |------ 子程序_取路径文件名
           |  |
           |  |------ 子程序_取路径中路径
           |  |
           |  |
======主窗口程序集
           |  |
           |  |------ _主窗口_创建完毕
           |  |
           |  |------ _主窗口_首次激活
           |  |
           |  |------ _主窗口_可否被关闭
           |  |
           |  |------ _取消按钮_被单击
           |  |
           |  |------ 询问是否继续
           |  |
           |  |------ _主窗口_空闲
           |  |
           |  |------ 设置按钮状态
           |  |
           |  |------ _下一步按钮_被单击
           |  |
           |  |------ _上一步按钮_被单击
           |  |
           |  |------ 跳过选择夹
           |  |
           |  |------ 开始安装
           |  |
           |  |------ _浏览目录按钮_被单击
           |  |
           |  |------ 画顶图
           |  |
           |  |------ _主窗口_将被销毁
           |  |
           |  |------ _目录编辑框_按下某键
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 自动添加菜单
           |  |
           |  |------ WndProc
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取Windows安装目录
           |  |
           |  |---[dll]------   登记菜单和快捷方式
           |  |
           |  |---[dll]------   注册OCX
           |  |
           |  |---[dll]------   浏览目录
           |  |
           |  |---[dll]------   SHGetSpecialFolderPath
           |  |
           |  |---[dll]------   InsertMenu
           |  |
           |  |---[dll]------   GetSystemMenu
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc

调用的DLL命令:

.DLL命令 取Windows安装目录, 整数型, , "GetWindowsDirectoryA"
    .参数 缓冲区, 字节集
    .参数 缓冲区尺寸, 整数型

.DLL命令 登记菜单和快捷方式, , "setup.dll", "reg", , 如果支持卸载，本命令会同时生成安装记录文件。
    .参数 软件标题, 文本型
    .参数 安装目录, 文本型
    .参数 可执行文件名, 文本型, , 全路径
    .参数 是否登记菜单, 逻辑型, , 是否在系统菜单中登记。
    .参数 是否放置到桌面, 逻辑型, , 是否生成桌面快捷方式。
    .参数 是否支持卸载, 逻辑型, , 卸载文件名称固定为uninstall.exe

.DLL命令 注册OCX, 逻辑型, "setup.dll", "regocx", , 如果所提供的文件为OCX组件，则本命令自动将其注册到Windows系统。
    .参数 欲注册文件名, 文本型, , 全路径
    .参数 类标志, 文本型

.DLL命令 浏览目录, , "setup.dll", "ViewDir"
    .参数 所属窗口句柄, 整数型
    .参数 标题, 文本型
    .参数 返回目录缓冲区, 文本型

.DLL命令 SHGetSpecialFolderPath, 整数型, , "SHGetSpecialFolderPathA"
    .参数 hwndOwner, 整数型
    .参数 lpszPath, 文本型
    .参数 nFolder, 整数型
    .参数 fCreate, 整数型

.DLL命令 InsertMenu, 整数型, "user32.dll", "InsertMenuA"
    .参数 hMenu, 整数型
    .参数 nPosition, 整数型
    .参数 wFlags, 整数型
    .参数 wIDNewItem, 整数型
    .参数 lpNewItem, 文本型

.DLL命令 GetSystemMenu, 整数型, "user32", "GetSystemMenu"
    .参数 hWnd, 整数型
    .参数 bRevert, 逻辑型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型