Flash в Delphi

  Чтобы иметь возможность работать с Flash-роликом, необходимо импортировать компонент ActiveX для Flash. Естественно, это возможно, если в операционной системе есть библиотека Flash.ocx или SWFlash.ocx. Эта библиотека устанавливается автоматически при установке пакета Flash или проигрывателя Flash. Последний распространяется компанией Macromedia бесплатно.

  Итак, установим компоненту.
Запустим Delphi. Откроем меню Component>Import ActiveX Control, появится диалоговое окно (рис. 1).

Рис 1. Диалоговое окно Import ActiveX
  Поле Palette page можно не менять, если вы не хотите поместить компонент на другую страницу палитры компонентов. Найдите и выберите в списке Shockwave, откроется кнопка Install…, нажмите её, появится окно (рис. 2)


Рис. 2. Выбор пакеджа, в который будет помещаться компонент.
  Рекомендуем поле File name не менять. Нажатие кнопки OK приведет к появлению окна (рис. 3)


Рис. 3. Запрос на переустановку пакеджа.
  После подтверждения получаем информационное сообщение (рис. 4)


Рис. 4. Информационное сообщение

  В результате всех этих манипуляций в палитре компонентов в разделе ActiveX появится новая компонента



  Для того чтобы ролик воспроизводился при компиляции программы, пропишите этот код, предварительно кинув на форму установленный компонент :)

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'flash.swf';
end;

Вот и всё, Удачи!