用api建立快捷方式<VB6.0>桌面、启动项、开始菜单

icecept

1. 
   
2. '创建快捷方式
   
3. Public Declare Function fCreateShellLink Lib "vb6stkit.DLL" ( _
   
4. ByVal lpstrFolderName As String, _
   
5. ByVal lpstrLinkName As String, _
   
6. ByVal lpstrLinkPath As String, _
   
7. ByVal lpstrLinkArgs As String, _
   
8. ByVal fPrivate As Long, _
   
9. ByVal sParent As String) As Long
   
10. '
    
11. 'lpstrFolderName  文件夹的名称 “$(proprams)” 程序组 "$(Strar Menu)" 开始菜单
    
12. 'lpstrLinkName 快捷键的名称
    
13. '
    
14. 'lpstrLinkPath 快捷键的路径
    
15. '
    
16. 'lpstrLinkArgs       这里是命令行参数
    
17. '
    
18. 'fPrivate True
    
19. '
    
20. 'sParent 上一层文件夹
    
21. '快捷方式中的常数
    
22. Public Enum ShortCutPosition
    
23.        vbDesktop = 1      '桌面
    
24.        vbStart = 2        '启动项
    
25.        vbStartMenu = 3    '开始菜单程序项
    
26.        vbGroup = 4        '开始菜单顶端
    
27. End Enum
    
28. '创建快捷方式
    
29.       
    
30. Public Sub ShortCut(Position As ShortCutPosition, LinkName As String, Path As String)
    
31.      Dim ret As Long
    
32.      Select Case Position
    
33.            Case 1
    
34.                 ret = fCreateShellLink("..\\..\\桌面", LinkName, Path, "", True, "$(Programs)")
    
35.                 If ret = 0 Then
    
36.                    ret = fCreateShellLink("..\\..\\Desktop", LinkName, Path, "", True, "$(Programs)")
    
37.                 End If
    
38.            Case 2
    
39.                 ret = fCreateShellLink("启动", LinkName, Path, "", True, "$(Programs)")
    
40.            Case 3
    
41.                 '在开始菜单程序项建立快捷方式
    
42.                 ret = fCreateShellLink(".", LinkName, Path, "", True, "$(Programs)")
    
43.            Case 4
    
44.                 '在开始菜单顶端建立快捷方式
    
45.                 ret = fCreateShellLink("..", LinkName, Path, "", True, "$(Programs)")
    
46.     End Select
    
47. End Sub
    
48. Private Sub Command1_Click()
    
49.     Dim x As String
    
50.     x = InputBox("1.桌面快捷方式" & vbCrLf & vbCrLf & "2.启动快捷方式" & vbCrLf & vbCrLf & "3.开始菜单程序项快捷方式" & vbCrLf & vbCrLf & "4.开始菜单顶端快捷方式", "提示")
    
51.     Select Case x
    
52.            Case 1
    
53.                 ShortCut vbDesktop, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
    
54.            Case 2
    
55.                 ShortCut vbStart, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
    
56.            Case 3
    
57.                 ShortCut vbStartMenu, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
    
58.            Case 4
    
59.                 ShortCut vbGroup, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
    
60.     End Select
    
61. End Sub
    
62. 
    

复制代码

[ 本帖最后由 icecept 于 2009-1-22 16:45 编辑 ]

灯雪

so good

Freegoodman

非常棒!顶一下

toudu

vb6stkit.DLL需要加入资源不？

DreamonII

收藏学习，加分支持！

icecept

vb6stkit.DLL是vb6.0自带的一个dll，如果用它编写的建立快捷方式的程序，必须带上它方可运行
你可以把它加入资源文件。当运行时，判断windows\system３２中有没有此控件，如果有便不作任何操作，如果没有便把它释放到windows\system３２目录中，然后用　regsvr32 vb6stkit.DLL注册，这样就不怕其它系统中没有vb6stkit.DLL了

[ 本帖最后由 icecept 于 2009-1-22 16:46 编辑 ]

icecept

谢谢DreamonII ，好久不见了。

DreamonII

嗯，最近经常不在家，呵呵

irX26

有没有不用其他dll建立快捷方式的办法

lz这办法 win98年代已经有了

icecept

有，用windows　script　host来创建快捷方式，效果更佳。