Поиск файла на заданном разделе во всех каталогах...

procedure SearchFile (VDisk, VName : String; var VRes : String);
  var   
    SRec : SearchRec;
  begin
    FindFirst(VDisk + VName, AnyFile, SRec);
    While DosError = 0 do begin
      With SRec do
         If Attr and (VolumeID + Directory) = 0 then
             VRes := VDisk + Name;
      FindNext(SRec);
    end;
  end;

Program Search;
Uses CRT, DOS;
Var
  Name, Dir, FindName : PathStr;
 
{$M 65520 0 0}
procedure FileFind(var Dir, Name, FindName : PathStr);
  procedure SearchDir(var Dir : PathStr);
    var
      SRec : SearchRec;
      buf : PathStr;
    begin
      FindFirst(Dir + FindName, AnyFile, SRec);
      While DosError = 0 do begin
        With SRec do
          If Attr and (VolumeID + Directory) = 0 then
            WriteLn(Dir + Name);
        FindNext(SRec);
      end;
      FindFirst(Dir + '*.*', Directory or ReadOnly or Hidden or SysFile, SRec);
      While DosError = 0 do begin
        With SRec do
          If (Attr and Directory <> 0) and (Name[1] <> '.') then
            SearchDir(Dir + Name);
        FindNext(SRec);
      end;
   end;
  begin
    SearchDir(Dir);
  end;
 
Begin
  Write('Enter to name of file: ');
  ReadLn(Name);
  Dir := 'C:\';
  FileFind(Dir, Name, FindName);
  ReadLn;
End.