龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

如何用VB在桌面建立快捷方式

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
下面的代码向你演示在VB中如何创建一个快捷方式。 PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong
下面的代码向你演示在VB中如何创建一个快捷方式。
  
  PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong
  SubCommand1_Click()
  
  DimlReturnAsLong
  
  '添加到桌面
  lReturn=fCreateShellLink("....Desktop","ShortcuttoCalculator","c:windowscalc.exe","")
  '添加到程序组
  lReturn=fCreateShellLink("","ShortcuttoCalculator","c:windowscalc.exe","")
  '添加到启动组
  lReturn=fCreateShellLink("Startup","ShortcuttoCalculator","c:windowscalc.exe","")
  
  EndSub->

精彩图集

赞助商链接