中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]如何将软件程序附到开始菜单上

xpxhj
新手上路

积分 14
发帖 3
注册 2006-6-17
状态离线

『楼主』: [已结]如何将软件程序附到开始菜单上

请高手帮忙：我的系统是xp，我的d盘里装了一些绿色软件，我想在重做系统后只要运行一个批处理文件就可以把那些绿色软件的快捷方式附到开始菜单。
注意是附到开始菜单，而不是放到开始菜单！！！！！

[ Last edited by willsort on 2006-6-20 at 14:07 ]

2006-6-17 16:40

kcdsw
中级用户

积分 404
发帖 179
注册 2006-3-30
状态离线

『第 2 楼』:

什么是附? 什么是放?

2006-6-17 16:54

willsort
元老会员

Batchinger

积分 4432
发帖 1512
注册 2002-10-18
状态离线

『第 3 楼』:

─────────────────　版务记录　─────────────────
执行：Will Sort
操作：修改标题 - 请问将某个文件夹下的文件附到开始菜单的批处理文件怎样�
─────────────────　版务记录　─────────────────

Re xpxhj:

单纯批处理的方法似乎只有使用 reg / regedit 导入注册表，只不过它会清除原来的附着程序。

在MircrosoftTechNet的脚本中心找到了vbs的方案[1]，也可以将它嵌入在批处理中。

::: 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)

[1] 可以使用脚本将文件放到“开始”菜单上吗？
http://www.microsoft.com/china/t ... ources/hey1111.mspx

[ Last edited by willsort on 2006-6-18 at 20:05 ]

※ Batchinger 致 Bat Fans：请访问 [讨论]批处理编程的异类，欢迎交流与共享批处理编程心得！

2006-6-18 19:30

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 4 楼』:

用教本可以生成菜单，但是更简单的方法是把快捷方式保存到一个目录下，编一个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'>"

2006-6-18 20:55

xpxhj
新手上路

积分 14
发帖 3
注册 2006-6-17
状态离线

『第 5 楼』:

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 ]

2006-6-20 13:07

Scott0902
中级用户

积分 466
发帖 237
注册 2005-10-12
状态离线

『第 6 楼』:

其实每次重装之前，记得备份开始菜单，重装后再把菜单复制到原来的位置就不用手动创建软件的快捷方式了。

2006-6-20 17:07

DOSforever
金牌会员

积分 4639
发帖 2239
注册 2005-1-30
状态离线

『第 7 楼』:

Quote:

Originally posted by kcdsw at 2006-6-17 16:54:
什么是附? 什么是放?

我也想不明白他的意思。快捷方式附到开始菜单和快捷方式放到开始菜单有什么区别？？？

DOS倒下了，但永远不死
DOS NEVER DIES !

投票调查：
http://www.cn-dos.net/forum/viewthread.php?tid=46187

本人尚未解决的疑难问题：
http://www.cn-dos.net/forum/viewthread.php?tid=15135
http://www.cn-dos.net/forum/viewthread.php?tid=47663
http://www.cn-dos.net/forum/viewthread.php?tid=48747

2006-6-20 23:24

xxniao1983
初级用户

积分 30
发帖 9
注册 2006-6-11
状态离线

『第 8 楼』:

请楼主解释附到和放到有什么区别!!!

2006-6-21 05:51

willsort
元老会员

Batchinger

积分 4432
发帖 1512
注册 2002-10-18
状态离线

『第 9 楼』:

Re kcdsw & DOSforever & xxniao1983:

"附到「开始」菜单(&I)"是WindowsXP引入的菜单功能特性。英文原文为Pin，有附着之意。意即将程序的启动方式附着在「开始」菜单的顶端，与IE收藏夹有些相似，与其下方的按使用频率高低动态显示的启动方式相异。

其“附”与“放”的区别，在于后者操作的是程序的快捷方式（.LNK），而且其表观位置位于「开始」菜单的“所有程序”中，物理位置位于对应帐户的开始菜单目录中；而前者操作的是注册表键值，其表观位置处于「开始」菜单的左首顶端，其物理位置位于[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StartPage]中。

※ Batchinger 致 Bat Fans：请访问 [讨论]批处理编程的异类，欢迎交流与共享批处理编程心得！

2006-6-21 10:21

Scott0902
中级用户

积分 466
发帖 237
注册 2005-10-12
状态离线

『第 10 楼』:

哦，原来是这回事。可我从来不用XP风格的开始菜单，一直用经典菜单。

2006-6-21 22:01

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: