博客展示了在VB中调用DLL函数创建快捷方式的代码。通过Declare语句声明fCreateShellLink函数，在Command1Click子程序里，分别将计算器快捷方式添加到桌面和程序组，使用该函数指定文件夹名、链接名、链接路径和链接参数。
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
扫一扫
211
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
