|
- '创建快捷方式
- Public Declare Function fCreateShellLink Lib "vb6stkit.DLL" ( _
- ByVal lpstrFolderName As String, _
- ByVal lpstrLinkName As String, _
- ByVal lpstrLinkPath As String, _
- ByVal lpstrLinkArgs As String, _
- ByVal fPrivate As Long, _
- ByVal sParent As String) As Long
- '
- 'lpstrFolderName 文件夹的名称 “$(proprams)” 程序组 "$(Strar Menu)" 开始菜单
- 'lpstrLinkName 快捷键的名称
- '
- 'lpstrLinkPath 快捷键的路径
- '
- 'lpstrLinkArgs 这里是命令行参数
- '
- 'fPrivate True
- '
- 'sParent 上一层文件夹
- '快捷方式中的常数
- Public Enum ShortCutPosition
- vbDesktop = 1 '桌面
- vbStart = 2 '启动项
- vbStartMenu = 3 '开始菜单程序项
- vbGroup = 4 '开始菜单顶端
- End Enum
- '创建快捷方式
-
- Public Sub ShortCut(Position As ShortCutPosition, LinkName As String, Path As String)
- Dim ret As Long
- Select Case Position
- Case 1
- ret = fCreateShellLink("..\\..\\桌面", LinkName, Path, "", True, "$(Programs)")
- If ret = 0 Then
- ret = fCreateShellLink("..\\..\\Desktop", LinkName, Path, "", True, "$(Programs)")
- End If
- Case 2
- ret = fCreateShellLink("启动", LinkName, Path, "", True, "$(Programs)")
- Case 3
- '在开始菜单程序项建立快捷方式
- ret = fCreateShellLink(".", LinkName, Path, "", True, "$(Programs)")
- Case 4
- '在开始菜单顶端建立快捷方式
- ret = fCreateShellLink("..", LinkName, Path, "", True, "$(Programs)")
- End Select
- End Sub
- Private Sub Command1_Click()
- Dim x As String
- x = InputBox("1.桌面快捷方式" & vbCrLf & vbCrLf & "2.启动快捷方式" & vbCrLf & vbCrLf & "3.开始菜单程序项快捷方式" & vbCrLf & vbCrLf & "4.开始菜单顶端快捷方式", "提示")
- Select Case x
- Case 1
- ShortCut vbDesktop, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
- Case 2
- ShortCut vbStart, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
- Case 3
- ShortCut vbStartMenu, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
- Case 4
- ShortCut vbGroup, "功能全集", CheckFilePath(App.Path) & "功能全集.exe"
- End Select
- End Sub
复制代码
[ 本帖最后由 icecept 于 2009-1-22 16:45 编辑 ] |
评分
-
查看全部评分
|