Inherits from
TForm
procedure BtnScanClick(Sender: TObject);
procedure DiskSearch1DirFound(Sender: TObject; Directory: String);
procedure DiskSearch1FileFound(Sender: TObject; FileName: String);
BtnScan : TButton;
DiskSearch1 : TDiskSearch;
LabelDir : TLabel;
LabelFile : TLabel;
StatusBarProgress : TStatusBar;
DirectoryCount : Integer;
FileCount : Integer;
StartTime : TDateTime;
procedure BtnScanClick(Sender: TObject);
procedure DiskSearch1DirFound(Sender: TObject; Directory: String);
procedure DiskSearch1FileFound(Sender: TObject; FileName: String);
BtnScan : TButton;
DiskSearch1 : TDiskSearch;
LabelDir : TLabel;
LabelFile : TLabel;
StatusBarProgress : TStatusBar;
DirectoryCount : Integer;
FileCount : Integer;
StartTime : TDateTime;