楼 主
[已结]如何将软件程序附到开始菜单上
发表于 2006-06-17 16:40 · 中国 江苏 扬州 电信
新手上路
★
积分 14
发帖 3
注册 2006-06-17 15:46
20年会员
UID 57158
状态 离线
请高手帮忙:我的系统是xp,我的d盘里装了一些绿色软件,我想在重做系统后只要运行一个批处理文件就可以把那些绿色软件的快捷方式附到开始菜单。
注意是附到开始菜单,而不是放到开始菜单!!!!!
[ Last edited by willsort on 2006-6-20 at 14:07 ]
第 2 楼
发表于 2006-06-17 16:54 · 中国 北京 鹏博士BGP
中级用户
★★
积分 404
发帖 179
注册 2006-03-30 14:44
20年会员
UID 53056
状态 离线
第 3 楼
发表于 2006-06-18 19:30 · 中国 山西 运城 中移铁通
元老会员
★★★★
Batchinger
积分 4,432
发帖 1,512
注册 2002-10-18 00:00
23年会员
UID 19
性别 男
状态 离线
───────────────── 版务记录 ─────────────────
执行:Will Sort
操作:修改标题 - 请问将某个文件夹下的文件附到开始菜单的批处理文件怎样�
───────────────── 版务记录 ─────────────────
Re xpxhj:
单纯批处理的方法似乎只有使用 reg / regedit 导入注册表,只不过它会清除原来的附着程序。
在MircrosoftTechNet的脚本中心找到了vbs的方案,也可以将它嵌入在批处理中。
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("C:\Windows\System32")
::: Set objFolderItem = objFolder.ParseName("calc.exe")
:::
::: ' 列出快捷菜单所有动词
::: 'Set colVerbs = objFolderItem.Verbs
::: 'For Each objVerb in colVerbs
::: ' Wscript.Echo objVerb
::: 'Next
:::
::: objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: 'objFolderItem.InvokeVerb("从「开始」菜单脱离(&I)")
@echo off
findstr "^:::" < %~f0 > _%~n0.vbs
if exist _%~n0.vbs (cscript //nologo _%~n0.vbs & del _%~n0.vbs)
可以使用脚本将文件放到“开始”菜单上吗?
http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey1111.mspx
[
Last edited by willsort on 2006-6-18 at 20:05 ]
※ Batchinger 致 Bat Fans:请访问
批处理编程的异类 ,欢迎交流与共享批处理编程心得!
第 4 楼
发表于 2006-06-18 20:55 · IANA 局域网IP(Private-Use)
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
20年会员
UID 42173
性别 男
状态 离线
用教本可以生成菜单,但是更简单的方法是把快捷方式保存到一个目录下,编一个copy的bat到 开始菜单 就可以了
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 5 楼
发表于 2006-06-20 13:07 · 中国 江苏 扬州 电信
新手上路
★
积分 14
发帖 3
注册 2006-06-17 15:46
20年会员
UID 57158
状态 离线
willsort你好:
谢谢你了!!!
我已搞定。
@echo off
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("H:\BitComet")
::: Set objFolderItem = objFolder.ParseName("BitComet.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("H:\eMule")
::: Set objFolderItem = objFolder.ParseName("eMule.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("D:\UltraISO")
::: Set objFolderItem = objFolder.ParseName("UltraISO.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("D:\KMPlayer")
::: Set objFolderItem = objFolder.ParseName("KMPlayer.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("D:\Thunder")
::: Set objFolderItem = objFolder.ParseName("Thunder.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("D:\AutoCAD 2002")
::: Set objFolderItem = objFolder.ParseName("acad.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("D:\FLASHFXP 2.1 BUILD 924 FINAL 汉")
::: Set objFolderItem = objFolder.ParseName("flashfxp.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("H:\EasyBoot 5.09")
::: Set objFolderItem = objFolder.ParseName("EasyBoot.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("H:\平台启动盘制作\Multimedia Builder496")
::: Set objFolderItem = objFolder.ParseName("MMBuilder.lnk")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("D:\PTF阅读器\pdfrd")
::: Set objFolderItem = objFolder.ParseName("FoxitReader1.exe")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("D:\PDG阅读器\BXViewer1b4_Zh")
::: Set objFolderItem = objFolder.ParseName("BXViewer1b4_Zh.exe")
:::objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
@echo off
findstr "^:::" < %~f0 > _%~n0.vbs
if exist _%~n0.vbs (cscript //nologo _%~n0.vbs & del _%~n0.vbs)
[ Last edited by xpxhj on 2006-6-20 at 13:10 ]
第 6 楼
发表于 2006-06-20 17:07 · 中国 广东 广州 白云区 电信
中级用户
★★
积分 466
发帖 237
注册 2005-10-12 20:53
20年会员
UID 43413
状态 离线
其实每次重装之前,记得备份开始菜单,重装后再把菜单复制到原来的位置就不用手动创建软件的快捷方式了。
第 7 楼
发表于 2006-06-20 23:24 · 中国 上海 电信
金牌会员
★★★★
积分 4,639
发帖 2,239
注册 2005-01-30 00:00
21年会员
UID 35785
性别 男
状态 离线
Originally posted by kcdsw at 2006-6-17 16:54:
什么是附? 什么是放?
我也想不明白他的意思。快捷方式附到开始菜单和快捷方式放到开始菜单有什么区别???
第 8 楼
发表于 2006-06-21 05:51 · 中国 浙江 温州 电信
初级用户
★
积分 30
发帖 9
注册 2006-06-11 05:22
20年会员
UID 56858
状态 离线
第 9 楼
发表于 2006-06-21 10:21 · 中国 山西 运城 中移铁通
元老会员
★★★★
Batchinger
积分 4,432
发帖 1,512
注册 2002-10-18 00:00
23年会员
UID 19
性别 男
状态 离线
Re kcdsw & DOSforever & xxniao1983:
"附到「开始」菜单(&I)"是WindowsXP引入的菜单功能特性。英文原文为Pin,有附着之意。意即将程序的启动方式附着在「开始」菜单的顶端,与IE收藏夹有些相似,与其下方的按使用频率高低动态显示的启动方式相异。
其“附”与“放”的区别,在于后者操作的是程序的快捷方式(.LNK),而且其表观位置位于「开始」菜单的“所有程序”中,物理位置位于对应帐户的开始菜单目录中;而前者操作的是注册表键值,其表观位置处于「开始」菜单的左首顶端,其物理位置位于[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StartPage]中。
※ Batchinger 致 Bat Fans:请访问
批处理编程的异类 ,欢迎交流与共享批处理编程心得!
第 10 楼
发表于 2006-06-21 22:01 · 中国 广东 广州 白云区 电信
中级用户
★★
积分 466
发帖 237
注册 2005-10-12 20:53
20年会员
UID 43413
状态 离线
哦,原来是这回事。可我从来不用XP风格的开始菜单,一直用经典菜单。
论坛跳转: