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

资源介绍:

创建应用程序快捷方式。

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

资源作者:

易语言如何自学

资源界面:

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

资源下载:

相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注