Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Flash SWF > EXE

01.01.2007
function Swf2Exe(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 or fmShareExclusive);
   
try
     
DestinyStream.CopyFrom(LinkStream, 0);
   
finally
     
LinkStream.Free;
   
end;
 
   
SourceStream := TFileStream.Create(S, fmOpenRead or fmShareExclusive);
   
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;
 
procedure TForm1
.Button1Click(Sender: TObject);
begin
  Swf2Exe
('c:\somefile.swf', 'c:\somefile.exe',
   
'c:\Program Files\Macromedia\Flash MX\Players\SAFlashPlayer.exe');
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php