.版本 2 .子程序 创建快捷方式, 逻辑型 .参数 创建位置, 文本型, 可空, 欲放置快捷方式的位置,默认为源文件所在目录,必须存在。 .参数 创建名称, 文本型, 可空, 欲创建的快捷方式名称,默认为：“快捷方式”+ 源文件。 .参数 源文件, 文本型, 可空, 欲创建快捷方式的源文件,默认为当前可执行文件自身,必须存在。 .局部变量 操作系统目录, 文本型 .局部变量 文件名, 文本型 .如果 (是否为空 (源文件)) 源文件 ＝ 选择 (取文本右边 (取运行目录 (), 1) ＝ “\”, 取运行目录 (), 取运行目录 () ＋ “\”) ＋ 取执行文件名 () 文件名 ＝ 取执行文件名 () .否则 文件名 ＝ 取文本右边 (源文件, 取文本长度 (源文件) － 倒找文本 (源文件, “\”, , 真)) .如果结束 添加文档记录 (2, 源文件) 操作系统目录 ＝ 取空白文本 (256) 取操作系统目录 (操作系统目录, 255) 操作系统目录 ＝ 删首尾空 (操作系统目录) .如果 (是否为空 (创建名称)) 创建名称 ＝ “快捷方式” ＋ 文件名 ＋ “.lnk” .否则 .如果真 (取文本右边 (创建名称, 4) ≠ “.lnk”) 创建名称 ＝ 创建名称 ＋ “.lnk” .如果真结束 .如果结束 .如果 (是否为空 (创建位置)) 创建位置 ＝ 取文本左边 (源文件, 倒找文本 (源文件, “\”, , 真)) .否则 .如果真 (取文本右边 (创建位置, 1) ≠ “\”) 创建位置 ＝ 创建位置 ＋ “\” .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果结束 .计次循环首 (5, ) .如果真 (移动文件 (操作系统目录 ＋ “\recent\” ＋ 文件名 ＋ “.lnk”, 创建位置 ＋ 创建名称)) 返回 (真) .如果真结束 延时 (300) .计次循环尾 () 返回 (假)