// Add a ZipForge unit to the program
SysUtils, ZipForge, Classes;
archiver : TZipForge;
fileStream : TFileStream;
// Create an instance of the TZipForge class
archiver := TZipForge.Create(nil);
with archiver do
// Set the name of the archive file we want to create
FileName := 'C:\test.zip';
// Because we create a new archive,
// we set Mode to fmCreate
// Set base (default) directory for all archive operations
BaseDir := 'C:\';
// Create the new TFileStream object for reading from the file.
// If file doesn't exist, an exception will be thrown
fileStream := TFileStream.Create('C:\test.txt', fmOpenReadWrite);
// Add the stream to the archive.
// Specify the name of the file in the archive,
// where stream data is saved
on E: Exception do
Writeln('Exception: ', E.Message);
// Wait for the key to be pressed
The other people in the office didn't believe me when I said that all I had to do was document the problem and you would probably give me a fix overnight. Unbelievable! Keep up the great work. I hope you guys all make a fortune out of this product because it is truly fantastic and the support is the best I have ever encountered.