网页功能: 加入收藏 设为首页 网站搜索  
如何用VB建立快捷方式
发表日期:2003-12-01作者:Terly1981[] 出处:  

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

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 如何用VB建立快捷方式
本类热点文章
  揭穿号称内存占用极低的软件的诡计
  用VB6实现真正实用的多线程处理
  读写INI文件的四个函数
  shell函数能以同步方式打开一个exe文件
  VB的API编程精粹
  TAPI笔记
  锁定计算机
  巧用API函数增强VB位操作功能
  在VB中使用API函数
  让你的文本框“聪明”一点
  关机消息的拦截
  在WIN2000下实现程序的关机
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00321