Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

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

← →
Andrey Terekhov   (2003-03-26 14:25) [0]

Люди помогите!
Как показать прогресс копирование или скачки файла, т.е. его текущий размер, что-то вроде скопировано столько-то байт из ...
Есть ли возможность вызвать стандартный диалог?

Спасибо

---

← →
Jel ©   (2003-03-26 15:09) [1]


Uses ..., ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var struct : TSHFileOpStruct;
begin
ZeroMemory(@struct, sizeOf(Struct));
with struct do begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := "c:\data\*.*"+#0;
pTo := "d:\data"+#0;
fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
end;
SHFileOperation(struct);
end;


---

Страницы: 1 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c