копирование

← →
rosl (2003-11-18 02:36) [0]

Уважаемые МАСТЕРА!!!
Такой вопросик. Как скопировать все файлы из одного каталога в другой.

← →
SkyRanger © (2003-11-18 02:49) [1]

Через потоки...

← →
SkyRanger © (2003-11-18 02:50) [2]

Через потоки...

procedure TForm1.CopyFileClick(Sender: TObject);

var
stream1, stream2:TStream;
begin
stream1:=TFileStream.Create(From.Text,fmOpenRead or fmShareDenyWrite);
try
stream2 := TFileStream.Create(To.Text fmOpenCreate or fmShareDenyRead);
try
stream2.CopyFrom(Stream1,Stream1.Size);
finally
stream2.Free;
finally
stream1.Free
end

← →
Babay © (2003-11-18 05:33) [3]

SHFileOperation + F1

← →
kostik (2003-11-18 16:30) [4]

function CopyFile(lpSource,lpTarget:string):boolean;
var
shFile:tSHFileOpStruct;
begin
ZeroMemory(@shFile,SizeOf(shFile));
with shFile do
begin
wFunc:=FO_COPY;
fFlags:=FOF_FILESONLY;
pFrom:=pChar(lpSource+#0);
pTo:=pChar(lpTarget);
end;
Result:=SHFileOperation(shFile)=0;
end;

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