正在阅读：基础:如何用VB建立快捷方式基础:如何用VB建立快捷方式

2004-03-10 09:52 出处：CSDN 作者：Terly1981 责任编辑：linjixiong
  Private Declare Function fCreateShellLink Lib "STKIT432.DLL"(ByVal lpstrFolderName As String ,ByVal lpstrLinkName As String ,ByVal lpstrLinkPath As String,ByVal lpstrLinkArgs As String) as Long

  sub Command1Click()

  Dim lReturn As Long '添加到桌面

  lReturn=fCreateShellLink("..\..\Desktop","Shortcut to Calculator","c:\windows\calc.exe","")

  '添加到程序组

  lReturn=fCreateShellLink("\Startup","Shortcut to Calculator","c:\windows\calc.exe","")

  End Sub




察看评论详细内容 我要发表评论
作者笔名简短内容 发表时间
:

相关文章

vb2005与sqlserver2005平台下报表预览及其打印的实现

关注我们

聚超值

热门软件

PC软件 安卓应用 iOS应用 手游电脑版
游戏专区
王者荣耀专区 绝地求生专区 炉石传说专区
IT百科 热门专题

汽车资讯

  • 正在加载中...

成都车展 宏光MINI EV 普拉多 欧拉黑猫 途达 起亚嘉华 玛奇朵 皇冠陆放 奔驰C级 哈弗神兽 坦克600 奥迪Q5 思域 卡罗拉双擎E+ 轩逸 太平洋汽车网app 新能源车

最新资讯离线随时看 聊天吐槽赢奖品