delphi 解压缩cab文件,该怎么解决

delphi 解压缩cab文件
delphi  如何解压缩cab文件到指定目录下！不用控件！
[解决办法]
不用控件，那就直接API。
MSDN => SetupIterateCabinet
或：HOWTO：使用 SetupAPI 的 SetupIterateCabinet() 函数