如何在rar或Zip文件中读取或添加注释？

Question

一：我有一些rar或zip文件，它们里面都有一些注释，请问如何把它们提取出来？
二：我想压缩某个文件，比如是2001.mdb，写了以下代码，为何没有反应？
procedure TForm1.Button2Click(Sender: TObject);
var pstr : string ;
begin
     pstr := ' a test.zip E:\2001.mdb ';
     ShellExecute(0, nil, 'winrar.exe  ', pchar(pstr), nil,sw_show);
end;
三：压缩某个文件的同时，如何添加注释？

Answer 1

一.没研究
二.2个问题
  1.你的winrar.exe没有路径
  2.winrar的console模式为rar.exe而非winrar.exe
 我的程序没问题:
  var pstr : string ;
begin
     pstr := ' a  test.rar d:\vminst.avi';
     ShellExecute(0, nil, 'D:\Progra~1\WINRAR\RAR.exe', pchar(pstr), nil,sw_show);
end;三.你可建一注释文件如p.txt.然后
 pstr := ' a -zp.txt test.rar d:\vminst.avi';就可以了
另外:
你可到winrar目录下运行rar.exe试试,它有很多参数,也许对你有助

Answer 2

winrar有一个cw参数可以把rar文件的注释写到文件里面。
var pstr:string;
begin
   pstr:='cw c:\test.rar c:\test.txt';
   ShellExecute(0, nil, 'RAR.exe', pchar(pstr), nil,sw_show);
end;
再把test.txt读出到Memo中就好了。