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

Вниз

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

← →
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;

---

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

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

Наверх

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