BeginFile Event

Fired before a file is processed.

Syntax

type TBeginFileEvent = procedure BeginFile(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 compressing or decompressing.