может я что-то не так делаю. ну в общем указываю путь исходного файла который находится на CD-ROM, потом вроде как пытаюсь открыть его, вроде как на чтение. выдает ошибку #5
| Код |
program copyfile;
uses System, CRT;
var
SrcFileHand: FILE;
DstFileHand: FILE;
ResultStr : string;
ReadSize : Longint;
WriteSize : Longint;
ReadBuffer : array[0..61000] of byte;
begin
Assign(SrcFileHand,'E:\test.txt'); {* это файл на CD-ROM'e *}
Reset(SrcFileHand);
Assign(DstFileHand,'D:\dst.txt'); {* это файл на жестком диске *}
ReWrite(DstFileHand);
repeat
BlockRead(SrcFileHand,ReadBuffer,61000,ReadSize);
WriteSize := ReadSize;
BlockWrite(DstFileHand,ReadBuffer,WriteSize);
until Eof(SrcFileHand) = true;
close(SrcFileHand);
close(DstFileHand);
WriteLn('Press any key');
ReadKey;
end.
|
|