Функция/процедура CopyFile
Модуль, который будет содердать этот код, должен иметь "LZExpand" в списке "uses" (без кавычек, естественно).
"var"-объявления:
| SourceHandle, DestHandle: Integer; SName,DName: String; |
SName и DName содержат полные пути с именами целевого и исходного файлов.
В теле процедуры:
|
{устанавливаем десктипторы файлов}
SourceHandle := FileOpen(SName,0);
DestHandle := FileCreate(DName);
{устанавливаем буфер, выполняем копирование, очищаем буфер} LZStart; CopyLZFile(SourceHandle,DestHandle); LZDone; {закрываем файлы} FileClose(SourceHandle); FileClose(DestHandle); |
[001678]
