Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.09;
Скачать: CL | DM;

Вниз

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 вся ветка

Текущий архив: 2006.07.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
2-1150812247
fast2
2006-06-20 18:04
2006.07.09
Как изменить регистр слова (с большой/маленькой буквы)?


1-1148965617
tany
2006-05-30 09:06
2006.07.09
импорт данных из Excel


2-1150797351
Unknowing
2006-06-20 13:55
2006.07.09
Файлы данных


1-1148980769
Pavels
2006-05-30 13:19
2006.07.09
Плагинная архитектура приложения.


15-1150054402
Omar2002
2006-06-11 23:33
2006.07.09
Тока ща понял почему иногда такие бредовые вопросы задают :)