卷帘式菜单1.项目图标图片组 = 建空图片组 (32, 32)
卷帘式菜单1.XP风格 = 3.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 图片组数据变量, 字节集
.局部变量 文本路径, 文本型, , "0".如果真 (取文本右边 (接收到的文件路径, 4) =“.lnk”)
接收到的文件路径 = 取快捷方式目标 (接收到的文件路径, , , , , , , )
.如果真结束
图片组数据变量 = 建空图片组 (32, 32)
.如果真 (提取加入图片 (图片组数据变量, 接收到的文件路径, , 假) ≠ -1)
卷帘式菜单1.项目图标图片组 = 合并图片组 (卷帘式菜单1.项目图标图片组, 图片组数据变量)
.如果真结束文本路径 = 分割文本 (接收到的文件路径, “\”, )
卷帘式菜单1.加入项目 (取文本中间 (文本路径 [取数组成员数 (文本路径)], 1, 取文本长度 (文本路径 [取数组成员数 (文本路径)])), , , 取图片组图片数 (卷帘式菜单1.项目图标图片组) - 1, )
卷帘式菜单1.置项目提示文本 (卷帘式菜单1.现行选中菜单, 卷帘式菜单1.取项目数 (卷帘式菜单1.现行选中菜单) - 1, 接收到的文件路径).子程序 _卷帘式菜单1_项目被选择
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
.局部变量 文件路径, 文本型文件路径 = 卷帘式菜单1.取项目提示文本 (菜单索引, 项目索引)
运行(文件路径, 假, ).子程序 _超级链接框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型