Отобразить процес копирования большого кол -ва файлов

← →
Spartak © (2003-05-08 13:51) [0]

Вот такой вопрос : например я хочу сделать копирование файлов из одной директории во вторую ! как можно этот процес отображать в progresbar"e ? чтобы пользователь видел сколько осталось скопировать !

Или есть ещё одна альтернатива ! вот можно скопировать файл посредством windows , тогда сам процес будет виден но если таким способом копировать несколько файлов подряд то окно копирования windows будет по очереди обращаться к каждому файлу по очереди !
как достичь программно того же эфекта как например если скипируешь папку обычным методом windows ?

← →
Erik Ivanov (2003-05-08 14:14) [1]

Использовать функйии копирования Explorer, точного их названия непомню. Но Акжан их описывал. http://www.akzhan.midi.ru/devcorner/devcorner-home-rus.html

Посмотрел ! а нет ли чего по проще ? я с этим просто не работал

вот пример который я использую для копирования файлов :

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;

Отобразить процес копирования большого кол -ва файлов Найти похожие ветки