敬业的IT人 互联网 佚名 2008-4-18 10:58:12

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

最新文章

用VB实现文件查找功能[04-18]

VB创建、修改、删除WIN2K用户[04-18]

用DAO或ADO正确访问Access2000[04-18]

快捷键--找寻Function/Subroutine[04-18]

VB5.0中实现字体闪烁效果[04-18]

用VB尝试新的界面风格[04-18]

相关文章

加速VisualBasicForApplication(VB..[04-18]

VisualBasic软件设计中的几个问题[04-18]

VisualBasic窗体背景花纹的实现[04-18]

VisualBasic6.0实用编程技巧3例[04-18]

利用VisualBasic设计多媒体应用程序[04-18]

VisualBasic工程管理三[04-18]