用DELPHI实现文件加密压缩

用DELPHI实现文件加密压缩(13) file_ok.CopyFrom(myres,0);
file_ok.Seek(0,sofromend);
myfile.Position:=0;
file_ok.CopyFrom(myfile,0);
file_ok.Seek(0,sofromend);
filesize:=myfile.Size;
file_ok.WriteBuffer(filesize,sizeof(filesize));
file_ok.Position:=0;
xfilename:=ChangeFileExt(filename,'.exe') ;
file_ok.SaveToFile(xfilename);

finally
myfile.Free ;
myres.Free ;
file_ok.Free ;

end;
DeleteFile(filename);
filename:=xfilename;

end;
end;

//#####################################################

destrUCtor Tmyzip.Destroy;
begin

inherited Destroy;
end;
end.

3 、结束语
Delphi的全新可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。对于程序开发人员来讲，使用Delphi开发应用软件，无疑会大大地提高编程效率。在Delphi中可以很方便的利用流实现文件处理、动态内存处理、网络数据处理等多种数据形式，写起程序也会大大提高效率的。

参考文献： 
1、Delphi系统帮助
2、冯志强. Delphi 中压缩流和解压流的应用
3、陈经韬.谈Delphi编程中“流”