Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c
