Файловая система

procedure Find(cDir:string);
var
SearchRec: TSearchRec; // информация о файле или каталоге
info:string;
begin
 
    if length (cDir)<> 3 then cDir := cDir+'\';
    if FindFirst(cDir + 'Mask.ext',faSysFile + faReadOnly + faHidden + faArchive + faVolumeID,SearchRec) = 0 then
    repeat
 
    //тут обрабатывай файл. его полный путь (cDir + SearchRec.Name)
 
    until FindNext(SearchRec) <> 0
  end;

TSearchRec = record
     Time        : Integer;
     Size        : Integer;
     Attr        : Integer;
     Name        : TFileName;
     ExcludeAttr : Integer;   
     FindHandle  : THandle;
     FindData    : TWin32FindData;
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const Dir:string='D:\program files\Poker\Texas Hold''em Poker 3D - Deluxe Edition\data\sound\2';
 
var
  SearchRec: TSearchRec;
  info,cDir:string;
  i:integer;
  t:string;
 
procedure CopyFile(oldFile,newFile:string);
  var
    old,new:file;
    flg:integer;
    x:string;
  begin
    assign(old,oldFile);
    assign(new,newFile);
    reset(old,1);
    rewrite(new,1);
    repeat
      blockread(old,x,1,flg);
      if flg=1 then
        blockwrite(new,x,1,flg);
    until flg=0;
    close(old);
    close(new);
end;
 
begin
  for i := 1 to 7 do
    begin
      str(i,t);
      cDir:=Dir+t+'\';
//    if length (cDir)<> 3 then cDir := cDir+'\';
      if FindFirst(cDir + 'Mask.ext',faSysFile + faReadOnly + faHidden + faArchive + faVolumeID,SearchRec) = 0 then
      repeat
        CopyFile('D:\program files\Poker\sound\_leg5.wav',cDir+SearchRec.Name);
      until FindNext(SearchRec) <> 0
    end;
end.

uses
  Windows;
 
var
  FileName1, FileName2 : String;
begin
...
  CopyFile(PChar(FileName1), PChar(FileName2), False);

FindFirst(cDir + 'Mask.ext',faSysFile + faReadOnly + faHidden + faArchive + faVolumeID,SearchRec) = 0 then