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

Копирование папок   Найти похожие ветки 

← →
BJValentine ©   (2003-05-27 11:22) [0]

Есть ль в виндах функция копирования целых папок и подпапок в них?

---

← →
Polevi ©   (2003-05-27 11:24) [1]

SHFileOperation

---

← →
Мое имя   (2003-05-27 13:54) [2]

Удалено модератором
Примечание: Offtopic

---

← →
Stas ©   (2003-05-27 16:09) [3]

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:\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;

---

← →
BJValentine ©   (2003-05-27 18:37) [4]

Спасибо

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.011 c