怎么用系统API取出RAR、ZIP、CAB压缩文件中的多个文件

如何用系统API取出RAR、ZIP、CAB压缩文件中的多个文件？
谢谢

[解决办法]
shell("rar.exe vb abc.rar >abc_rar.txt")
shell("UnZip.exe -Z -1 abc.zip >abc_zip.txt")
shell("CabArc.exe L abc.cab >abc_cab.txt")