Советы по 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]



Содержание раздела







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий