VB 版 (精华区)

发信人: zxfsnow (再见工大), 信区: VB
标  题: 创建快捷方式
发信站: 哈工大紫丁香 (2000年06月20日12:58:56 星期二), 转信

发信人: espn (小楼一夜听春雨), 信区: VisualBasic
标  题: 创建快捷方式
发信站: BBS 水木清华站 (Wed Oct 13 09:44:34 1999)

刚从报纸上看的, 现炒现买, 哈哈.

要用到VB的DLL: Vb5stkit.dll
         函数: OSfCreateShellGroup   创建快捷方式程序组
               OSfCreateShellLink    创建快捷方式
               OSfRemoveShellLink    删除快捷方式

在VB6中有Vb6stkit.dll, 但我试了一下, 说找不到DLL的入口点.

函数声明如下:

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: 快捷方式所指定的应用程序或文件

例程:

Private sub command1_click()
        dim lresult as long
        lresult = Osfcreateshelllink("..\..\desktop","记事本",_
                                     "c:\windows\notepad.exe","")
        '在桌面上创建
        lresult=osfcreateshelllink("..\..\start menu","记事本", _
                                   "c:\Windows\notepad.exe","")
        '在开始菜单中创建
        lresult=osfcreateshelllink("test","记事本", _
                                   "c:\Windows\notepad.exe","")
        '在test程序组中创建
end sub
Private sub command2_click()
        dim lresult as long
        lresult=osfcreateshellgroup("Test")
        '
end sub

Private sub command3_click()
        dim lresult as long
        lresult=osfremoveshelllink("..\..\start menu","记事本")
        lresult=osfremoveshelllink("..\..\desktop","记事本")
        lresult=osfremoveshelllink("Test","记事本")

end sub 
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]