批处理之家 - Powered by Discuz! Board

标题: [注册表类] 【已解决】批处理怎样对url文件增加右键打开方式? [打印本页]

作者: 9zhmke 时间: 2009-4-8 01:18 标题: 【已解决】批处理怎样对url文件增加右键打开方式?

上次发贴对lnk文件添加右键查找位置功能看起来效果很不错：http://bbs.bathome.net/thread-3896-1-1.html
想把这个功能做到url文件上去，但url好象不是普通文件，弄了半天都没弄出来，请高手们支招。

[ 本帖最后由 9zhmke 于 2009-4-8 17:19 编辑 ]

作者: zqz0012005 时间: 2009-4-8 09:03

CMD中直接运行

reg add hkcr\InternetShortcut\shell\notepad\command /ve /d "notepad.exe \"%1\""
复制代码

要保存为bat将%1改成%%1

作者: zqz0012005 时间: 2009-4-8 09:09

如果你想要的是查找快捷方式的目标，那就什么都不必加，直接双击就是：会自动打开浏览器并连接到目标位置。

关于URL快捷方式的文件格式，请到相关网站查询。

作者: tireless 时间: 2009-4-8 11:23

添加 打开方式(H)...：

reg add HKCR\InternetShortcut\shellex\ContextMenuHandlers\OpenWith /f /ve /d {09799AFB-AD67-11d1-ABCD-00C04FC30936}
复制代码

带箭头的不知道怎么添加...

作者: 9zhmke 时间: 2009-4-8 12:32

禀版主，因为批处理直接生成lnk文件有难度，所以我在一些操作中用了url来替代lnk文件，这样一来，这些菜单、桌面上的url指向的就成了可执行文件了。我希望能够使用你写的右键查找功能：
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\lnkfile\shell\Target]
@="查看目标(&F)"

[HKEY_CLASSES_ROOT\lnkfile\shell\Target\command]
@="mshta vbscript:CreateObject(\"WScript.Shell\").Run(\"explorer /e,/select,\"&CreateObject(\"WScript.Shell\").CreateShortcut(\"%1\").TargetPath)(close)"

作者: zqz0012005 时间: 2009-4-8 14:18 标题: 回复 5楼的帖子

将lnkfile改成InternetShortcut

批处理直接生成lnk快捷方式
http://bbs.verybat.org/viewthrea ... romuid=37#pid164522

作者: Batcher 时间: 2009-4-8 14:57 标题: [ZT]批处理创建lnk快捷方式

@echo off
set str=%*
call set str=%%str:%1=%%
mshta VBScript:Execute("Set aaa=CreateObject(""WScript.Shell""):Set bbb=aaa.CreateShortcut(aaa.SpecialFolders(""Desktop"") & ""\%~n1.lnk""):bbb.TargetPath=""%~1"":bbb.Arguments=""%str%"":bbb.WorkingDirectory=""%~dp1"":bbb.Save:close")

::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置
复制代码

作者: Batcher 时间: 2009-4-8 14:59 标题: [ZT]VBS创建lnk快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\记事本.lnk")
oShellLink.TargetPath = "C:\WINDOWS\NOTEPAD.EXE" '目标
oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = ""
oShellLink.IconLocation = "C:\WINDOWS\NOTEPAD.EXE, 0"
oShellLink.Description = ""
oShellLink.WorkingDirectory = "C:\WINDOWS\"
oShellLink.Save
复制代码

作者: 9zhmke 时间: 2009-4-8 17:27

好家伙，还有那么多东西没看到，早知道就不做url了

欢迎光临批处理之家 (http://www.bathome.net/)