把Flash文件转换为Exe文件

function SwfExe(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 := TFileStreamCreate(D fmCreate);

try

LinkStream := TFileStreamCreate(F fmOpenRead or fmShareExclusive);

try

DestinyStreamCopyFrom(LinkStream );

finally

LinkStreamFree;

end;

SourceStream := TFileStreamCreate(S fmOpenRead or fmShareExclusive);

try

DestinyStreamCopyFrom(SourceStream );

flag := $FA;

DestinyStreamWriteBuffer(flag SizeOf(Integer));

SwfFileSize := SourceStreamSize;

DestinyStreamWriteBuffer(SwfFileSize SizeOf(Integer));

Result := ;

finally

SourceStreamFree;

end;

finally

DestinyStreamFree;

end;

end;

procedure TFormButtonClick(Sender: TObject);

begin

SwfExe(c:\somefileswf c:\somefileexe

c:\Program Files\Macromedia\Flash MX\Players\SAFlashPlayerexe);

end;

有了这个你就可以制作自己的Flash贺卡了

上一篇：SDL学习笔记二中文字体的显示

下一篇：在Windows XP以幻灯片方式浏览图片