| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запуск флеш-заставки вместо сплэш скрина [D2005, XP]

Страницы:   < 1 2 >

programmer90 ©   (2008-11-02 15:19:00) 

Здравстуйте уважаемые мастера!
Такой вопрос: Как запуская прогу можно запустить флеш-заставку (.swf)?
Благодарю-с :)

---

programmer90   (2008-11-02 15:30:00) [21]

Ну по тексту "Не был произведен вызов CoInitialize"
можно сказать что "надо воспроизвести вызов CoInitialize"
только вот как?

---

Palladin   (2008-11-02 15:28:00) [22]

как ты воспринимаешь слово "вызов" ? в контексте программирования конечно

---

programmer90   (2008-11-02 15:27:00) [23]

try
   SplashForm := TSplashForm.Create(Application);
   SplashForm.Show;  ---------{Здесь выдает ошибку}
   SplashForm.Update;
   repeat
     Application.ProcessMessages;
   until splashForm.CloseQuery;
   SplashForm.Hide;
 finally
   SplashForm.Free;
 end;
Application.Initialize;
 Application.Title := 'FPSE';
 Application.MainFormOnTaskbar := True;
 Application.CreateForm(TM Application.MainFormOnTaskbar := True;
 Application.CreateForm(TMainForm, MainFormainForm, MainForm);
 Application.CreateForm(TAboutForm, AboutForm);
 Application.CreateForm(TPref, Pref);
 Application.Run;

---

Palladin   (2008-11-02 15:25:00) [24]

да вроде текст ошибки не на болгарском... :)

---

programmer90   (2008-11-02 15:23:00) [25]

Такой код:
procedure TSplashForm.FormActivate(Sender: TObject);
begin
 flash:= TShockwaveFlash.Create(self);
........
end;
ВЫдает ошибку EOleSysError - "Не был произведен вызов CoInitialize"
:(

---

Palladin   (2008-11-02 15:20:00) [26]

а "сплэш скрин", я так полагаю, ты умеешь уже силами своими сделать?

---

Страницы:   < 1 2 >

Наверх