Frequently Asked Component Specific Questions
Options |
|
Display all FAQ items |
Displaying items 1 to 1 of 1, page 1 of 1
<< previous next >>
TCabFileCompressing 3 files into 1 Cab file
procedure TForm4.Button1Click(Sender: TObject);
begin
cabfile1.CABFileContents.Clear;
cabfile1.CABFileContents.Add.Name := 'c:\tmssoftware\CARS.CSV';
cabfile1.CABFileContents.Add.Name := 'c:\tmssoftware\dbadvgrid.pas';
cabfile1.CABFileContents.Add.Name := 'c:\tmssoftware\AppWebUpdater.pas';
cabfile1.CABFile := 'c:\tmssoftware\testfile.cab';
if cabfile1.Compress then
ShowMessage('success');
end;