，用来搜索子目录}
     begin
     t:=0;
     screen.Cursor:=crhourglass;
     try
       Listbox1.Items.Clear;
       ffilename:=Edit1.Text;
       findfiles(DirectoryOutline1.Directory);
     finally
     screen.Cursor:=crdefault;
     end;
     end;
     
     procedure TForm1.DriveComboBox1Change(Sender: TObject);
     begin
     DirectoryOutline1.Drive:=DriveComboBox1.Drive;
     end;
     
     end.
     
     本程序在Win2000/Delphi6中运行通过。
     (广州 叶海河)