File compression with Delphi

Posted by Jody on May 25, 2001

Does anyone know where I can find Delphi code samples (or any information) on creating cab files and/or zip files using WinZip?
Thanks.

Re: Jean Claude Servaye on May 25, 2001

To zip file(s) :
ShellExecute(0, 'open', 'Winzip32.exe','-a a:MyZip.zip *.dbf *.mdx *.dbt' , nil, SW_NORMAL);

To unzip file(s) :
ShellExecute(0, 'open', 'Winzip32.exe','-e a:MyZip.zip', nil, SW_NORMAL);

More information on http://www.winzip.com/wzcline.htm