易语言创建快捷方式模块源码

资源介绍：

创建应用程序快捷方式。

1、可以为当前存在的任意文件创建快捷方式。

资源作者：

易语言如何自学

资源界面：

.版本 2

.子程序 创建快捷方式, 逻辑型
.参数 创建位置, 文本型, 可空, 欲放置快捷方式的位置,默认为源文件所在目录,必须存在。
.参数 创建名称, 文本型, 可空, 欲创建的快捷方式名称,默认为：“快捷方式”+ 源文件。
.参数 源文件, 文本型, 可空, 欲创建快捷方式的源文件,默认为当前可执行文件自身,必须存在。
.局部变量 操作系统目录, 文本型
.局部变量 文件名, 文本型

.如果 (是否为空 (源文件))
    源文件 ＝ 选择 (取文本右边 (取运行目录 (), 1) ＝ “”, 取运行目录 (), 取运行目录 () ＋ “”) ＋ 取执行文件名 ()
    文件名 ＝ 取执行文件名 ()
.否则
    文件名 ＝ 取文本右边 (源文件, 取文本长度 (源文件) － 倒找文本 (源文件, “”, , 真))
.如果结束
添加文档记录 (2, 源文件)
操作系统目录 ＝ 取空白文本 (256)
取操作系统目录 (操作系统目录, 255)
操作系统目录 ＝ 删首尾空 (操作系统目录)
.如果 (是否为空 (创建名称))
    创建名称 ＝ “快捷方式” ＋ 文件名 ＋ “.lnk”
.否则
    .如果真 (取文本右边 (创建名称, 4) ≠ “.lnk”)
        创建名称 ＝ 创建名称 ＋ “.lnk”
    .如果真结束

.如果结束
.如果 (是否为空 (创建位置))
    创建位置 ＝ 取文本左边 (源文件, 倒找文本 (源文件, “”, , 真))
.否则
    .如果真 (取文本右边 (创建位置, 1) ≠ “”)
        创建位置 ＝ 创建位置 ＋ “”
    .如果真结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.如果结束
.计次循环首 (5, )
    .如果真 (移动文件 (操作系统目录 ＋ “
ecent\” ＋ 文件名 ＋ “.lnk”, 创建位置 ＋ 创建名称))
        返回 (真)
    .如果真结束
    延时 (300)
.计次循环尾 ()
返回 (假)

资源下载：