Главная страница
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.013 c
4-17736
Ivan N.Voronov
2002-03-01 20:05
2002.05.06
получить выделенный курсором текст из окна другого приложения


3-17488
Dmitry_
2002-04-12 13:28
2002.05.06
ADO + Oracle


4-17756
skywalker
2002-02-28 16:13
2002.05.06
Синхронизация доступа


1-17570
HDD
2002-04-22 05:43
2002.05.06
Помогите пожалуйста


7-17715
Delphi 5.01
2002-02-06 19:54
2002.05.06
Создание файла ресурсов.