Советы по Delphi


              

Функция/процедура 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]



Содержание  Назад  Вперед