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

Вниз

RES   Найти похожие ветки 

← →
Wolverin ©   (2002-05-04 21:58) [0]

Народ помогите!!! Мне нужно добавить AVi файл в ресурс, а потом в программе из ресурса вставить его в Animate

---

← →
Anatoly Podgoretsky ©   (2002-05-04 22:04) [1]

ResID, ResName
А добавить с помощью *.rc файла

---

← →
Adder ©   (2002-05-05 03:59) [2]

как-то недавно отвечала на подобный вопрос, но все уже утонуло....

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. Иначе - надо указать полный путь к файлу.

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.47 MB
Время: 0.009 c