用DELPHI实现文件加密压缩

用DELPHI实现文件加密压缩(12)               try
              OutStream.Position :=0;
              filestream_ok.CopyFrom(OutStream,inifile.ReadInteger('file1','filesize',0));
              finally
              filestream_ok.Free ;
             end;

           end;


          inifile.Free;
        finally
         //删除临时INI文件
        deletefile(ExtractFilePath(paramstr(0))+'tmp.in_');
        end;
     //
   finally
     OutStream.free;
   end;
 finally
   inStream.free;
 end;
except
resultvalue:=false  ;

end;
result:=resultvalue;
end;


//自解压创建
procedure tmyzip.zjywj(var filename:string);
var
myRes: TResourceStream;//临时存放自解压EXE文件
myfile:tfilestream;//原文件流
xfilename:string;//临时文件名称
file_ok:tmemorystream; //生成文件的内存流
filesize:integer; //原文件大小
begin
if FileExists(filename) then
begin
//创建内存流
file_ok:=tmemorystream.Create ;
//释放资源文件-- 自解压EXE文件
myRes := TResourceStream.Create(Hinstance, 'myzjy', Pchar('exefile'));
//将原文件读入内存
myfile:=tfilestream.Create(filename,fmOpenRead);
try

myres.Position:=0;