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

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 then begin LZClose( SrcFile ); LZClose( DestFile ); end else begin Str( RetCode, S ); MessageDlg( 'Не могу скопировать ' + Source + ' в ' + Dest + #13 + 'Код ошибки = ' + S, mtError, [mbOk], 0 ); end; end;

[000351]

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