Kod:
procedure ExeToSWF(ExeFile,aSWF:string); var pointer; f:file; sz, swfsize:integer; const SWF_FLAG:integer=$FA123456; begin if not fileexists(ExeFile) then begin messagebox(Application.Handle,pchar('File not found'),pchar('Error'),MB_ICONERROR); exit; end; assignfile(f,ExeFile); reset(f,1); seek(f,filesize(f)-(2*sizeof(integer))); blockread(f,sz,sizeof(integer)); if szswf_flag then begin messagebox(Application.Handle,pchar('invalid Projector Exe'),pchar('Error'),MB_ICONERROR); closefile(f); exit; end; blockread(f,swfsize,sizeof(integer)); seek(f,filesize(f)-(2*sizeof(integer))-swfsize); getmem(p,swfsize); blockread(f,p^,swfsize); closefile(f); assignfile(f,aSWF); rewrite(f,1); blockwrite(f,p^,swfsize); closefile(f); freemem(p,swfsize); messagebox(Application.Handle,pchar('SWF Extracted'),pchar('Succes'),MB_ICONINFORMATION); end; procedure TForm1.Button1Click(Sender: TObject); begin ExeToSWF('flash.exe','flash.swf'); end; end.

__________________