TFileStream可实现对文件的复制
下面做个例子（我感觉例子是最好的记忆方法）
先放入C下一个文件：my.exe
新建工程，放一button组件
button.caption:=复制
procedure TForm1.Button1Click(Sender: TObject);
var
instrm,outstrm:tfilestream;
begin
instrm:=tfilestream.Create('c:\my.exe',fmOpenRead);//流打开文件
outstrm:=tfilestream.Create('c:\ok.exe',fmCreate);//流保存的文件
outstrm.CopyFrom(instrm,instrm.Size);
FreeAndNil(instrm);
FreeAndNil(outstrm);
application.MessageBox('复制成功','good',mb_ok);
end;
一次很简单的复制成功了
posted on 2009-01-23 21:17
小叶子 阅读(923)
评论(0) 编辑 收藏 引用 所属分类:
delphi流的应用