[Yurgen]

Копирую файлы и папки как присобачить прогрес бар?.

Код:

For i := 0 to pred ( Length ( CopyQueue ) ) do begin
if IsFolder ( SrcPath + CopyQueue[i] ) then CopyDir ( SrcPath + CopyQueue[i] , DstPath )
else CopyFile ( SrcPath + CopyQueue[i] , DstPath );
end;

Код:

procedure CopyDir(ist, nazn: String);
var sr:TSearchRec;
      ScanDir, KonDir: String;
      ISearch:Integer;
begin
try
   ScanDir := ist; 
   KonDir := nazn;
   ISearch:=FindFirst(ScanDir+'\*.*', faAnyfile, sr);
   while ISearch=0 do begin
         if ((sr.Attr and FaDirectory)=Fadirectory) and 
         (sr.Name[1]<>'.') then begin
               if not  DirectoryExist(KonDir+'\'+sr.Name) then
                    mkDir(PChar(KonDir+'\'+sr.Name));
               CopyDir(ScanDir+'\'+sr.Name+'', KonDir+'\'+sr.Name);
         end else
      CopyFile(Pchar(scandir+'\'+sr.Name),pchar(nazn+'\'+sr.Name),false);
        ISearch:=FindNext(sr);
   end;
   FindClose(sr);
except
   ShowMessage('dddddddddd');
end;
end;