| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

COPY FILE [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

Masta Hookah ©   (2005-06-04 13:02:00) 

Как скопировать файл(ы) или каталог(и) средствами WINDOWS с помощью моей проги, т.е. как в EXPLORER'е при копировании показывается апплет с летящими листами...

---

Crazy_Diman   (2005-06-04 15:02:00) [1]

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);

var  OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
begin  FillChar( frombuf, Sizeof(frombuf), 0 );
 FillChar( tobuf, Sizeof(tobuf), 0 );
 StrPCopy( frombuf, 'd:\brief\*.*' );
 StrPCopy( tobuf, 'd:\temp\brief' );
 with OpStruc do begin
   Wnd := Handle;
   wFunc := FO_COPY;
   pFrom := @frombuf;
   pTo := @tobuf;
   fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
   fAnyOperationsAborted := False;
   hNameMappings := Nil;
   lpszProgressTitle := Nil;
 end;
 ShFileOperation( OpStruc );
end;

---

iskatel   (2005-06-04 13:47:00) [2]

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

---

begin...end   (2005-06-04 13:42:00) [3]

> Masta Hookah   (04.06.05 13:33) [3]

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
 Op: TSHFileOpStruct;
begin
 FillChar(Op, sizeof(Op), 0);
 Op.Wnd := Handle;
 Op.wFunc := FO_COPY;
 Op.pFrom := 'C:\MyFile.txt';
 Op.pTo := 'D:\MyFile.txt';
 Op.fFlags := FOF_ALLOWUNDO;
 SHFileOperation(Op)
end.

---

Masta Hookah   (2005-06-04 13:33:00) [4]

Справки..., посмотри..., :-<
Нельзя какой-то примерчик подкинуть...?

---

begin...end   (2005-06-04 13:27:00) [5]

> Masta Hookah   (04.06.05 13:02)

См. в справке или в MSDN описание API-функции SHFileOperation.
Она покажет окно с отображением процесса сама.

---

alex-drob   (2005-06-04 13:21:00) [6]

> при копировании показывается апплет с летящими листами...


Сделайте в своей программе такое окно. Разместите там компонент Animate и установите свойство commonavi в aviCopyFiles

---

Наверх