用VB5.0创建Windows快捷方式
ReadyGo!技术成就梦想
网络搜索
efish
2008-2-24 2:47:44
Windows环境下的快捷方式由于能够极大的简化了用户访问磁盘文件的操作，因此，许多软件在安装的最后阶段都会在开始菜单或者桌面上建立应用程序的快捷方式，通常，这些工作都是利用专门的安装软件来完成的。可在一些软件中，还为用户在程序中动态的添加或者删除桌面上的快捷方式的功能。本文所要讲述的就是如何在VB中实现动态添加/删除Windows的快捷方式。
----要在VB中创建Windows的快捷方式，需要用到VB的一个动态链接库Vb5stkit.dll。在该动态链接库中提供了三个函数OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink，分别用于创建快捷方式程序组、快捷方式、删除快捷方式。这三个函数的声明形式分别如下：
PrivateDeclareFunctionOSfCreateShellGroupLib"Vb5stkit.dll"Alias"fCreateShellFolder"(ByVallpstrDirNameAsString)AsLong
PrivateDeclareFunctionOSfCreateShellLinkLib"Vb5stkit.dll"Alias"fCreateShellLink"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgumentsAsString)AsLong
PrivateDeclareFunctionOSfRemoveShellLinkLib"Vb5stkit.dll"Alias"fRemoveShellLink"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString)AsLong
----其中lpstrDirName指定了程序组的名称；lpstrfoldername指定保存快捷方式的文件夹，默认为“c:\Windows\startmenu\programs”，lpstrlinkname指定快捷方式的文件名，lpstrpathname指定快捷方式所指向的应用程序或文件。
----下面的代码具体演示了以上三个函数的用法：
----首先在VB下新建“工程”，然后在Form1的“通用”，“声明”部分输入上面列出的函数声明，然后在Form1上添加三个命令按钮，在其Click事件中分别输入：
PrivateSubCommand1_Click()
DimlresultAsLong
"在桌面创建记事本的快捷方式
lresult=OSfCreateShellLink("..\..\desktop",
"记事本","c:\Windows\notepad.exe","")
"在开始菜单创建记事本的快捷方式
lresult=OSfCreateShellLink("..\..\startmenu",
"记事本","c:\Windows\notepad.exe","")
"在程序菜单的Test程序组下创建记事本的快捷方式
lresult=OSfCreateShellLink("test","记事本",
"c:\Windows\notepad.exe","")
EndSub
PrivateSubCommand2_Click()
DimlresultAsLong
"在程序菜单中添加一个名为Test的程序组
lresult=OSfCreateShellGroup("Test")
EndSub
PrivateSubCommand3_Click()
DimlresultAsLong
"删除开始菜单上的快捷方式
lresult=OsfRemoveShellLink
("..\..\startmenu","记事本")
"删除桌面上的快捷方式
lresult=OsfRemoveShellLink
("..\..\desktop","记事本")
"删除Test程序组下的快捷方式
lresult=OSfRemoveShellLink("Test","记事本")
EndSub
----按F5运行工程1，单击命令按钮就可以看到实际的效果了。
----最后还要说明一点，虽然上述代码是在VB5.0下调试的，但同样适用于VB4.0，只是需要将上述声明中的Vb5stkit.dll替换为stkit432.dll。上述代码在Windows98，vb5.0SP3下通过。->
----要在VB中创建Windows的快捷方式，需要用到VB的一个动态链接库Vb5stkit.dll。在该动态链接库中提供了三个函数OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink，分别用于创建快捷方式程序组、快捷方式、删除快捷方式。这三个函数的声明形式分别如下：
PrivateDeclareFunctionOSfCreateShellGroupLib"Vb5stkit.dll"Alias"fCreateShellFolder"(ByVallpstrDirNameAsString)AsLong
PrivateDeclareFunctionOSfCreateShellLinkLib"Vb5stkit.dll"Alias"fCreateShellLink"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgumentsAsString)AsLong
PrivateDeclareFunctionOSfRemoveShellLinkLib"Vb5stkit.dll"Alias"fRemoveShellLink"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString)AsLong
----其中lpstrDirName指定了程序组的名称；lpstrfoldername指定保存快捷方式的文件夹，默认为“c:\Windows\startmenu\programs”，lpstrlinkname指定快捷方式的文件名，lpstrpathname指定快捷方式所指向的应用程序或文件。
----下面的代码具体演示了以上三个函数的用法：
----首先在VB下新建“工程”，然后在Form1的“通用”，“声明”部分输入上面列出的函数声明，然后在Form1上添加三个命令按钮，在其Click事件中分别输入：
PrivateSubCommand1_Click()
DimlresultAsLong
"在桌面创建记事本的快捷方式
lresult=OSfCreateShellLink("..\..\desktop",
"记事本","c:\Windows\notepad.exe","")
"在开始菜单创建记事本的快捷方式
lresult=OSfCreateShellLink("..\..\startmenu",
"记事本","c:\Windows\notepad.exe","")
"在程序菜单的Test程序组下创建记事本的快捷方式
lresult=OSfCreateShellLink("test","记事本",
"c:\Windows\notepad.exe","")
EndSub
PrivateSubCommand2_Click()
DimlresultAsLong
"在程序菜单中添加一个名为Test的程序组
lresult=OSfCreateShellGroup("Test")
EndSub
PrivateSubCommand3_Click()
DimlresultAsLong
"删除开始菜单上的快捷方式
lresult=OsfRemoveShellLink
("..\..\startmenu","记事本")
"删除桌面上的快捷方式
lresult=OsfRemoveShellLink
("..\..\desktop","记事本")
"删除Test程序组下的快捷方式
lresult=OSfRemoveShellLink("Test","记事本")
EndSub
----按F5运行工程1，单击命令按钮就可以看到实际的效果了。
----最后还要说明一点，虽然上述代码是在VB5.0下调试的，但同样适用于VB4.0，只是需要将上述声明中的Vb5stkit.dll替换为stkit432.dll。上述代码在Windows98，vb5.0SP3下通过。->
-
相关文章
VB5.0应用程序的启动与退出设计
VB5.0应用程序的启动与退出设计
VB5.0中实现字体闪烁效果
VB5.0中实现字体闪烁效果
用VB尝试新的界面风格
用VB尝试新的界面风格
利用VB三维面板控件设计流动条
利用VB三维面板控件设计流动条
用VB实现浮动按钮
用VB实现浮动按钮
用VB制作即时动态按钮
用VB制作即时动态按钮
用VB实现象Windows记事本的一些功能
用VB实现象Windows记事本的一些功能
FLIC动画文件的播放程序设计
FLIC动画文件的播放程序设计
用Winsock制作一套聊天室和对话系统
用Winsock制作一套聊天室和对话系统
在程序中打开Internet拨号连接窗口
在程序中打开Internet拨号连接窗口
2秒记住本站域名
玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn