针对WinRAR律师函事件，把CAB压缩文件夹集成到右键菜单

netwinxp

经过对老毛桃CAB压缩P处理的研究，现将它集成到右键菜单(仅对文件夹有效)。由于挂接文件右键会导致双击未关联文件时会夺取默认的"打开方式"(网上广为流传的那个CAB注册表文件同样会夺取)，所以暂时不挂接到文件右键菜单。
软件组成：
1、mkcab.txt——主P处理程序源代码，单独使用时可以支持单目录拖放。
2、inmkcab.cmd——安装程序。
3、unmkcab.cmd——卸载程序。
总体压缩率在一般情况下比rar最大压缩还高。

==============================
另外一个则是支持多文件、文件夹直接拖放的P处理，最近还没有解决参数在注册表传送的问题，一解决，将把这两个合并

[ 本帖最后由 netwinxp 于 2007-7-27 12:00 PM 编辑 ]

netwinxp

板猪在吗？放错地方了，请帮我转到系统区:L(算了，不移了，反正毛桃的mkcab也在;P )

[ 本帖最后由 netwinxp 于 2007-7-15 12:23 PM 编辑 ]

netwinxp

:D 嘿嘿，本来可以做成只有两个文件的，为了方便大家修改就把主P处理源代码也贴上。:lol

[ 本帖最后由 netwinxp 于 2007-7-16 06:17 PM 编辑 ]

netwinxp

下一个版本将支持多文件夹同时操作，正在调试中....

neo4026

好 顶一下 好东西不可以不顶

taoty

巨好的工具，感谢分享，支持原创。

taoty

刚才试了一下，确实很好用，回头再顶。

阿非

不错啊，压缩后的文件扩展名改为RAR更好
一些附件上传不支持CAB

netwinxp

现在已经能支持全拖放了，下一步目标整合:)

netwinxp

在DOS联盟论坛贴了第二个批处理，他们认为没有微软原装包的压缩率高，于是俺就做了个测试：

我们以office2000sch原装光盘里面的ofifice1.cab来做测试，原压缩包110M(115,385,377)内含252个文件，解压后210M(220,265,737)共252个文件，重新用上面的压缩后105M(110,611,933)内含252个文件，经解压进行文件对比，完全重合，用新压缩包替换老压缩包安装过程完全没问题。新包比原包少了5M:victory: ，也就是说微软的原装包并不全是最大压缩。

netwinxp

突然发现，下载需要扣威望，于是我把第二个批处理源代码贴出来，对于威望不够的朋友，你只需

把黄框里面的代码复制到记事本，并另存为dragmkcab.cmd即可。下面是源码：

1. @Echo Off
   
2. Title CAB文件夹最大压缩工具—无忧启动
   
3. Set Prestr=MAKECAB /v3 /D CompressionType=LZX /D CompressionMemory=21 /D MaxDiskSize=CDROM /D Cabinet=On /D Compress=On
   
4. :begin
   
5. Set fullname=%~1
   
6. Set dirpath=%~dp1
   
7. Set srcname=%~n1
   
8. if exist "%fullname%" goto is_dir
   
9. :is_file
   
10. Set Cmdstr=%Prestr% "%fullname%" "%dirpath%%srcname%.CAB"
    
11. %Cmdstr%
    
12. Set Cmdstr=
    
13. shift
    
14. Set tmpstr=%1
    
15. if not %tmpstr%=="" goto begin
    
16. goto end
    
17. :is_dir
    
18. Set Cmdstr=%Prestr%  /D FolderSizeThreshold=5000000 /D DiskDirectoryTemplate="%dirpath%." /D CabinetNameTemplate="%srcname%.CAB"
    
19. Set Tempfile=%TEMP%\mkcabtmp.tmp
    
20. If Exist "%Tempfile%" Del "%Tempfile%" >NUL
    
21. SETLOCAL ENABLEDELAYEDEXPANSION
    
22. For /f "delims=" %%i In ('dir "%fullname%" /s /b /a-d') Do (
    
23. Set subname=%%i
    
24. Set "subname=!subname:%fullname%\=!"
    
25. Echo "%%i" "!subname!">>%Tempfile%
    
26. )
    
27. ENDLOCAL
    
28. %Cmdstr% /F %Tempfile%
    
29. Del /F /S /Q "%Tempfile%" SETUP.INF SETUP.RPT >NUL
    
30. Set Tempfile=
    
31. Set Cmdstr=
    
32. shift
    
33. Set tmpstr=%1
    
34. if not %tmpstr%=="" goto begin
    
35. :end
    
36. Set tmpstr=
    
37. Set srcname=
    
38. Set dirpath=
    
39. Set fullname=
    
40. Set Prestr=

复制代码

附:
Set Prestr=MAKECAB /v3 /D CompressionType=LZX /D CompressionMemory=21 /D MaxDiskSize=CDROM /D Cabinet=On /D Compress=On为一行。
Set Cmdstr=%Prestr%  /D FolderSizeThreshold=5000000 /D DiskDirectoryTemplate="%dirpath%." /D CabinetNameTemplate="%srcname%.CAB"也为一行。

[ 本帖最后由 netwinxp 于 2008-4-27 09:54 PM 编辑 ]

netwinxp

原帖由 阿非 于 2007-7-26 00:05 发表
不错啊，压缩后的文件扩展名改为RAR更好
一些附件上传不支持CAB

你直接把源代码里面的CAB改成RAR就可以了，只不过实际上还是CAB包，压缩率比RAR的最大压缩率还高呢。

阿非

原帖由 netwinxp 于 2007-7-27 04:39 PM 发表

你直接把源代码里面的CAB改成RAR就可以了，只不过实际上还是CAB包，压缩率比RAR的最大压缩率还高呢。

这个我知道，建议在附件中修改

另外，全拖放的那个P处理（附件中的），在我的系统中，运行后一闪而过，没有窗口，怎么拖放:lol

netwinxp

原帖由 阿非 于 2007-7-28 05:51 发表


这个我知道，建议在附件中修改

另外，全拖放的那个P处理（附件中的），在我的系统中，运行后一闪而过，没有窗口，怎么拖放:lol

把要压缩的对象拖到P处理身上放开就可以了，一个对象一个包。

阿非

原帖由 netwinxp 于 2007-7-28 09:02 AM 发表

把要压缩的对象拖到P处理身上放开就可以了，一个对象一个包。

:L 原来是这样。

赶快完善右键吧，还是这个方便

mackyliu

不错的工具，哈哈，帮你把第一个压缩文件夹的工具改动了一下，变成一个exe文件，自动判断是否已经安装，已安装就跳出卸载，反之则安装。

gizmo327

先顶一个,然后下载来研究一下

gizmo327

好东西啊...
果然完美-0-

收藏了,谢谢LZ

leobaidu

当来试一试，不知道怎么样

hbjsuda

好 顶一下 好东西不可以不顶

lisong

安装后不知如何用！！！！！！！！！

cxmzlxb

安装了,压缩率不错!!!!!!!!

btvcctv

RAR到处发律师函呀　　　　　　　　　　　　　　　　　　　　　　　　　

netwinxp

原帖由 lisong 于 2007-8-29 13:23 发表
安装后不知如何用！！！！！！！！！

选个文件夹，按鼠标右键就有了:L

wangjf

给大家发一个我制作的吧。调用CABARC.EXE压缩和解压。支持右键菜单。为什么要用CABARC.EXE呢？因为MAKECAB.EXE压缩文件后老是把文件的时间属性改变。而CABARC.EXE不会。只要是调用MAKECAB.EXE进行压缩操作的程序好像都有这个现象。下面是我自己作的自解压文件。欢迎大家多多交流。怎么上穿不了附件呢。

[ 本帖最后由 wangjf 于 2007-8-31 08:59 PM 编辑 ]

king.cx

好东西.不顶不行!!!

nonenever

原帖由 wangjf 于 2007-8-31 08:58 PM 发表
给大家发一个我制作的吧。调用CABARC.EXE压缩和解压。支持右键菜单。为什么要用CABARC.EXE呢？因为MAKECAB.EXE压缩文件后老是把文件的时间属性改变。而CABARC.EXE不会。只要是调用MAKECAB.EXE进行压缩操作的程序 ...

有图示中的问题

都市浪子666

26楼的东西好呀，，，谢谢了

wanmm2001

原帖由 nonenever 于 2007-12-22 11:56 PM 发表



有图示中的问题

的确是这样

[ 本帖最后由 wanmm2001 于 2008-1-13 02:20 PM 编辑 ]

wanmm2001

楼主和26楼的都是好东西