好久没来了,送大家点东西
为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
有人说VFP不行了，我想说，你连VFP十分之一的功能都不会用，你怎么知道VFP不行？本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
