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

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

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 © 2023 - All Rights Reserved - www.delphirus.com