rar行命令

压缩单个文件:
winexec('C:\Program Files\WinRAR\rar a d:\dwxf  d:\dwxf.dbf',SW_SHOWMAXIMIZED)

压缩文件夹:

winexec('C:\Program Files\WinRAR\rar a -ad -sfx d:\table d:\table ',SW_SHOWMAXIMIZED)

-sfx 建立自解压文件

delphi例子(用变量)
procedure TForm1.Button1Click(Sender: TObject);
   var
   ff:string;
begin
  ff:='C:\Program Files\WinRAR\rar a -ad -sfx d:\table d:\table ';

winexec(pchar(ff),SW_SHOWMAXIMIZED)
end;