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

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

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

Переместить папку [D6, WinXP]

v2k © (2002-07-05 19:07:00)
Люди добрые поможите, надо переместить папку со всем содержимым , и отображать процесс перемещения прогрессбаром как это менее геморойно сделать?

TTCustomDelphiMaster (2002-07-05 20:32:00) [1]

> v2k © (05.07.02 19:49)

Дык я тоже не имею понятия. Я ж всю папку полностью копирую

> StrECopy(p, "C:\Dream");
> Fo.pTo := "D:\";

Копирует папку Dream со всеми потрахами, показывая стандартное окно копирования с прогресбаром, летающими листочками и прочей лабудой

v2k (2002-07-05 19:49:00) [2]
не тут другая проблемма я понятия неимею чего в той папке которую буду копировать

TTCustomDelphiMaster (2002-07-05 19:45:00) [3]
uses ShellApi;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Fo : TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;
begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
//p := StrECopy(p, "C:\DownLoad\1.ZIP") + 1;
//p := StrECopy(p, "C:\DownLoad\2.ZIP") + 1;
//p := StrECopy(p, "C:\DownLoad\3.ZIP") + 1;
//StrECopy(p, "C:\DownLoad\4.ZIP");
StrECopy(p, "C:\Dream");
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY; // FO_DELETE FO_MOVE FO_RENAME
Fo.pFrom := @Buffer;
Fo.pTo := "D:\";
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or
(Fo.fAnyOperationsAborted <> false)) then
ShowMessage("Cancelled")
end;

PS: буфер, содержащий имена файлов для копирования должен заканчиваться двумя нулевыми символами

v2k (2002-07-05 19:35:00) [4]
неа малнько не то
1) способ идеально подходит , но он только для одного файла к нему бы еще много чего пределывать а) найти все файлы и папки замерить размер както высчитать общий размер ну вобщем ещё куча гемороя
2) Во второй я вообще неврубился , но он вроде тоже для одного файла
3)Вариант хороший , но как нибудь бы скрыть его диалоговое окно и завесть переменную в какторой узнавать чем он там занимается, чтоб сделать свой прогресс бар, а может такая и есть я просто не знаю?

Skier (2002-07-05 19:19:00) [5]
>v2k
Это не поможет ?
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622373&n=15

Наверх

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