如何用VB建立快捷方式

mingzuhao 2008-01-11 10:22:06

如何用VB建立快捷方式

...全文

38 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

mingzuhao 2008-01-11

打赏
举报

谢谢

caofusheng 2008-01-11

打赏
举报

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 Command1_Click()
Dim lReturn As Long
'添加到桌面
lReturn = fCreateShellLink("..\\..\\Desktop", "Shortcut to Calculator", "c:\\windows\\calc.exe", "")
'添加到程序组
lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\\windows\\calc.exe", "")
'添加到启动组
lReturn = fCreateShellLink("\\Startup", "Shortcut to Calculator", "c:\\windows\\calc.exe", "")
End Sub