Форум: "Media";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Вниз
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;
есть такой код, как мона его переделать под мою апп
← →
ZeFiR © (2006-01-30 18:34) [2]Думаю дело все во flag ... ток где его отыскать в моей проге...
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c
