[Delphi] Kopiowanie !?

Witam !

Jest procedura kopiujaca caly katalog:

procedure TForm1.Button1Click(Sender: TObject);
var FOS:TSHFileOpStructA;
begin
with FOS do
begin
wFunc:=FO_COPY;
pFrom:=pchar('d:\a*.*');
pTo:='d:\b';
fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS;
lpszProgressTitle:='';
fAnyOperationsAborted:=False;
end;
if SHFileOperation(FOS)0 then
ShowMessage('Wystąpił błąd podczas archiwizacji tymczasowej')
else
if FOS.fAnyOperationsAborted then
ShowMessage('Archiwizacja tymczasowa została przerwana');
end;

Niewiecie jak moznaby dolaczyc do tego kopiowania progressbar ?
Byc moze znacie jakis inny sposob kopiowania wszystkich plikow z danego katalogu wraz z pokazem na ProgressBar !? [???]

Pozdrawiam !

wydaje mi sie ze to bylo w FAQ, poszukaj

W FAQ bylo ale tylko kopiowanie pojedynczego pliku !

po prostu pobierz rozmiar pliku przegrywanego i tego co sie juz przegralo, potem to juz jest prosta matma