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.

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

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;

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