|
OSfCreateShellGroup，OSfCreateShellLink，OSfRemoveShellLink三個API函數存在于VB的一個動態連接庫Vb5stkit.dll中，使用它們可以方便的創建桌面上或是開始菜單中的快捷方式。
我們先來聲明以上幾個API函數，如下所示：
Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long
Private Declare Function OSfCreateShellLink Lib "Vb5stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long
Private Declare Function OSfRemoveShellLink Lib "Vb5stkit.dll" Alias "fRemoveShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long
其中OSfCreateShellGroup函數的作用是在程序菜單中添加一個名為lpstrDirName的程序組，其參數的意義如下：
參數： 意義
lpstrDirName String，lpstrDirName指定了要創建的程序組的名稱
返回值
Long，非零表示成功，零表示失敗
其中OSfCreateShellLink函數的作用在指定的文件夾內創建快捷方式，其參數的意義如下：
參數： 意義
lpstrfoldername String,指定保存快捷方式的文件夾,默認為"c:Windowsstartmenuprograms"
lpstrlinkname String，指定快捷方式的名稱
lpstrpathname String，指定快捷方式所指向的應用程序或文件
返回值 Long，非零表示成功，零表示失敗
其中OSfRemoveShellLink函數的作用是刪除一個已經建立的快捷方式，其參數的意義如下：
參數： 意義
lpstrFolderName String，指定了要刪除的快捷方式所在的文件夾
lpstrLinkName String，指定了要刪除的快捷方式的名稱
返回值 Long，非零表示成功，零表示失敗
聲明完后就可以在程序中使用這幾個函數了，我們先來創建一個桌面上的快捷方式吧，只須一句代碼即可：
lresult = OSfCreateShellLink("....desktop", "記事本", "c:Windows otepad.exe", "")
其中"....desktop"是指桌面所在的目錄，"記事本"是快捷方式的名稱，而快捷方式所指向的目標文件是"c:windows otepad.exe"。
下面看看怎么添加快捷方式到開始和程序菜單中：
1、添加快捷方式到開始菜單：
lresult = OSfCreateShellLink("....start menu", "記事本", "c:Windows otepad.exe", "")
2、添加快捷方式到程序菜單(開始菜單中的“程序”子菜單)中
注釋：在程序菜單中添加一個名為Test的程序組
lresult = OSfCreateShellGroup("Test")
注釋：在程序菜單的Test程序組下創建記事本的快捷方式
lresult = OSfCreateShellLink("test", "記事本", "c:Windows otepad.exe", "")
現在運行程序就能看到添加到各個位置的快捷方式了，刪除這些快捷方式的方法也很簡單，比如我們要刪除剛才添加在桌面上的快捷方式，則可以用下面代碼來實現。
lresult = OSfRemoveShellLink("....desktop", "記事本")
同樣的要刪除開始和程序菜單中的快捷方式，只須使用如下語句即可：
注釋：刪除開始菜單上的快捷方式
lresult = OSfRemoveShellLink("....start menu", "記事本")
注釋：刪除Test程序組下的快捷方式
lresult = OSfRemoveShellLink("Test", "記事本")
|
