Тема: copy
Показать сообщение отдельно
  #2  
Старый 12.04.2010, 22:59
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Можете такой оберткой воспользоваться:
Код:
function FileCopy(SrcFile, DstFile: String; ProgressBar: TProgressBar): Boolean;
begin
 Result := False; 
 Result := CopyFileEx(PChar(SrcFile),PChar(DstFile),@FileActionProgress, ProgressBar, Pointer(Result), 0);
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием