基础:如何用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

上一篇： 利用硬盘序列号计算软件注册码
下一篇： 保存webbrowser中的HTML内容

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!