Главная страница
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.01 c
6-17651
Pat
2002-02-22 00:48
2002.05.06
NMFTP


7-17707
Костя
2001-11-16 22:29
2002.05.06
Мониторинг COM порта


4-17751
Song
2002-03-04 18:07
2002.05.06
Как в чужом окне программно нажать Ctrl+C???


1-17529
DikobraZ
2002-04-23 20:57
2002.05.06
Можно ли расположить надпись поверх memo и ему подобных?


1-17571
cypher
2002-04-21 22:42
2002.05.06
Как вставить TPicture в панель TStatusBarэ