正文

 如何用VB建立快捷方式2005-10-11 20:58:00

【评论】 【打印】 【字体：大 中 小】 本文链接：http://blog.pfan.cn/iamben250/5930.html

分享到：

 

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

阅读(1995) | 评论(0)


版权声明：编程爱好者网站为此博客服务提供商，如本文牵涉到版权问题，编程爱好者网站不承担相关责任，如有版权问题请直接与本文作者联系解决。谢谢！

评论

暂无评论
您需要登录后才能评论，请 登录 或者 注册