| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 系统_创建桌面快捷方式 | 逻辑型 | 创建桌面快捷方式 (成功返回真,失败返回假) | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| lnk名称 | 文本型 | 如：精易编程助手 | 目标 | 文本型 | 指向的文件全路径文件名,如 C:\001.txt，如果是目录就直接为 C:\001 | 参数文本 | 文本型 | 执行文件的参数 | 图标文件 | 文本型 | 图标文件的路径 可空:为空时用目标的第一个图标 | 运行方式 | 整数型 | 1,常规方式，3,最大化，7,最小化 | 备注 | 文本型 | 快方式的备注信息 | 快捷键 | 文本型 | 启动快捷方式的快捷键 如“Ctrl Alt Y” |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 工作目录 | 文本型 | |||||
| 临时文本 | 文本型 | "0" | ||||
| 对象 | 对象 | |||||
| 计次 | 整数型 | |||||
| 局_返回值 | 逻辑型 | |||||
如果真 (寻找文本 (lnk名称, “\”, , 假) ≠ -1)
lnk名称 ＝ 文件_取文件名 (lnk名称, )
如果 (寻找文本 (lnk名称, “.lnk”, , 真) ＝ -1)
lnk名称 ＝ 目录_取特定目录EX (5) ＋ lnk名称 ＋ “.lnk”
lnk名称 ＝ 目录_取特定目录EX (5) ＋ lnk名称
如果真 (文件是否存在 (lnk名称))删除文件 (lnk名称)临时文本 ＝ 分割文本 (目标, “\”, )
如果真 (取数组下标 (临时文本, ) ＜ 2)返回 (假)
计次循环首 (取数组下标 (临时文本, ) － 1, 计次)工作目录 ＝ 工作目录 ＋ 临时文本 [计次] ＋ “\”
计次循环尾 ()CoInitialize (0)
如果真 (对象.创建 (“WshShell”, “wshom.ocx”))对象 ＝ 对象.对象型方法 (“CreateShortcut”, lnk名称)局_返回值 ＝ 取反 (对象.是否为空 ())如果真 (局_返回值 且 对象.写属性 (“TargetPath”, 目标))对象.写属性 (“WorkingDirectory”, 工作目录)如果 (是否为空 (图标文件))判断 (文件_取扩展名 (目标) ＝ “”)对象.写属性 (“IconLocation”, “SHELL32.dll,4”)对象.写属性 (“IconLocation”, 目标 ＋ “,0”)
对象.写属性 (“IconLocation”, 图标文件)对象.写属性 (“WindowStyle”, 运行方式)对象.写属性 (“Description”, 备注)对象.写属性 (“Arguments”, 参数文本)对象.写属性 (“Hotkey”, 快捷键)对象 ＝ 对象.对象型方法 (“Save”, )
CoUninitialize ()
返回 (局_返回值)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 目录_取特定目录EX | 文本型 | 1 AppDat局_项名数据 2 IE临时目录 3 局_项数组DBurning 4 局_项数组ookies 5 桌面 6 收藏夹 7 字体 8 历史记录 9 Lo局_项数组alAppDat局_项名数据 10 Lo局_项数组alSettings 11 我的音乐 12 我的图片 13 我的视频 14 NetHood 15 我的文档 16 PrintHood 17 开始_程序 18 我最近的文档 19 发送到 20 开始菜单 21 启动文件夹 22 Templates 23 所有用户_管理工具 24 所有用户_AppDat局_项名数据 25 所有用户_桌面 26 所有用户_文档 27 所有用户_收藏夹 28 所有用户_开始_程序 29 所有用户_开始菜单 30 所有用户_启动文件夹 31 所有用户_Templates 32 所有用户_音乐 33 所有用户_图片 34 所有用户_视频 35 临时目录 36 安装目录 37 系统目录 38 用户目录 39 所有用户 40 程序文件 41 所有用户_程序文件 42 系统盘 43 软件安装目录 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 选择类型 | 整数型 | [beineimao] | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文本1 | 文本型 | |||||
| 类型 | 文本型 | "0" | ||||
| i | 整数型 | |||||
加入成员 (类型, “Cache”)
加入成员 (类型, “CD Burning”)
加入成员 (类型, “Cookies”)
加入成员 (类型, “Desktop”)
加入成员 (类型, “Favorites”)
加入成员 (类型, “Fonts”)
加入成员 (类型, “History”)
加入成员 (类型, “Local AppData”)
加入成员 (类型, “Local Settings”)
加入成员 (类型, “My Music”)
加入成员 (类型, “My Pictures”)
加入成员 (类型, “My Video”)
加入成员 (类型, “NetHood”)
加入成员 (类型, “Personal”)
加入成员 (类型, “PrintHood”)
加入成员 (类型, “Programs”)
加入成员 (类型, “Recent”)
加入成员 (类型, “SendTo”)
加入成员 (类型, “Start Menu”)
加入成员 (类型, “Startup”)
加入成员 (类型, “Templates”)
加入成员 (类型, “Common Administrative Tools”)
加入成员 (类型, “Common AppData”)
加入成员 (类型, “Common Desktop”)
加入成员 (类型, “Common Documents”)
加入成员 (类型, “Common Favorites”)
加入成员 (类型, “Common Programs”)
加入成员 (类型, “Common Start Menu”)
加入成员 (类型, “Common Startup”)
加入成员 (类型, “Common Templates”)
加入成员 (类型, “CommonMusic”)
加入成员 (类型, “CommonPictures”)
加入成员 (类型, “CommonVideo”)
加入成员 (类型, “Temp”)
加入成员 (类型, “WinDir”)
加入成员 (类型, “System32”)
加入成员 (类型, “USERPROFILE”)
加入成员 (类型, “ALLUSERSPROFILE”)
加入成员 (类型, “ProgramFiles”)
加入成员 (类型, “CommonProgramFiles”)
加入成员 (类型, “SystemDrive”)
加入成员 (类型, “软件安装目录”)
如果真 (到小写 (类型 [选择类型]) ＝ “软件安装目录”)返回 (取运行目录 ())如果真 (读环境变量 (到小写 (类型 [选择类型])) ≠ “”)返回 (读环境变量 (到小写 (类型 [选择类型])))如果真 (到小写 (类型 [选择类型]) ＝ 到小写 (“System32”))返回 (取文本左边 (读环境变量 (“ComSpec”), 倒找文本 (读环境变量 (“ComSpec”), “\”, , 假) － 1))返回 (取文本注册项 (选择 (到小写 (取文本左边 (到小写 (类型 [选择类型]), 6)) ＝ “common”, #本地机器, #现行用户 ), “Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\” ＋ 到小写 (类型 [选择类型]), ))
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 文件_取文件名 | 文本型 | 如：局_项数组:\123.exe 成功返回123 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 路径文件名 | 文本型 | 文件完整地址 | 是否带后缀 | 逻辑型 | 默认为假，不带后缀；真为带后缀 | ||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 局_文件名 | 文本型 | |||||
如果真 (取文本右边 (局_文件名, 1) ＝ “\”) ' 取出来了一个\,这表示不正确，返回空返回 (“”)返回 (选择 (是否带后缀, 局_文件名, 取文本左边 (局_文件名, 取文本长度 (局_文件名) － 取文本长度 (文件_取扩展名 (局_文件名)))))
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 文件_取扩展名 | 文本型 | 返回一个文件的后缀名,如：.jpg 如果没有后缀,返回空 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 文件名 | 文本型 | 需要处理的原始文件名 | |||||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| PathFindFileNameA | 文本型 | 文件路径取文件名 | ||
| DLL库文件名: | ||||
| shlwapi.dll | ||||
| 在DLL库中对应命令名: | ||||
| PathFindFileNameA | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| pszPath | 文本型 | 要取文件名的文件路径 | ||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| PathFindExtensionA | 文本型 | 获取绝对路径或文件名中的文件扩展名。如果扩展名找到则返回pszPath字符串中“.”所在地址，否则返回空字符结尾地址。 | ||
| DLL库文件名: | ||||
| shlwapi.dll | ||||
| 在DLL库中对应命令名: | ||||
| PathFindExtensionA | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| pszPath | 文本型 | 指向以0结尾，最大长度为MAX_PATH文件路径字符串指针。备注：一个有效的扩展名是不包括空格的。 | ||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| CoInitialize | 整数型 | |||
| DLL库文件名: | ||||
| ole32 | ||||
| 在DLL库中对应命令名: | ||||
| CoInitialize | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| pvReserved | 整数型 | 0 | ||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| CoUninitialize | 整数型 | |||
| DLL库文件名: | ||||
| Ole32 | ||||
| 在DLL库中对应命令名: | ||||
| CoUninitialize | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
词条作者信息 使用例程