Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.008 c
15-1303911419
Scott Storch
2011-04-27 17:36
2011.08.21
Проектирование БД - использование нескольких категорий


1-1263393457
Alex'Soft
2010-01-13 17:37
2011.08.21
Автосборка проекта


15-1304414515
Медвежонок Пятачок
2011-05-03 13:21
2011.08.21
такая версия уже озвучивалась


2-1304955708
Leon-Z
2011-05-09 19:41
2011.08.21
Глюк в Delphi 7.


2-1304704508
Alik
2011-05-06 21:55
2011.08.21
распаковка ZIP архива