2007-10-25 22:48:19
Kenny
如何用VB建立捷徑(ShortCut)
原本這應是用OLE的方式來做，但可用以下的方式來做，前題 是有vb所提供的vb5stkit.dll所以令人不太愉快 原始來源:王國榮 cww 更改
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:\tools\spe3\pe2.exe", "")
'放在開始功能表
ret = fCreateShellLink("..", "MyName", "c:\tools\spe3\pe2.exe", "")
'放在程式集功能表
ret = fCreateShellLink(".", "MyName", "c:\tools\spe3\pe2.exe", "")
|