СД
Софья Демишева
Создайте файл с ресурсом resourcegifs.rc и впишите в него строчку:
TESTGIF RCDATA "whatever.gif"
Откомпилируйте файл при помощи brcc32, получится resourcegifs.res.
Прицепите его в свой проект
{$R resourcegifs.res}
Кусок программы:
procedure TForm1.Button2Click(Sender: TObject);
var rs: TResourceStream;
gif : Tgifimage;
Begin
rs := TResourceStream.Create( hinstance, 'TESTGIF', RT_RCDATA );
try
gif:= Tgifimage.create;
gif.loadfromstream(rs);
//тут вы с gif делаете что хотите
finally
rs.free;
gif.free;
end;
end;