查看完整版本: 如何用VB建立捷径(ShortCut)

如何用VB建立捷径(ShortCut)

　　如何用VB建立捷径(ShortCut)

作者: 王国荣　

　　原本这应是用OLE的方式来做，但可用以下的方式来做，前题
是有vb所提供的vb5stkit.dll所以令人不太愉快

** 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: oolsspe3pe2.exe", "")
注释：放在开始功能表
ret = fCreateShellLink("..", "MyName", "c: oolsspe3pe2.exe", "")
注释：放在程式集功能表
ret = fCreateShellLink(".", "MyName", "c: oolsspe3pe2.exe", "")