var
  sr: TSearchRec;
  FileAttrs: Integer;
  Showed : boolean;
  F1 : TextFile;
begin
  Showed := False;
  if FindFirst('C:\*.*', faAnyFile, sr) = 0 then begin
     while FindNext(sr) = 0 do begin
           if (sr.Name = '.') or (sr.Name = '..') then continue;
           if ((sr.Attr and faDirectory) = faDirectory) then
              Continue
           else begin
           //=========開檔讀檔=======
              AssignFile(F1, 'c:\' sr.Name);
              .
              . 
           end;
           Application.ProcessMessages;
     end;
  end;
  FindClose(sr);
end;