在Uses中添加ShellAPI的引用
压缩:ShellExecute(Handle,'open','WinRar','a -r d:\\a.rar d:\\11.xls',nil,SW_HIDE)
解压:ShellExecute(Handle,'open','WinRar','e -r d:\\a.rar d:\\',nil,SW_HIDE)
在Uses中添加ShellAPI的引用
压缩:ShellExecute(Handle,'open','WinRar','a -r d:\\a.rar d:\\11.xls',nil,SW_HIDE)
解压:ShellExecute(Handle,'open','WinRar','e -r d:\\a.rar d:\\',nil,SW_HIDE)
转载于:https://www.cnblogs.com/jacker1979/archive/2011/04/02/2003124.html