共有评论6条
当前显示最后6条评论
|
wendbell |
2005/9/6 21:53:41 |
发布时记得要带上 ZLib.DLL 文件,ZLib.DLL 其实就是 WINRAR 目录下面的 RAR.EXE 改名而成的。 所以如果出了新版本的 WINRAR ,你完全可以将其替换掉。
楼主还真是有点创意! |
myy |
2005/9/6 21:58:26 |
提个小意见:
OBRARCompress.pas ---------- function TOBRARCompress.GenderCommandLineText: String; var i : Integer; begin Result := GetCurrentDirName + 'zLib.exe a ' + '-m'+IntToStr(FCompressLevel)+' '+ '-ep1 '+ RARFileName+ ' ';
for i := 0 to SourceFiles.Count -1 do begin Result := Result + SourceFiles.Strings[i] + ' '; end; end; ---------- 1。文件名应该用双引号引起来,防止有空格 2。CreateProcess并不要求文件一定要是exe,甚至没有后缀都行, 所以改名是多此一举。 3。Rar.exe本来就可以支持目录,可以考虑加入 |
leon2huang |
2005/9/7 9:00:59 |
很好,能不能写一个函数来实现,这样发布的时候会方便一些。 |
jackalan |
2005/9/8 8:13:45 |
呵呵,用法挺有创意的,通过调用外部程序实现,不过个人用用无所谓的,如果想用来发布软件就需要考虑了,避免产生版权纠纷哦~ |
zbluecn |
2005/9/21 9:37:48 |
创意确实非常好~ 特别是读取进度条部分,尽管 TRedirectedConsole好像不是楼主写的 |
wjames |
2007/5/11 14:50:46 |
Result := GetCurrentDirName + 'zLib.exe a ' + '-m'+IntToStr(FCompressLevel)+' '+ '-ep1 "'+ RARFileName+ '" ';
加了引号,有空格的文件或者目录还是不行 |
我要发表评论 |
查看全部评论 |