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

Вниз

процесс копирование файлов   Найти похожие ветки 

← →
Criptonik ©   (2011-02-14 20:24) [0]

Уважаемые мастера, подскажите пожалуйста, как с помощью progresbar показать процесс копирования файлов (файлы копируются с помощью функции filecopy()

---

← →
_Юрий   (2011-02-14 20:40) [1]

> файлы копируются с помощью функции filecopy()


никак. Чтобы показать прогресс, надо пользоваться другой функцией.

---

← →
Criptonik ©   (2011-02-14 21:19) [2]

а какой не подскажите

---

← →
KilkennyCat ©   (2011-02-14 21:26) [3]

> процесс копирования файлов

процесс копирования одного файла нужно отображать?

BOOL WINAPI CopyFileEx(
 __in      LPCTSTR lpExistingFileName,
 __in      LPCTSTR lpNewFileName,
 __in_opt  LPPROGRESS_ROUTINE lpProgressRoutine,
 __in_opt  LPVOID lpData,
 __in_opt  LPBOOL pbCancel,
 __in      DWORD dwCopyFlags
);

---

← →
Criptonik ©   (2011-02-15 12:01) [4]

а можете её подсказать

---

← →
Игорь Шевченко ©   (2011-02-15 12:12) [5]

отгадал все буквы, не смог назвать слово

---

← →
Criptonik ©   (2011-02-15 21:21) [6]

Спасибо большое, извеняюсь за повторный вопрос забыл обновить страницу

---

← →
delphi ©   (2011-05-08 19:13) [7]

Удалено модератором

---

← →
delphi ©   (2011-05-08 19:23) [8]

uses
 // !!! это очень важно
 ShellApi;

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var
 F: TShFileOpStruct;
begin
 F.Wnd := 0; F.wFunc := FO_COPY;
 FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
 ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
 F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
 result:=ShFileOperation(F) = 0;
end;

// пример копирования
procedure TForm1.Button1Click(Sender: TObject);
begin
if not WindowsCopyFile("C:\UTIL\ARJ.EXE", GetCurrentDir) then
ShowMessage("Copy Failed");
end;

---

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

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

Наверх

Память: 0.48 MB
Время: 0.009 c