Главная страница
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
1-17621
allrussia
2002-04-22 21:03
2002.05.06
Доброго времени суток, знатоки. Не подскажете ли ламеру ответ на


7-17719
Lizard
2002-02-08 19:44
2002.05.06
Как внести изменения в caption меню PopupM (точнее в caption одного из items submenu) ?


4-17727
Rider
2002-02-28 19:39
2002.05.06
API функции для работы с мышью


3-17481
yyy
2002-04-12 12:58
2002.05.06
Можно как-либо вставить в бд поля её типа?


7-17714
андрей Татуков
2002-02-07 15:14
2002.05.06
зависания при вызове GetHostName