DELPHI 利用WINRRA　实现压缩解压

解压：

ShellExecute(Handle,’open’,’WinRar’,’e -r -y E:\MyCode\C1\升级程序\升级程序.rar f:\’,nil,SW_HIDE)

压缩：

ShellExecute(Handle,’open’,’WinRar’,’a -r f:\ver.rar f:\ver.txt’,nil,SW_HIDE)

说明：路径中含有空格，得用双引号引用。

WinRarStr := ‘e -r -y C:\JinShuiBakDir\code.rar ’ + ‘”’+ExtractFilePath(Application.ExeName+’”’);

i := ShellExecute(Application.Handle,’open’,’WinRar’,pchar(WinRarStr),nil,SW_HIDE);