标题:好久没来了,送大家点东西
只看楼主
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
结帖率:0
 问题点数:0 回复次数:4 
好久没来了,送大家点东西

为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

搜索更多相关主题的帖子: Desktop 
2006-06-11 09:13
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册:2009-3-1
得分:0 
这个东东五年过去了,无人回帖,fown一定是伤心着吧,下来试一下。
2011-12-15 21:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
这么好的东东竟然没人看看,奇怪了!

坚守VFP最后的阵地
2014-03-25 22:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
再顶

坚守VFP最后的阵地
2014-03-25 22:08
jsddx
Rank: 2
等 级:论坛游民
帖 子:42
专家分:21
注 册:2006-4-11
得分:0 
再顶
2014-09-01 15:33



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-71329-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.630160 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved