Flash

← →
ZeFiR © (2006-01-29 21:40) [0]

Доброго времени суток! Как из Projector EXE можно вытащить "чистый" SWF?
И как можно из "чистого" SWF сделать EXE(не средствами SAFlashPlayer.exe)?

← →
ZeFiR © (2006-01-30 18:17) [1]

function SWF2Exe(SourceName, DestName, PlayerName: string): boolean; var RStream, WStream: TFileStream; flag, SwfFileSize: DWord; begin result := false; WStream := TFileStream.Create(DestName, fmCreate); try RStream := TFileStream.Create(PlayerName, fmOpenRead or fmShareDenyWrite); try WStream.CopyFrom(RStream, RStream.Size); finally RStream.Free; end; RStream := TFileStream.Create(SourceName, fmOpenRead or fmShareDenyWrite); try WStream.CopyFrom(RStream, RStream.Size); flag := $FA123456; WStream.Write(flag, 4); SwfFileSize := RStream.Size; WStream.Write(SwfFileSize, 4); result := true; finally RStream.Free; end; finally WStream.Free; end; end; ... Procedure TMyForm.Button1Click(Sender: TObject); begin SWF2Exe("my.swf", "my.exe", "c:\Flash MX\Players\SAFlashPlayer.exe"); end;
есть такой код, как мона его переделать под мою апп

Думаю дело все во flag ... ток где его отыскать в моей проге...

Flash Найти похожие ветки