Posted by Jenny on April 04, 2005
In Reply to: File Compression posted by Tomas Much too complicated... better use a ZIP-component, or use external application: procedure TForm1.Button1Click(Sender: TObject); const Zipper = 'c:\program files\winzip\winzip32.exe'; var Source, Destination, Params: string; begin Source := 'c:\test1\*.*'; Destination := 'c:\test2\test1.zip'; Params := '-a ' + Destination + ' ' + Source; ShellExecute(Handle, 'Open', PChar(Zipper), PChar(Params), nil, SW_NORMAL); end; Related Articles and Replies
|
|