PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong
SubCommand1_Click()
DimlReturnAsLong
'添加到桌面
lReturn=fCreateShellLink("..\..\Desktop","ShortcuttoCalculator","c:\windows\calc.exe","")
'添加到程序组
lReturn=fCreateShellLink("","ShortcuttoCalculator","c:\windows\calc.exe","")
'添加到启动组
lReturn=fCreateShellLink("\Startup","ShortcuttoCalculator","c:\windows\calc.exe","")
EndSub->
利用VisualBasic建立快捷方式
2006-02-27 10:35:42 作者
相关文章
- · DELPHI中的快捷方式一览(完全正式版)
- · DELPHI中的快捷方式一览(完全正式版)
- · 注册快捷方式
- · 在delphi中建立程序的快捷方式--并将快捷方式放在开始->程序->的启动组中
- · 用VB5.0创建Windows快捷方式
- · 如何用VB建立快捷方式
- · VisualBasic窗体背景花纹的实现
- · 用VisualBasic5.0设计E-mail程序(MAPI)
- · 在VisualBasic中终止Windows95
- · 利用VisualBasic实现木马攻击
- · 用VisualBasic也可以实现P2P
- · 用VisualBasic自编小游戏
- · 用VisualBasic与MS-Draw开发通用作图软件
- · 如何用VisualBasic编写小型的网络系统
- · VisualBasic代码优化的六条军规
- · 提高VisualBasic访问数据库的效率
- · 提高VisualBasic访问数据库效率
- · VisualBasic移除Form右上方之『X』按钮
- · VisualBasic产生渐层的Form背景
- · VisualBasic让一个Form出现在另一个非MDIForm的Form中
- · VisualBasic可以产生四角形以外其他形状的Form
