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:windowscalc.exe","")
''添加到程序组
lReturn=fCreateShellLink("Startup","Shortcut to Calculator","c:windowscalc.exe","")
End Sub
BBS讨论
用户评论