Flash Projector dosyasını swf'ye çevirme (exe2swf)

[ReKoBaa_61]

procedure ExeToSWF(ExeFile,aSWF:string);

var

p[img]images/smilies/tongue.gif[/img]ointer;

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.