用VB5.0创建Windows快捷方式
生活已是百般艰难,为何不努力一点。下面图老师就给大家分享用VB5.0创建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:Windowsstartmenuprograms”,lpstrlinkname指定快捷方式的文件名,lpstrpathname指定快捷方式所指向的应用程序或文件。
----下面的代码具体演示了以上三个函数的用法:
----首先在VB下新建“工程”,然后在Form1的“通用”,“声明”部分输入上面列出的函数声明,然后在Form1上添加三个命令按钮,在其Click事件中分别输入:
PrivateSubCommand1_Click()
DimlresultAsLong
'在桌面创建记事本的快捷方式
lresult=OSfCreateShellLink("....desktop",
"记事本","c:Windowsotepad.exe","")
'在开始菜单创建记事本的快捷方式
lresult=OSfCreateShellLink("....startmenu",
"记事本","c:Windowsotepad.exe","")
'在程序菜单的Test程序组下创建记事本的快捷方式
lresult=OSfCreateShellLink("test","记事本",
"c:Windowsotepad.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下通过。->