...даже не знаю как тему назвать...

← →
ZeFiR © (2006-02-02 18:21) [0]

Дан такой код:
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;
код создает екзе из свф... но при помощи родного макромедиевского двига... как можно создать екзе из свф с помощью своей проги(с уже встроенным TShockwaveFlash)?

← →
ZeFiR © (2006-02-02 20:34) [1]

Переместили в конференцию "Начинающим", а помочь нормально "начинающему" не могут! Где справедливость?

← →
Gero © (2006-02-02 20:51) [2]

Про себя пишет «начинающий» в кавычках, а тему нормально сформулировать не может. Где логичка?

← →
ZeFiR © (2006-02-02 21:10) [3]

Ну как где? как можно в рантайме забить в екзешник своей проги свф муви и потом сохранить это все дело куда-то(как это делает SaFlashPlayer.exe)? Так понятно? Иль еще че-то не сформулировал?

← →
GuAV © (2006-02-02 23:32) [4]

> как можно в рантайме забить в екзешник своей проги свф
> муви и потом сохранить это все дело куда-то

Используя код [0] и передавая в качестве параметра PlayerName екзешник своей проги.

← →
ZeFiR © (2006-02-03 18:13) [5]

> Используя код [0]

куда его тыкать)?

Кстати, условие такое: чтоб потом эта муви легко шпилилась с пом. моей проги

> куда его тыкать)?

Не тыкать а использовать в своей программе.
SWF2Exe("my.swf", "my.exe", ParamStr(0)); - остальное так же.

...даже не знаю как тему назвать... Найти похожие ветки