WEB开发网
开发学院软件开发VB 利用VisualBasic建立快捷方式 阅读

利用VisualBasic建立快捷方式

 2006-02-27 21:08:13 来源:WEB开发网   
核心提示:PRivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrL
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->

Tags:利用 VisualBasic 建立

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接