Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Criptonik © (2011-02-14 20:24:00)
Уважаемые мастера, подскажите пожалуйста, как с помощью progresbar показать процесс копирования файлов (файлы копируются с помощью функции filecopy()

delphi (2011-05-08 19:23:00) [1]
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;

delphi (2011-05-08 19:13:00) [2]
Удалено модератором

Criptonik (2011-02-15 21:21:00) [3]
Спасибо большое, извеняюсь за повторный вопрос забыл обновить страницу

Игорь Шевченко (2011-02-15 12:12:00) [4]
отгадал все буквы, не смог назвать слово

Criptonik (2011-02-15 12:01:00) [5]
а можете её подсказать

KilkennyCat (2011-02-14 21:26:00) [6]

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

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

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-14 21:19:00) [7]
а какой не подскажите

_Юрий (2011-02-14 20:40:00) [8]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »