在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)
