Как показать прогресс копирования?

← →
iNew © (2003-08-14 06:05) [0]

procedure TForm1.Button2Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "d:\brief\*.*" );
StrPCopy( tobuf, "d:\temp\brief" );
with OpStruc do begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
ShFileOperation( OpStruc );
end;
Что здесь нужно дописать чтоб был виден прогресс копирования?

← →
Song © (2003-08-14 09:02) [1]

По идее должен сам возникать, если оно требуется (когда операция длительная)

← →
iNew © (2003-08-14 09:25) [2]

А если не длительная то как?

← →
Bel © (2003-08-14 09:44) [3]

> А если не длительная то как?

Тогда, может быть, он просто не успевает показываться. Всем этим управляет Винда.

← →
iNew © (2003-08-14 09:57) [4]

Хорошо, тогда как сделать чтоб прогресс показывался не виндовый, а свой, например в ProgressBar.

> Хорошо, тогда как сделать чтоб прогресс показывался не виндовый,
> а свой, например в ProgressBar.

Тогда копировать надо самостоятельно и прогресс опять же самому двигать. Если нужен еще и прогресс копирования отдельно взятого файла - бить файл скажем на 10 кусков и копируя куски двигать прогресс бар.

Как показать прогресс копирования? Найти похожие ветки