为VFP程序创建快捷方式


调用方法

=SetShortCut('木子安臣')

自定义函数PRG文件如下

Function SetShortCut
Parameters MyProcName
wshshell = Createobject("Wscript.shell")
StrDesktop = wshshell.specialfolders("Desktop")
oMyShortcut = wshshell.createshortcut(strdesktop + "\&MyProcName..lnk")
oMyShortcut.windowstyle = 4
oMyShortcut.iconlocation = "&ExePath.木子安臣.EXE"
oMyShortcut.targetpath = "&ExePath.木子安臣.EXE"
oMyShortcut.workingdirectory = ExePath
oMyShortcut.Save
Release wshshell
Endfunc