首页 / 软件开发 / VB / 用VB建立捷径（ShortCut）

用VB建立捷径（ShortCut）2010-01-02王国荣原本这应是用OLE的方式来做，但可用以下的方式来做，前题是有vb所提供的vb5stkit.dll所以令人 不太愉快

Private Declare Function fCreateShellLink Lib "vb5stkit.dll" _
（ByVal Forder As String, ByVal ShortCutName As String, _
ByVal ExePath As String, ByVal Params As String） As Long
Dim ret As Long
"放在DeskTop
ret = fCreateShellLink（"....Desktop", "MyName", "c: oolsspe3 pe2.exe", ""）
"放在开始功能表
ret = fCreateShellLink（"..", "MyName", "c: oolsspe3 pe2.exe", ""）
"放在程式集功能表
ret = fCreateShellLink（".", "MyName", "c: oolsspe3 pe2.exe", ""）