Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
ВнизКак показать прогресс копирования? Найти похожие ветки
← →
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.
← →
jel (2003-08-14 10:03) [5]
> Хорошо, тогда как сделать чтоб прогресс показывался не виндовый,
> а свой, например в ProgressBar.
Тогда копировать надо самостоятельно и прогресс опять же самому двигать. Если нужен еще и прогресс копирования отдельно взятого файла - бить файл скажем на 10 кусков и копируя куски двигать прогресс бар.
← →
Романов Р.В. (2003-08-14 10:17) [6]
> iNew © (14.08.03 09:57) [4]
F1 - CopyFileEx
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c