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

Советы » Каталоги » Копирование файлов вместе с каталогами

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


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, 'h:hook*.*' ); StrPCopy( tobuf, 'd: emp rief' ); 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com