BeginFile Event
Fired before a file is processed.
Syntax
type TBeginFileEvent = procedure ( Sender: TObject; Index: Integer; var Skip: Boolean ) of Object;
property OnBeginFile: TBeginFileEvent read FOnBeginFile write FOnBeginFile;
Remarks
BeginFile is fired before compression or decompression begins. Index will contain 0.
You may use the Skip parameter to tell the component to skip the file when appending or decompressing.