Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.022 c
1-38179
Sharik_212
2003-01-30 17:55
2003.02.13
Помогите вставить картинку в RxRichEdit


14-38515
scorpi
2003-01-28 17:59
2003.02.13
COM-порты.


3-38088
Relict
2003-01-27 15:25
2003.02.13
Опять запись картинок на сервер


14-38476
Nikolay M.
2003-01-29 13:59
2003.02.13
Где взять квариру? :(


9-38000
Ev_genus
2002-05-10 12:41
2003.02.13
Чем DelphiX хуже Direct API. (Это не вопрос)