Converting SWF to EXE using Delphi (Views: 27)
Problem/Question/Abstract: Converting SWF to EXE using Delphi Answer: 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\SA\FlashPlayer.exe'); end; |