Идёт загрузка страницы...
Навигатор
На форум
Софт
Программирование
Delphi
Visual Basic
Borland C++
1С
Вебмастеру
HTML
PHP
Perl
ОС
Windows XP
Windows 98
Windows 2000
Одной строкой
Dos Copy через TFileStream
Var
S,T: TFileStream;
Begin
S:=TFileStream.Create( sourcefilename, fmOpenRead );
try
T:=TFileStream.Create( targetfilename, fmOpenWrite );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end
;
finally
S.Free;
end
;
End
;
[000521]