Быстрое копирование файла

procedure CopyFile( Source, Dest : string );
var
SrcFile : Integer;DestFile : Integer;S : string;RetCode : Longint;OpenFileBuf : TOFStruct;FName : array[ 0..255 ] of Char;begin
StrPCopy( FName, Source );SrcFile := LZOpenFile( FName, OpenFileBuf, of_Read );StrPCopy( FName, Dest );DestFile := LZOpenFile( FName, OpenFileBuf, of_Create );
RetCode := LZCopy( SrcFile, DestFile );if RetCode >= 0 thenbeginLZClose( SrcFile );LZClose( DestFile );endelsebeginStr( RetCode, S );MessageDlg( 'Не могу скопировать ' + Source + ' в ' +Dest + #13 + 'Код ошибки = ' + S, mtError, [mbOk], 0 );end;end;

[000351]

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