自绘安装程序制作软件源码附奇彩模块

提供了公司名称、产品名称、产品版本、公司网址等输入框，作为软件包的一部分，在制作完成后安装的过程中界面上会显示这些信息。

Mimage [1].创建 (Mrect.取ID (), RectL (0, 10, 159, 37), MxUILoadImage (Getimage (“logo”)))
Mimage [1].事件回调 (到整数 (&Zevent))
rom ＝ 分割文本 (#navigation, #换行符, )
.计次循环首 (取数组成员数 (Mnavi), n)
Mnavi [n].创建 (Mrect.取ID (), RectL (0, 10 ＋ 45 × n, 160, 45), rom [n])
Mnavi [n].事件回调 (到整数 (&Zevent))
.计次循环尾 ()
Mpage.创建 (window.取ID (), RectL (170, 10, window.取宽度 () － 180, window.取高度 () － 20))
Mbutton [1].创建 (window.取ID (), RectL (window.取宽度 () － 10 － 35, 13, 32, 32), Getimage (“Col”))
Mbutton [1].事件回调 (到整数 (&Zevent))
' -------创建第一页面------
nid ＝ Mpage.取表头ID (2)
Mlabel [1].创建 (nid, RectL (0, 30, 90, 30), “软件名称:”, MxUIRGB2ARGB (#黑色))
Medit [1].创建 (nid, RectL (80, 30, 300, 26), StringA (“请不要包含版本号以及特殊字符！”), StrFormatS (, , 12, , 0), , , g_argb, 0, g_argb, )
Mlabel [2].创建 (nid, RectL (90 ＋ 300, 30, 90, 30), “软件版本:”, MxUIRGB2ARGB (#黑色))
Medit [2].创建 (nid, RectL (90 ＋ 300 ＋ 90, 30, 100, 26), StringA (“例:1.0.5”), StrFormatS (, , 12, , 0), , , g_argb, 0, g_argb)
Mlabel [3].创建 (nid, RectL (0, 30 ＋ 40, 90, 30), “软件简介:”, MxUIRGB2ARGB (#黑色))
Medit [3].创建 (nid, RectL (80, 30 ＋ 40, 90 ＋ 300 ＋ 110, 26), StringA (“请用一句话描述您的软件！”), StrFormatS (, , 12, , 0), , , g_argb, 0, g_argb)
Mimage [2].创建 (nid, RectL (30, 110, Mpage.宽度 (), 18), MxUILoadImage (Getimage (“fengge”)))
MPut [1].创建 (nid, RectL (20, 110 ＋ 25, 80, 25), , “预设风格”)
MPut [1].禁止 (真)
MPut [2].创建 (nid, RectL (20 ＋ 85, 110 ＋ 25, 80, 25), , “自定义”)
MPut [3].创建 (nid, RectL (20 ＋ 85 × 2, 110 ＋ 25, 80, 25), , “环境检测”)
MPut [4].创建 (nid, RectL (20 ＋ 85 × 3, 110 ＋ 25, 80, 25), , “在线云安装”)
MPut [5].创建 (nid, RectL (20 ＋ 85 × 4, 110 ＋ 25, 80, 25), , “高级服务”)
.计次循环首 (取数组成员数 (MPut), n)
MPut [n].事件回调 (到整数 (&Zevent))
.计次循环尾 ()
.计次循环首 (13, n)
加入成员 (image, 读入文件 (“.\images\” ＋ “ (” ＋ 到文本 (n) ＋ “).jpg”))
.计次循环尾 ()
Diy.创建 (nid, RectL (0, 110 ＋ 60, Mpage.宽度 (), 180))
Mimage [3].创建 (nid, RectL (30, 110 ＋ 240, Mpage.宽度 (), 18), MxUILoadImage (Getimage (“fengge”)))
nid ＝ Diy.取表头ID (1)
' *** 缩略程序块 ***
Mslide.创建 (nid, RectL (20 ＋ 65, 0, 420, 170), image)
Mimageput [1].创建 (nid, RectL (20, 0, 60, 170), MxUILoadImage (Getimage (“appbar.navigate.previous”)))
Mimageput [2].创建 (nid, RectL (20 ＋ 420 ＋ 5 ＋ 65, 0, 60, 170), MxUILoadImage (Getimage (“appbar.navigate.next”)))
Mimageput [3].创建 (nid, RectL (20 ＋ 90 ＋ 130, 0, 100, 25), , “预览效果”, 2)
nid ＝ Diy.取表头ID (2)
Mlabel [4].创建 (nid, RectL (20, 10, 100, 20), “设置Ico图标：”, MxUIRGB2ARGB (#深灰))
Mico.创建 (nid, RectL (20 ＋ 100, 0, 30, 30), MxUILoadImage (Getimage (“icon”), 30, 30))
Mico.事件回调 (到整数 (&Zevent))
Mlabel [5].创建 (nid, RectL (320, 10, 100, 20), “设置许可协议：”, MxUIRGB2ARGB (#深灰))
Mnick [1].创建 (nid, RectL (320 ＋ 100, 10, 80, 20), “浏览...”, g_argb, 真)
Mselect [1].创建 (nid, RectL (30, 40, 200, 15), g_argb, 0, “安装完毕后提示是否访问官网”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mselect [2].创建 (nid, RectL (30, 40 ＋ 30, 200, 15), g_argb, 0, “安装完毕后打开自述文本”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mselect [3].创建 (nid, RectL (30, 40 ＋ 30 × 2, 200, 15), g_argb, 0, “修改默认安装路径”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mselect [4].创建 (nid, RectL (30, 40 ＋ 30 × 3, 200, 15), g_argb, 0, “自定义快捷方式设置”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mselect [5].创建 (nid, RectL (30, 40 ＋ 30 × 4, 200, 15), g_argb, 0, “添加注册表文件”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
.计次循环首 (5, n)
Mselect [5 ＋ n].创建 (nid, RectL (30 ＋ 300, 40 ＋ 30 × n － 30, 200, 15), g_argb, 0, “更多功能正在努力添加中......”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mselect [5 ＋ n].禁止 (真)

.计次循环尾 ()
nid ＝ Diy.取表头ID (3)
Mselect [11].创建 (nid, RectL (30, 20, 200, 15), g_argb, 0, “.NET Framework”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Msingle [1].创建 (nid, RectL (30, 20 ＋ 30, 80, 15), g_argb, 0, “3.0及以下”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Msingle [2].创建 (nid, RectL (30 ＋ 100, 20 ＋ 30, 50, 15), g_argb, 0, “3.5”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Msingle [3].创建 (nid, RectL (30 ＋ 100 ＋ 70, 20 ＋ 30, 50, 15), g_argb, 0, “4.0”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Msingle [4].创建 (nid, RectL (30 ＋ 100 ＋ 70 × 2, 20 ＋ 30, 80, 15), g_argb, 0, “4.0及以上”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))



Mselect [12].创建 (nid, RectL (30, 20 ＋ 60, 400, 15), g_argb, 0, “Microsoft Visual C++ 2005 Redistributable Package”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mselect [13].创建 (nid, RectL (30, 20 ＋ 60 ＋ 30, 400, 15), g_argb, 0, “Microsoft Visual C++ 2005 Redistributable Package”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mselect [14].创建 (nid, RectL (30, 20 ＋ 60 ＋ 60, 400, 15), g_argb, 0, “Microsoft Visual C++ 2005 Redistributable Package”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))

nid ＝ Diy.取表头ID (4)
Mlabel [6].创建 (nid, RectL (20, 10, 270, 20), “请将打包文件上传至网盘或会员FTP后勾选本项”, MxUIRGB2ARGB (#深灰))
Mselect [15].创建 (nid, RectL (30, 20 ＋ 30, 200, 15), g_argb, 0, “启用在线云安装”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Mlabel [7].创建 (nid, RectL (20, 10 ＋ 70, 100, 26), “压缩文件地址：”, MxUIRGB2ARGB (#深灰))
Medit [4].创建 (nid, RectL (120, 80, 300 ＋ 110, 26), StringA (“例:http://www.baidu.com/Installation.exe”), StrFormatS (, , 12, , 0), , , g_argb, 0, g_argb)
Msingle [5].创建 (nid, RectL (30, 10 ＋ 70 ＋ 40, 120, 15), g_argb, 0, “依旧使用安装界面”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))
Msingle [5].选中 (真)
Msingle [6].创建 (nid, RectL (30 ＋ 130, 10 ＋ 70 ＋ 40, 120, 15), g_argb, 0, “采用静默式安装”, StrFormatS (#MxUI_文本风格_左对齐 ＋ #MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐, , 12, MxUIRGB2ARGB (#黑色)))


nid ＝ Diy.取表头ID (5)
Mlabel [8].创建 (nid, RectL (20, 20, 120, 26), “安装卸载量统计：”, MxUIRGB2ARGB (#深灰))
Mnick [2].创建 (nid, RectL (20 ＋ 120, 20, 80, 26), “点击查看”, g_argb, 真)

Mlabel [9].创建 (nid, RectL (20, 20 ＋ 50, 120, 26), “卸载量反馈统计：”, MxUIRGB2ARGB (#深灰))

Mnick [3].创建 (nid, RectL (20 ＋ 120, 20 ＋ 50, 80, 26), “点击查看”, g_argb, 真)
nid ＝ Mpage.取表头ID (2)
Mlinck [1].创建 (nid, RectL (20, 110 ＋ 240 ＋ 25, 384, 20), “选择打包目录”, MxUIRGB2ARGB (#黑色), 真, 1)
Mlinck [2].创建 (nid, RectL (20, 110 ＋ 240 ＋ 25 × 2, 384, 20), “从打包目录选取主程序”, MxUIRGB2ARGB (#黑色), 真, 1)
Mlinck [3].创建 (nid, RectL (20, 110 ＋ 240 ＋ 25 × 3, 384, 20), “自定义扩展程序或脚本”, MxUIRGB2ARGB (#黑色), 真, 1)
Mlinck [4].创建 (nid, RectL (20, 110 ＋ 240 ＋ 25 × 4, 384, 20), “选取安装路径或保存路径”, MxUIRGB2ARGB (#黑色), 真, 1)
Mlinck [5].创建 (nid, RectL (20, 110 ＋ 240 ＋ 25 × 5, 384, 20), “修改默认安装路径”, MxUIRGB2ARGB (#黑色), 真, 1)
Mlinck [6].创建 (nid, RectL (20, 110 ＋ 240 ＋ 25 × 6, 384, 20), “添加自定义快捷方式”, MxUIRGB2ARGB (#黑色), 真, 1)
Mlinck [7].创建 (nid, RectL (20, 110 ＋ 240 ＋ 25 × 7, 384, 20), “导入注册表文件”, MxUIRGB2ARGB (#黑色), 真, 1)
MCselect [1].创建 (nid, RectL (Mpage.宽度 () － 200, 110 ＋ 240 ＋ 25, 200, 16), g_argb, , “创建开始菜单项”, StrFormatS (#MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐 ＋ #MxUI_文本风格_左对齐, , 13, MxUIRGB2ARGB (#黑色)))
MCselect [2].创建 (nid, RectL (Mpage.宽度 () － 200, 110 ＋ 240 ＋ 25 × 2, 200, 16), g_argb, , “创建桌面图标”, StrFormatS (#MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐 ＋ #MxUI_文本风格_左对齐, , 13, MxUIRGB2ARGB (#黑色)))
MCselect [3].创建 (nid, RectL (Mpage.宽度 () － 200, 110 ＋ 240 ＋ 25 × 3, 200, 16), g_argb, , “安装完成后启动主程序”, StrFormatS (#MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐 ＋ #MxUI_文本风格_左对齐, , 13, MxUIRGB2ARGB (#黑色)))
MCselect [4].创建 (nid, RectL (Mpage.宽度 () － 200, 110 ＋ 240 ＋ 25 × 4, 200, 16), g_argb, , “生成静默安装程序”, StrFormatS (#MxUI_文本风格_横向居中对齐 ＋ #MxUI_文本风格_纵向居中对齐 ＋ #MxUI_文本风格_左对齐, , 13, MxUIRGB2ARGB (#黑色)))
Pack.创建 (nid, RectL (Mpage.宽度 () － 200, 110 ＋ 240 ＋ 25 × 5 ＋ 10, 150, 48), MxUILoadImage (Getimage (“Pack”)), , 0)
.计次循环首 (取数组成员数 (Mimageput), n)
Mimageput [n].事件回调 (到整数 (&Zevent))
.计次循环尾 ()
.计次循环首 (6, n)
Msingle [n].事件回调 (到整数 (&SingleEvent))
.计次循环尾 ()
.计次循环首 (3, n)
Mnick [n].事件回调 (到整数 (&Zevent))
.计次循环尾 ()