Как прoграммно скопировать файл с одного места в другое (на компе).

Несколько вариантов копирования файлов есть в модуле MySys

Код

procedure TForm1.Button1Click(Sender: TObject); var  d: LongBool; begin  CopyFile(PChar('c:\123.txt), PChar('c:\temp\123.txt'), d); end;

Добавлено @ 15:01
SlaUr
Я не успел

Для чего нужна переменная d

F1 гласит:

Код

bFailIfExists Specifies how this operation is to proceed if a file of the same name as that specified by lpNewFileName already exists. If this parameter is TRUE and the new file already exists, the function fails. If this parameter is FALSE and the new file already exists, the function overwrites the existing file and succeeds.

То есть это значит, что если этот параметр будет равен True, то функция завершится с ошибкой, если такой файл существует, с False ошибки не будет - файл перезапишется.

П.С. Нужно учиться хелпом пользоваться.

Цитата

То есть это значит, что если этот параметр будет равен True, то функция завершится с ошибкой, если такой файл существует, с False ошибки не будет - файл перезапишется.

В таком случае, d надо обязательно инициализировать, либо передавать неаосредственно константу, например:

Код

procedure TForm1.Button1Click(Sender: TObject); begin CopyFile(PChar('c:\123.txt), PChar('c:\temp\123.txt'), True); end;

http://forum.vingrad.ru/index.php?showtopi...%EE%E2%E0%F2%FC

Петрович Да неееет!!

Если процедура не сработала, то в переменную D попадает True. И по ластеррор можешь посмотреть что случилос!
А если все прошло хорошо, то в D попадает False

Цитата

Если процедура не сработала, то в переменную D попадает True. И по ластеррор можешь посмотреть что случилос! А если все прошло хорошо, то в D попадает False

Шустрый, ты не прав .
Читай исходный коментарий к параметру (на англицком)! Там ясно сказано. Кроме того, посмотри как он определен:

Код

BOOL bFailIfExists          // operation if file exists

- это параметр-значение (не var параметр), следовательно он даже не может веруть никакой результат!
Да и в WinAPI принято результат выполнения действия возвращать как результат функции.

// создаю поток чтения записи файлов
Source:=TFileStream.Create(s,fmOpenRead);
// блок нормального завершения работы в случае ошибки
try
// создаю потоком новый файл
Target:=TFileStream.Create(s1,fmCreate);
try
// копирую файл
Target.CopyFrom(Source,0)
finally
// уничтожаю поток
// выполнится даже если возникнет ошибка
Target.Free;
end;
finally
// уничтожаю поток
// выполнится даже если возникнет ошибка
Source.Free;
end;
end;

Петрович
Ты прав!
Прошу прощения, эт я по запарке!!!

А не проще ли посмотреть FAQ? DRKB