如何在VF中用代码创建方捷方式

最新推荐文章于 2022-11-13 19:05:51 发布

原创最新推荐文章于 2022-11-13 19:05:51 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

本文介绍了一种使用Visual FoxPro (VF) 创建桌面应用程序快捷方式的方法。通过创建Wscript.shell对象，可以动态地在用户的桌面上生成指定应用程序的快捷方式，并设置其窗口样式、图标位置及目标路径。

由于特殊原因，要做一个安装程序，解压后，我要动态生成一个应用程序的快捷方式到桌面上，请问用VF如何实际。。。。感谢
---------------------------------------------------------------

WshShell=CREATEOBJECT("Wscript.shell")
strDesktop=WshShell.SpecialFolders("AllUsersDesktop") &&定义所有用户到桌面
*strDesktop=WshShell.SpecialFolders("Desktop") &&定义当前用户到桌面
MyShortcut=WshShell.CreateShortcut(strDesktop+"/快捷方式.lnk")
MyShortcut.WindowStyle=4 &&3-最大化 7-最小化 4-正常
MyShortcut.IconLocation="要使用图标"
MyShortcut.TargetPath="目标"
MyShortcut.WorkingDirectory="起始目录"

例子：
WshShell=CREATEOBJECT("Wscript.shell")
strDesktop=WshShell.SpecialFolders("allusersdesktop") &&定义到桌面
MyShortcut=WshShell.CreateShortcut(strDesktop+"/aa.lnk")
MyShortcut.WindowStyle=4 &&3-最大化 7-最小化 4-正常
MyShortcut.IconLocation="c:/bmp/t1.ico"
MyShortcut.TargetPath="d:/test/aa.exe"
MyShortcut.WorkingDirectory="d:/test"