Конвертируем SWF в EXE

Привет всем! Как-то давно я писал, как конвертировать JPEG в BMP, а в этом уроке я покажу вам, как конвертировать SWF файлы в EXE. Для этого нам понадобиться клиент Macromedia Flash MX. Скачайте и установите его в Program Files. В комплект данного продукта входит нужный нам exe-файл.
Теперь пора посмотреть саму функцию конвертации.

function Swf2Exe(S, D, F: string): string; 
var 
  SourceStream, DestinyStream, LinkStream: TFileStream; 
  flag: Cardinal; 
  SwfFileSize: Integer; 
begin 
  Result := 'something error'; 
  DestinyStream := TFileStream.Create(D, fmCreate); 
  try 
    LinkStream := TFileStream.Create(F, fmOpenRead or fmShareExclusive); 
    try 
      DestinyStream.CopyFrom(LinkStream, 0); 
    finally 
      LinkStream.Free; 
    end; 
    SourceStream := TFileStream.Create(S, fmOpenRead or fmShareExclusive); 
    try 
      DestinyStream.CopyFrom(SourceStream, 0); 
      flag := $FA123456; 
      DestinyStream.WriteBuffer(flag, SizeOf(Integer)); 
      SwfFileSize := SourceStream.Size; 
      DestinyStream.WriteBuffer(SwfFileSize, SizeOf(Integer)); 
      Result := ''; 
    finally 
      SourceStream.Free; 
    end; 
  finally 
    DestinyStream.Free; 
  end; 
end;

Использовать её мы будем примерно так:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Swf2Exe('c:\somefile.swf', 'c:\somefile.exe', 
    'c:\Program Files\Macromedia\Flash MX\Players\SAFlashPlayer.exe'); 
end;

Здесь сначала указывается исходный файл, затем конечный исполняемый файл (пост о получении информации о файле) , а конце полный путь до Flash Playerа(по-умолчанию у вас будет так, как в примере).

До следующей встречи и
Удачи!

Расслабиться пора!
Перед просмотром видео, понизьте громкость ваших наушников или динамиков:)