Копирование файлов

[ARXangel]

Привет всем!
Вот код функция копирования файлов с помощью TSHFileOpStruct

var
Ret: integer;
ipFileOp: TSHFileOpStruct;

begin
Screen.Cursor:=crAppStart;
FillChar (ipFileOp, SizeOf(ipFileOp),0);
with ipFileOp do
begin
wnd:= Handle; {указатель на окно, которое будет являться
владельцем выполняемого процесса}
wFunc:= OpMode; {операция, которую надо выполнить.
Сюда будет записано передаваемое значение.}
pFrom:= pChar(Src); {Путь-источник}
pTo:= pChar(Dest); {Путь-приемник}
if DelRicleBin then
fFlags:= FOF_ALLOWUNDO + FOF_SILENT
else
fFlags := FOF_NOCONFIRMMKDIR;
fAnyOperationsAborted := False; {это свойство будет равно true,
если пользователь прервал выполнение операции}
hNameMappings := nil;
lpszProgressTitle := '';
end;
try
Ret := SHFileOperation (ipFileOp);
except
Ret := 1;
end;
result := (Ret = 0);
Screen.Cursor:=crDefault;
end;


Как создать свое окно с отображением хода процесса копирования?
Заранее всем спасибо!

[FaTaL]

На форме разместить что то типа ProgressBar
Вот код например ProgressBar переименован в Prog

procedure TForm1.Button3Click(Sender: TObject);
var
kolR, KolW:integer;
SizeR, Size:Int64;
buf: array [0..4096] of char;
begin
{$I-}
  AssignFile(f1,FileF);
  AssignFile(f2,FileT);
  reset(f1,1);
  rewrite(f2,1);
  Size:=FileSize(f1);               
  Label1.Caption:=IntToStr(Size);
  SizeR:=0;
  KolR:=0;
  KolW:=0;
  While KolR=KolW do
    begin
      BlockRead(f1, buf, SizeOf(Buf), KolR);
      If KolR=0 then break;
      BlockWrite(f2,buf, KolR, KolW);
      SizeR:=SizeR+KolW;
      Prog.Progress:=Round(100*SizeR/Size);
      Application.ProcessMessages;
    end;
  CloseFile(f1);
  CloseFile (f2);
{$I+}
end;

[ARXangel]

Дописал вот такой код:
Gauge1.Progress := Round(CopyBytes / Size * 100);
lSpeed.Caption := Inttostr(Round(Speed / 1024))+ 'кб/с';
Gauge2.Progress := Round(FileNum / Files * 100);
Label1.Caption := MinimizeName(FSrc, Label1.Canvas, 250)+' -->';
Label2.Caption := MinimizeName(FDes, Label2.Canvas, 250);
Но он изменяется только после окончания, и показывает, только конечный результат
Подскажите как сделать чтобы он изменялся в процессе копирования?

[FaTaL]

Сообщение от ARXangel

Дописал вот такой код:
Gauge1.Progress := Round(CopyBytes / Size * 100);
lSpeed.Caption := Inttostr(Round(Speed / 1024))+ 'кб/с';
Gauge2.Progress := Round(FileNum / Files * 100);
Label1.Caption := MinimizeName(FSrc, Label1.Canvas, 250)+' -->';
Label2.Caption := MinimizeName(FDes, Label2.Canvas, 250);
Но он изменяется только после окончания, и показывает, только конечный результат
Подскажите как сделать чтобы он изменялся в процессе копирования?

Application.ProcessMessages;
Поставили?

[ARXangel]

Application.ProcessMessages

Стоит, я просто первый раз забыл его написать.

[Nester]

Может кому сгодится