使用对象创建快捷方式

使用对象创建快捷方式

.版本 2

.子程序 创建快捷方式, 逻辑型, , 未作容错处理，请各位在使用时自行修改
.参数 lnk名称, 文本型, , 必须带.lnk 如果觉得不方便可自行修改
.参数 工作目录, 文本型
.参数 指向目标, 文本型
.参数 图标文件, 文本型, 可空, 可空，为空时用目标的第一个图标
.参数 运行方式, 整数型, 可空, 1,常规方式，3,最大化，7,最小化
.参数 备注, 文本型, 可空
.参数 参数文本, 文本型, 可空
.参数 快捷键, 文本型, 可空, 如“Ctrl+Alt+Y”
.局部变量 a, 对象
.局部变量 b, 对象

.判断开始 (a.创建 (“WshShell”, “wshom.ocx”))
    a ＝ a.对象型方法 (“CreateShortcut”, lnk名称)
    .如果真 (a.是否为空 ())
        返回 (假)
    .如果真结束
    .判断开始 (a.写属性 (“TargetPath”, 指向目标))
        a.写属性 (“WorkingDirectory”, 工作目录)
        a.写属性 (“IconLocation”, 选择 (是否为空 (图标文件), 指向目标 ＋ “,0”, 图标文件))
        a.写属性 (“WindowStyle”, 运行方式)
        a.写属性 (“Description”, 备注)
        a.写属性 (“Arguments”, 参数文本)
        a.写属性 (“Hotkey”, 快捷键)
        a ＝ a.对象型方法 (“Save”, )
        返回 (真)
    .默认

    .判断结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.默认

.判断结束
返回 (假)

@易语言学习论坛