|
.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 驱动名, 文本型
.程序集变量 驱动路径, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 盘符, 文本型
.计次循环首 (24, i)
盘符 = 字符 (66 + i)
.如果真 (取反 (改变驱动器 (盘符)))
组合框2.加入项目 (盘符, )
.如果真结束
.计次循环尾 ()
组合框2.现行选中项 = 组合框2.取项目数 () - 1
驱动名 = “filedisk”
驱动路径 = 取特定目录 (10) + “drivers\filedisk.sys”
.如果真 (文件是否存在 (取特定目录 (10) + “drivers\filedisk.sys”) = 假)
写到文件 (取特定目录 (10) + “drivers\filedisk.sys”, #filedisk驱动)
.如果真结束
驱动操作.加载 (驱动路径, 驱动名)
删除文件 (取特定目录 (10) + “drivers\filedisk.sys”)
.子程序 _卸载按钮_被单击
.如果真 (列表框1.取项目数 () < 1)
信息框 (“没有发现虚拟设备!”, 0, “提示”)
返回 ()
.如果真结束
.如果真 (列表框1.现行选中项 = -1)
信息框 (“请选择需要卸载的盘符”, 0, “提示”)
返回 ()
.如果真结束
写到文件 (取特定目录 (11) + “filedisk.exe”, #filedisk程序)
运行 (取特定目录 (11) + “filedisk.exe /umount ” + 列表框1.取项目文本 (列表框1.现行选中项) + “:”, 假, 1)
组合框2.加入项目 (列表框1.取项目文本 (列表框1.现行选中项), )
列表框1.删除项目 (列表框1.现行选中项)
删除文件 (取特定目录 (11) + “filedisk.exe”)
.子程序 _创建按钮_被单击
.局部变量 文件名, 文本型
.如果真 (到数值 (编辑框2.内容) < 1)
信息框 (“请输入合法的数值”, 0, “提示”)
返回 ()
.如果真结束
.如果真 (组合框2.现行选中项 = -1)
信息框 (“请选择盘符名称”, 0, “提示”)
返回 ()
.如果真结束
.如果真 (组合框1.现行选中项 = 1 且 到整数 (编辑框2.内容) > 2)
信息框 (“虚拟盘尺寸过大”, 0, “提示”)
返回 ()
.如果真结束
通用对话框1.类型 = 1
.如果真 (通用对话框1.打开 ())
文件名 = 通用对话框1.文件名
编辑框1.内容 = 文件名
写到文件 (取特定目录 (11) + “filedisk.exe”, #filedisk程序)
运行 (取特定目录 (11) + “filedisk.exe /mount 0 ” + 文件名 + “ ” + 编辑框2.内容 + 组合框1.取项目文本 (组合框1.现行选中项) + “ ” + 组合框2.取项目文本 (组合框2.现行选中项) + “:”, 假, 1)
列表框1.加入项目 (组合框2.取项目文本 (组合框2.现行选中项), )
组合框2.删除项目 (组合框2.现行选中项)
删除文件 (取特定目录 (11) + “filedisk.exe”)
.如果真结束
.子程序 __启动窗口_将被销毁
输出调试文本 (驱动操作.卸载 ())
.子程序 __启动窗口_可否被关闭, 逻辑型
.如果真 (列表框1.取项目数 () > 0)
信息框 (“没有卸载”, 0, )
返回 (假)
.如果真结束
|
|