![]() |
![]() ![]() ![]() |
dcMultiDiskScanner component.
|
type
|
TdcScanFolderEvent = procedure(Sender: TObject; Folder: String) of object;
|
|
property OnFolderNotExist: TdcScanFolderEvent;
|
The OnFolderNotExist event occurs if the IncludeList or ExcludeList contains instructions to scan folder which is not exist. The Folder parameter determines the folder that can not be scanned.
|
|
This event occursbefore the component try to scan this folder. If the folder is exist - component will search files within this folder and OnScanFolder event occurs. If not exist - the OnFolderNotExist occurs.
|
procedure TForm1.dcMultiDiskScannerFolderNotExist(Sender: TObject; Folder: String);
|
begin
|
Application.MessageBox(PChar('Folder "' + Folder + '" not exist.'), 'dcMultiDiskScanner', MB_ICONINFORMATION);
|
end;
|
OnScanFolder event.
|