Скачать: CL | DM;

COPY FILE   Найти похожие ветки 

← →
Masta Hookah   (2005-06-04 13:02) [0]

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

---

← →
alex-drob   (2005-06-04 13:21) [1]

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


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

---

← →
begin...end ©   (2005-06-04 13:27) [2]

> Masta Hookah   (04.06.05 13:02)

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

---

← →
Masta Hookah   (2005-06-04 13:33) [3]

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

---

← →
begin...end ©   (2005-06-04 13:42) [4]

> 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.

---

← →
iskatel ©   (2005-06-04 13:47) [5]

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

---

← →
Crazy_Diman ©   (2005-06-04 15:02) [6]

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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c