VB 版 (精华区)

发信人: alias (白桦林), 信区: VB
标  题: Win95系统API函数大揭秘(6)
发信站: 哈工大紫丁香 (Wed Jul 26 10:57:18 2000), 转信

发信人: yucheng (Bingo), 信区: VisualBasic       
发信站: BBS 水木清华站 (Fri Feb 25 17:26:27 2000)

建立快捷键
Win95中快捷方式提供了对常用程序和文档的访问捷径，你可以为桌面或文件夹中的任何
程序、文档
或打印机添加快捷方式。VB5中利用fCreateShellLink函数可以为常用程序和文档快速建
立建立快捷键。
fCreateShellLink的声明为：
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFol
derName As String,
ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLin
kArgs As String)
As Long
LpstrFolderName设置快捷方式的文件夹名称，lpstrLinkName设置快捷方式的标题名称
，lpstrLinkPath
设置快捷方式所指向的应用程序的目录及文件名。简而言之，如下格式：
fCreateShellLink(Destinationpath， Shortcutname, SourcepathAppName, "")
    如下代码在“桌面”上为“d:\path\appname.exe”应用程序建立名为"Shortcut T
itle"的快捷方
式。
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFol
derName As String,
ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLin
kArgs As String)
As Long
Private Sub Form_Click()
lResult = fCreateShellLink("....\WINDOWS\DESKTOP", "Shortcut Title", "d:\pat
h\appname.exe",
"")
End Sub
技巧：
如果想在“桌面”上建立快捷方式，则建立目标目录应该为“....\WINDOWS\DESKTOP”
; 如果想在
“开始”菜单中建立快捷方式，则建立目标目录应该为“....\WINDOWS\Start Menu”；
 如果想在“程
序”菜单中建立快捷方式，则建立目标目录应该为相应的“....C:\WINDOWS\Start Men
u\Programs”中，
以此类推。


--
有人说我捂着脸的时候特象周润发，你信不信？
    Flying                            Fox          
   Flying                       Fox                 
     Flying                  Fox              
        Flying            Fox                   
           Flying      Fox                      

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mig.bbs@smth.org]