Текущий архив: 2003.02.13;
Скачать: CL | DM;
Вниз
Нужна процедура , что-то вроде CopyFile(fromFile,ToFile: stirng); Найти похожие ветки
← →
stim © (2003-01-28 12:11) [0]Нужна процедура , что-то вроде CopyFile(fromFile,ToFile: stirng);
Есль есть у кого Поделитесь ПЛЗ...
← →
blackman © (2003-01-28 12:17) [1]Выполняй дос команду Copy вот и вся процедура.
← →
stone © (2003-01-28 12:18) [2]Это стандартная функция из Windows.pas
← →
ZeroDivide © (2003-01-28 12:21) [3]Предлагаю в обмен на процедуру ProgramWrite(About: string)
← →
Chubais © (2003-01-28 12:27) [4]АААААААААААААААА!!!!!!!!!!!
← →
злая девочка (2003-01-28 12:44) [5]function FileCopy(Source, Destination: String): Integer;
var
Q, Z: TFileStream;
begin
if not FileExists(Source) then begin
result:= -2;
exit;
end;
if FileExists(Destination) then begin
result:= -3;
exit;
end;
try
Q := TFileStream.Create(Source, fmOpenRead);
Z := TFileStream.Create(Destination, fmCreate);
Z.CopyFrom(Q, Q.Size);
Q.Free;
Z.Free;
result:= 0;
except
result:= -4;
end;
end;
← →
Delirium^.Tremens © (2003-01-28 12:58) [6]Все велосипедики изобретаем? Сказали же, уже есть такая:
uses shellapi;
...
CopyFile()
CopyFileEx()
...
← →
MBo © (2003-01-28 12:59) [7]>злая девочка
Да ты не злая, Алена, а коварная! ;)
Сказал же stone, что CopyFile(Ex) - стандартная функция
Страницы: 1 вся ветка
Текущий архив: 2003.02.13;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.024 c
