Occurs when next volume should be inserted while writing a multi-volume archive.
type TZFOnRequestBlankVolumeEvent = procedure(
Sender: TObject;
VolumeNumber: Integer;
var VolumeFileName: String;
var Cancel: Boolean
) of object;
property OnRequestBlankVolume: TZFOnRequestBlankVolumeEvent;
Description
Write an OnRequestBlankVolume event handler to perform asking the user for inserting a blank volume. Also you can override default file name for the new volume. Use Cancel to abort current operation.
|
|