用VB5.0创建Windows快捷方式

手Tinker剁手

手Tinker剁手

2016-02-19 21:47

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享用VB5.0创建Windows快捷方式,希望可以让热爱学习的朋友们体会到设计的小小的乐趣。
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: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下通过。->

展开更多 50%)
分享

猜你喜欢

用VB5.0创建Windows快捷方式

编程语言 网络编程
用VB5.0创建Windows快捷方式

如何用VB建立快捷方式

编程语言 网络编程
如何用VB建立快捷方式

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Windows 8如何在桌面创建快捷方式?

电脑入门
Windows 8如何在桌面创建快捷方式?

VB5.0与Windows API 间的呼叫技巧

编程语言 网络编程
VB5.0与Windows API 间的呼叫技巧

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

使用Javascript创建快捷方式

Web开发
使用Javascript创建快捷方式

用Visual C# 2005创建快捷方式

编程语言 网络编程
用Visual C# 2005创建快捷方式

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

VB中子分类技术的应用

VB中子分类技术的应用

没有做不完的梦,只有不愿醒的人.

没有做不完的梦,只有不愿醒的人.
下拉加载更多内容 ↓