[转载] VB利用API函数创建程序快捷方式

---- Windows环境下的快捷方式由于能够极大的简化了用户访问磁盘文件的操作，因此，许多软件在安装的最后阶段都会在开始菜单或者桌面上建立应用程序的快捷方式，通常，这些工作都是利用专门的安装软件来完成的。可在一些软件中，还为用户在程序中动态的添加或者删除桌面上的快捷方式的功能。本文所要讲述的就是如何在VB中实现动态添加/删除Windows的快捷方式。
---- 要在VB中创建Windows的快捷方式，需要用到VB的一个动态链接库Vb5stkit.dll。在该动态链接库中提供了三个函数OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink，分别用于创建快捷方式程序组、快捷方式、删除快捷方式。这三个函数的声明形式分别如下：
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
---- 其中lpstrDirName指定了程序组的名称；lpstrfoldername指定保存快捷方式的文件夹，默认为“c:\Windows\start menu\programs”，lpstrlinkname指定快捷方式的文件名，lpstrpathname指定快捷方式所指向的应用程序或文件。
---- 下面的代码具体演示了以上三个函数的用法：

1. Private Sub Command1_Click()
   
2. Dim lresult As Long
   
3. '在桌面创建记事本的快捷方式
   
4. lresult = OSfCreateShellLink("..\..\desktop",
   
5. "记事本", "c:\Windows\notepad.exe", "")
   
6. '在开始菜单创建记事本的快捷方式
   
7. lresult = OSfCreateShellLink("..\..\start menu",
   
8. "记事本", "c:\Windows\notepad.exe", "")
   
9. '在程序菜单的Test程序组下创建记事本的快捷方式
   
10. lresult = OSfCreateShellLink("test", "记事本",
    
11. "c:\Windows\notepad.exe", "")
    
12. End Sub
    
13. Private Sub Command2_Click()
    
14. Dim lresult As Long
    
15. '在程序菜单中添加一个名为Test的程序组
    
16. lresult = OSfCreateShellGroup("Test")
    
17. End Sub
    
18. Private Sub Command3_Click()
    
19. Dim lresult As Long
    
20. '删除开始菜单上的快捷方式
    
21. lresult = OsfRemoveShellLink
    
22. ("..\..\start menu", "记事本")
    
23. '删除桌面上的快捷方式
    
24. lresult = OsfRemoveShellLink
    
25. ("..\..\desktop", "记事本")
    
26. '删除Test程序组下的快捷方式
    
27. lresult = OSfRemoveShellLink("Test", "记事本")
    
28. End Sub

复制代码