Occurs when file is being stored into the archive.
type TZFOnStoreFileEvent = procedure (Sender: TObject; var FileName: string; var FileAttr: LongWord; var Comment: String; const OriginalFileName: String) of object;
property OnStoreFile: TZFOnStoreFileEvent;
Description
Write an OnStoreFile event handler to override default file name or change its attributes before storing this file into the archive.
The event is fired when AddFiles is called.
The Sender parameter is the object whose event handler is called.
FileName specifies the stored name of the file being added to archive (for ex. 'folder1\test.txt').
FileAttr specifies file attributes.
Comment specifies the file comment to be stored.
OriginalFileName specifies the source file name of the file being stored (for ex. 'c:\folder1\test.txt').
|
|