Windows環境下的快捷方式由於能夠極大的簡化了用戶訪問磁盤文件的操作，因此，許多軟件在安裝的最後階段都會在開始菜單或者桌面上建立應用程序的快捷方式，通常，這些工作都是利用專門的安裝軟件來完成的。可在一些軟件中，還為用戶在程序中動態的添加或者刪除桌面上的快捷方式的功能。本文所要講述的就是如何在VB中實現動態添加/刪除Windows的快捷方式。
----要在VB中創建Windows的快捷方式，需要用到VB的一個動態鏈接庫Vb5stkit.dll。在該動態鏈接庫中提供了三個函數OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink，分別用於創建快捷方式程序組、快捷方式、刪除快捷方式。這三個函數的聲明形式分別如下：
PrivateDeclareFunctionOSfCreateShellGroupLib"Vb5stkit.dll"Alias"fCreateShellFolder"(ByVallpstrDirNameAsString)AsLong
PrivateDeclareFunctionOSfCreateShellLinkLib"Vb5stkit.dll"Alias"fCreateShellLink"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgumentsAsString)AsLong
PrivateDeclareFunctionOSfRemoveShellLinkLib"Vb5stkit.dll"Alias"fRemoveShellLink"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString)AsLong
----其中lpstrDirName指定了程序組的名稱；lpstrfoldername指定保存快捷方式的文件夾，默認為“c:Windowsstartmenuprograms”，lpstrlinkname指定快捷方式的文件名，lpstrpathname指定快捷方式所指向的應用程序或文件。
----下面的代碼具體演示了以上三個函數的用法：
----首先在VB下新建“工程”，然後在Form1的“通用”，“聲明”部分輸入上面列出的函數聲明，然後在Form1上添加三個命令按鈕，在其Click事件中分別輸入：
PrivateSubCommand1_Click()
DimlresultAsLong
'在桌面創建記事本的快捷方式
lresult=OSfCreateShellLink("....desktop",
"記事本","c:Windows
otepad.exe","")
'在開始菜單創建記事本的快捷方式
lresult=OSfCreateShellLink("....startmenu",
"記事本","c:Windows
otepad.exe","")
'在程序菜單的Test程序組下創建記事本的快捷方式
lresult=OSfCreateShellLink("test","記事本",
"c:Windows
otepad.exe","")
EndSub
PrivateSubCommand2_Click()
DimlresultAsLong
'在程序菜單中添加一個名為Test的程序組
lresult=OSfCreateShellGroup("Test")
EndSub
PrivateSubCommand3_Click()
DimlresultAsLong
'刪除開始菜單上的快捷方式
lresult=OsfRemoveShellLink
("....startmenu","記事本")
'刪除桌面上的快捷方式
lresult=OsfRemoveShellLink
("....desktop","記事本")
'刪除Test程序組下的快捷方式
lresult=OSfRemoveShellLink("Test","記事本")
EndSub
----按F5運行工程1，單擊命令按鈕就可以看到實際的效果了。
----最後還要說明一點，雖然上述代碼是在VB5.0下調試的，但同樣適用於VB4.0，只是需要將上述聲明中的Vb5stkit.dll替換為stkit432.dll。上述代碼在Windows98，vb5.0SP3下通過。->
