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

← →
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]

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

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

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

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;

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