Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: 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 вся ветка

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-17487
62mkv
2002-04-11 15:58
2002.05.06
Левые пустые страницы в отчете - как убрать ?


1-17589
Zyxel
2002-04-22 16:13
2002.05.06
Types of actual and formal var parameters must be identical


1-17603
Gass
2002-04-21 20:47
2002.05.06
Выпадающий ImageIndex в своем компоненте


14-17683
Вадим
2002-03-28 21:09
2002.05.06
Ненавижу!


1-17636
Дмитрий Орехов
2002-04-22 08:26
2002.05.06
QRCompositeReport