Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

Directoria!   Найти похожие ветки 

← →
alless ©   (2004-01-04 14:28) [0]

Kak kopirovati vesi direktorii, so vsemi failami i subdirectoriami v drugom meste? Sposibo!

---

← →
Anatoly Podgoretsky ©   (2004-01-04 14:33) [1]

ShFileOperation

---

← →
Serge ©   (2004-01-04 16:19) [2]


function CopyFiles( Handle : Hwnd; Src : array of string; Dest : string; Move : Boolean; AutoRename : Boolean ) : Integer;
var
SHFileOpStruct : TSHFileOpStruct;
SrcBuf : TBuffer;
begin
CreateBuffer( Src, SrcBuf );
with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_COPY;
if Move then wFunc := FO_MOVE;
pFrom := Pointer( SrcBuf );
pTo := PChar( Dest );
fFlags := 0;
if AutoRename then fFlags := FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
Result := SHFileOperation( SHFileOpStruct );
SrcBuf := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFiles( Handle, [ "C:\Test1", "C:\Test2" ], "C:\Temp", True, True );
end;



---

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

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c