[Delphi] Kopiowanie

Czesc Wam !

Czy mozna przy pomocy takiej procedury:
procedure TForm1.Button1Click(Sender: TObject);
var
R : TSHFileOpStruct;
begin
with R do
begin
Wnd:=Handle; // oznaczenie uchwytu
lpszProgressTitle := 'Skopiuj plik....';// tutuł okienka
wFunc:=FO_COPY;// opcja
pFrom:='d:\kp*.*'; // z pliku
pTo:='d:\b';// do pliku
fFlags:=FOF_NOCONFIRMMKDIR;
end;
SHFileOperation(R);
end;

zrobic cos takiego:
zeby ukazywalo sie w label1 podczas kopiowania ile kb jest juz skopiowanych. [???]

Pozdrawiam

Odsyłam do nięsmiertelnych FAQ Adama..jest tam to...

oj szukam i szukam i nie moge znalezc, moze wiesz mniej wiecej gdzie ?
W FAQ jest ale tylko sposob kopiowania, a to juz wiem ;-)

Z tego co pamietam to w help delphi przy hasle BlockRead i BlockWrite jest przyklad kopiowania no i tam pokazuje ile skopiowano. Wystarczy to tylko troszke zmodyfikowac :)

hmmmm w helpie przy hasle BlockRead i BlockWrite jest przyklad kopiowania i pokazano, ale ile jest do skopiowania, a wiec jest tam zwykle pobranie wielkosci katalogu, a mnie interesuje aby w label ukazane bylo ile w danej chwili jest skopiowane KB [???]

Moze wiecie w jaki sposob zsynchronizowac proces kopiowania SHFileOperation(R) z labelem ?
Jakiej petli czy tez jakiego warunku uzyc ? [???]

Za kazda pomoc wielkie dzieki !

Pozdrawiam