SWF to EXE code

FunctionSwf2exe (S, D, F: String): String;
// S = source file (SWF)
// D = destionation file (exe)
// F = Flash Player
VaR
Sourcestream, destinystream, linkstream: tfilestream;
Flag: Cardinal;
Swffilesize: integer;
Begin
Result: = 'something error ';
Destinystream: = tfilestream. Create (D, fmcreate );
Try
Linkstream: = tfilestream. Create (F, fmopenread OrFm1_exclusive );
Try
Destinystream. copyfrom (linkstream, 0 );
Finally
Linkstream. Free;
End;

Sourcestream: = tfilestream. Create (S, fmopenread OrFm1_exclusive );
Try
Destinystream. copyfrom (sourcestream, 0 );
Flag: = $ fa123456;
Destinystream. writebuffer (flag, sizeof (integer ));
Swffilesize: = sourcestream. size;
Destinystream. writebuffer (swffilesize, sizeof (integer ));
Result: = '';
Finally
Sourcestream. Free;
End;
Finally
Destinystream. Free;
End;
End;

ProcedureTform1.button1click (Sender: tobject );
Begin
Swf2exe ('C:/somefile.swf ', 'c:/somefile.exe ',
'C:/program files/Macromedia/Flash MX/players/saflashplayer.exe ');
End;