zqz0012005

右键菜单添加“保存剪贴板内容”

Windows Registry Editor Version 5.00
; 保存剪贴板内容_所有文件右键_添加.reg
[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\SaveClipText]
@="保存剪贴板内容(&B)"

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\SaveClipText\command]
@="mshta \"javascript:try{new ActiveXObject('Scripting.FileSystemObject').OpenTextFile(new Date().getTime()+'.txt',2,true).Write(clipboardData.getData('text'));}catch(e){alert('non-text');}close();\""
复制代码

Windows Registry Editor Version 5.00
; 保存剪贴板内容_所有文件右键_删除.reg
[-HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\SaveClipText]
复制代码

批处理如何在右键菜单中添加一键清空剪贴板的功能？
http://www.bathome.net/viewthread.php?tid=4541

Windows Registry Editor Version 5.00
; 清空剪贴板_空白处右键_添加.reg
[HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\ClearClipboard]
@="{00000000-0000-0000-0000-000000000012}"

[HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\InProcServer32]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,68,00,\
  64,00,6f,00,63,00,76,00,77,00,2e,00,64,00,6c,00,6c,00,00,00
"ThreadingModel"="Apartment"

[HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance]
"CLSID"="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}"

[HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag]
"method"="ShellExecute"
"Param2"="mshta"
"Param1"="vbscript:clipboardData.clearData()(close)"
"command"="清空剪贴板"
"CLSID"="{13709620-C279-11CE-A49E-444553540000}"
复制代码

Windows Registry Editor Version 5.00
; 清空剪贴板_空白处右键_删除.reg
[-HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\ClearClipboard]
[-HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}]
复制代码

[ 本帖最后由 zqz0012005 于 2010-6-28 20:47 编辑 ]

zqz0012005

查看快捷方式的目标

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 /n,/select,\"&CreateObject(\"WScript.Shell\").CreateShortcut(\"%1\").TargetPath)(close)"
复制代码

复制lnk快捷方式的目标路径及参数

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\lnkfile\shell\CopyLink]
@="复制命令及参数(&G)"

[HKEY_CLASSES_ROOT\lnkfile\shell\CopyLink\command]
@="mshta vbscript:clipboardData.setData(\"text\",CreateObject(\"WScript.Shell\").CreateShortcut(\"%1\").TargetPath+chr(32)+CreateObject(\"WScript.Shell\").CreateShortcut(\"%1\").Arguments)(close)"
复制代码

复制URL快捷方式的目标地址

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\InternetShortcut\shell\CopyLink]
@="复制链接(&F)"

[HKEY_CLASSES_ROOT\InternetShortcut\shell\CopyLink\command]
@="mshta vbscript:clipboardData.setData(\"text\",CreateObject(\"WScript.Shell\").CreateShortcut(\"%1\").TargetPath)(close)"
复制代码

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\CopyPath2Clip]
@="复制文件路径到剪贴板(&W)"

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\CopyPath2Clip\command]
@="mshta \"javascript:moveTo(-1000,-1000);document.write('<hta:application id=$ showInTaskbar=no />');fso=new ActiveXObject('Scripting.FileSystemObject');s=$.commandLine;q=String.fromCharCode(34);clipboardData.setData('text',s.match(new RegExp(q+'.*?'+q,'g')).pop().slice(1,-1));close();\" \"%1\""
复制代码

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\txtfile\shell\CopyText2Clip]
@="复制文本内容到剪贴板(&X)"

[HKEY_CLASSES_ROOT\txtfile\shell\CopyText2Clip\command]
@="mshta \"javascript:moveTo(-1000,-1000);document.write('<hta:application id=$ showInTaskbar=no />');fso=new ActiveXObject('Scripting.FileSystemObject');s=$.commandLine;q=String.fromCharCode(34);f=s.match(new RegExp(q+'.*?'+q,'g')).pop().slice(1,-1);clipboardData.setData('text',fso.OpenTextFile(f).ReadAll());close();\" \"%1\""
复制代码

【代码技巧】批处理拷贝文件(夹)到剪贴板
http://www.bathome.net/thread-4223-1-1.html

@echo off
call :c2cb "%ProgramFiles%\microsoft frontpage"
exit /b

::Copy2ClipBoard
:c2cb
setlocal
set "f=%~1"
set "f=%f:\\=\%"
set "f=%f:\=\\%"
mshta "javascript:moveTo(screen.width,0);document.write('<img id=\'x\' src=\'%f%\'>');i=document.body.createControlRange();i.add(x);i.execCommand('copy');close()"
goto :eof
复制代码

未完待续……

[ 本帖最后由 zqz0012005 于 2010-6-30 20:32 编辑 ]