新发表

新评论

留言信息

链接收藏

免费注册博客通道

快速登陆

如何用VB建立快捷方式

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

原文地址：http://blog.yesky.com/blog/jfzlnyf/archive/2005/02/12/73804.aspx

Posted by jser | 阅读全文() | 回复(0) | 引用通告() | 编辑