| wjames
29344
|
2007/5/11 14:50:46 |
Result := GetCurrentDirName + 'zLib.exe a ' +
'-m'+IntToStr(FCompressLevel)+' '+
'-ep1 "'+
RARFileName+ '" ';
加了引号，有空格的文件或者目录还是不行 |
| zbluecn
17964
|
2005/9/21 9:37:48 |
| 创意确实非常好~ 特别是读取进度条部分，尽管 TRedirectedConsole好像不是楼主写的 |
| jackalan
17650
|
2005/9/8 8:13:45 |
| 呵呵，用法挺有创意的，通过调用外部程序实现，不过个人用用无所谓的，如果想用来发布软件就需要考虑了，避免产生版权纠纷哦～ |
| leon2huang
17623
|
2005/9/7 9:00:59 |
| 很好，能不能写一个函数来实现，这样发布的时候会方便一些。 |
| myy
17618
|
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本来就可以支持目录，可以考虑加入 |
| wendbell
17617
|
2005/9/6 21:53:41 |
发布时记得要带上 ZLib.DLL 文件，ZLib.DLL 其实就是 WINRAR 目录下面的 RAR.EXE 改名而成的。
所以如果出了新版本的 WINRAR ，你完全可以将其替换掉。
楼主还真是有点创意！ |
