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

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

Неужели этого никто не знает!!! [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Lord BDV ©   (2002-04-22 18:00:00) 

Извините, что, возможно, повторяюсь, но требуется действительно СКОРАЯ помощь!
У меня на форме есть компонент TAnimate. На винте валяется совершенно левый EXE-шник (путь к нему известен). В этот EXE-шник я зашил в качестве ресурса НЕСЖАТЫЙ, без звука, видеоклип (AVI).

Спрашивается, как зарядить этот клип в Animate в моей программе и проиграть его!

Всем заранее спасибо!

---

Adder   (2002-04-22 20:21:00) [1]

продолжение: можно даже так:

TEMP:=MainInstance;
MainInstance:=HInst;
Form1.Animate1.ResId:=1010;
Form1.Animate1.ResHandle:=MainInstance;
MainInstance:=TEMP;

---

Adder   (2002-04-22 20:19:00) [2]

var
Form1: TForm1;
HInst:THandle;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
HInst:=SafeLoadLibrary("R1.EXE");
if HInst<= HINSTANCE_ERROR then HInst:=0;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeLibrary(HInst);
CloseHandle(HInst);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Animate1.CommonAVI:=aviCopyFiles;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Animate1.CommonAVI:=aviNone;

end;

procedure TForm1.Button3Click(Sender: TObject);
var Temp:THANDLE;
begin
TEMP:=MainInstance;
MainInstance:=HInst;
Form1.Animate1.ResId:=1010;
Form1.Animate1.ResHandle:=HInst;
MainInstance:=TEMP;
Form1.Animate1.Active:=true;
end;

end.

---

Suntechnic   (2002-04-22 20:06:00) [3]

Используй св-во ResHandleи ResIdили ResName

---

Наверх