| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RES [Win95/98, WinME]
Wolverin © (2002-05-04 21:58:00)Народ помогите!!! Мне нужно добавить AVi файл в ресурс, а потом в программе из ресурса вставить его в Animate
Adder (2002-05-05 03:59:00) [1]как-то недавно отвечала на подобный вопрос, но все уже утонуло....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
Animate1: TAnimate;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R AV.RES} //ресурс
procedure TForm1.Button1Click(Sender: TObject);
begin
//Form1.Animate1.ResHandle:=nil;
Form1.Animate1.ResName:="A1";
Form1.Animate1.Active:=true;
end;
end.
файл ресурса av.rc:
A1 AVI DISCARDABLE "cool.avi"
brcc32 av.rc => av.res
здесь предполагается, что файл cool.avi находится в том же каталоге, что и av.rc. Иначе - надо указать полный путь к файлу.
Anatoly Podgoretsky (2002-05-04 22:04:00) [2]ResID, ResName
А добавить с помощью *.rc файла
| |
