Скачать: CL | DM;

Неужели этого никто не знает!!!   Найти похожие ветки 

← →
Lord BDV   (2002-04-22 18:00) [0]

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

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

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

---

← →
Suntechnic ©   (2002-04-22 20:06) [1]

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

---

← →
Adder ©   (2002-04-22 20:19) [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.

---

← →
Adder ©   (2002-04-22 20:21) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c