Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

Копирование файлов с прогрессом   Найти похожие ветки 

 
DSKalugin ©   (2005-01-29 13:49) [0]

Как вызывать функцию копирования виндовс, которая показывает наглядно на форме прогрессбар и анимацию (лист перелетает из папки в папку) с кнопкаой "Отмена"


 
kaZaNoVa ©   (2005-01-29 14:35) [1]

может так ? (не проверял)

function TForm1.CopyFolder(Owner: integer; Source,Destination: string; RenameOnCollision,Confirm: boolean): boolean;
const Aborted: Boolean = False;
var ShFileStructure: TSHFileOpStruct;
begin
While pos(";",Source)>0 do
  Source[pos(";",Source)]:=#0;
While pos(";",Destination)>0 do
  Destination[pos(";",Destination)]:=#0;
Source:=Source+#0#0;
Destination:=Destination+#0#0;

ShFileStructure.Wnd := Owner;
ShFileStructure.wFunc := FO_Copy;
ShFileStructure.pFrom := PChar(Source);
ShFileStructure.pTo := PChar(Destination);
ShFileStructure.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR;
if RenameOnCollision then
  ShFileStructure.fFlags := ShFileStructure.fFlags or FOF_RENAMEONCOLLISION;
if not Confirm then
  ShFileStructure.fFlags := ShFileStructure.fFlags or FOF_NOCONFIRMATION;
ShFileStructure.fAnyOperationsAborted := Aborted;
ShFileStructure.hNameMappings := nil;
ShFileStructure.lpszProgressTitle := nil;

result:=(SHFileOperation(ShFileStructure)=0) and (not Aborted);
end;


 
DSKalugin ©   (2005-01-29 15:11) [2]

Спасибо, попробую.
Ужас как все сложно. столько структур надо заполнять...
ох уж эти писатели мокрософта :-((



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
6-1105213067
Alexander Makhanev
2005-01-08 22:37
2005.03.13
Как узнать, находится ли комп в домене?


1-1109759071
Pietro
2005-03-02 13:24
2005.03.13
копирование файлов в буфер обмена


14-1109046319
boriskb
2005-02-22 07:25
2005.03.13
Вы согласны с такой оценкой WinXP ?


4-1106632831
SkierMax
2005-01-25 09:00
2005.03.13
Bios


1-1109607392
Шурка_прогер
2005-02-28 19:16
2005.03.13
аналог Static в Делфи?