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

Как скопировать непустую директорию, т.е. со всем ее содержимым?   Найти похожие ветки 

← →
Ler   (2003-05-19 17:27) [0]

Уважаемые Мастера!
Подскажите плиз.
Как скопировать непустую директорию, т.е. со всем ее содержимым

---

← →
MBo ©   (2003-05-19 17:39) [1]

findfirst рекурсивно или SHFileOperation

---

← →
Ler   (2003-05-19 18:15) [2]

С "findfirst-findnext рекурсивно" все понятно, а что такое SHFileOperation ???

---

← →
MBo ©   (2003-05-19 18:28) [3]

Хелп и FAQ

---

← →
EvgeniyR ©   (2003-05-20 08:40) [4]

uses ShellApi; если не ошибаюсь

procedure TCopyForm.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, "ПУТЬ ОТКУДА КОПИРОВАТЬ");
StrPCopy( tobuf, "ПУТЬ КУДА КОПИРОВАТЬ");
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.45 MB
Время: 0.038 c