Показать сообщение отдельно
  #3  
Старый 19.07.2006, 02:30
Аватар для Safuat
Safuat Safuat вне форума
Прохожий
 
Регистрация: 07.02.2006
Сообщения: 34
Репутация: 10
Смех Пожалуста

Вобщем так полнустью не реализовал пока сам не разобрался
постафь компонент проигрование анимации, затем в обработчик кнопки в пиши следушее:
var
Res: TResourceStream;
begin
Res:= TResourceStream.Create(h, 'server', Pchar('avi'));
Res.SaveToFile('.\avi.avi');
Res.Free;
Animate1.FileName:= '.\avi.avi';
Animate1.Active:= true;
end

работает так создает ресурс из dll затем его сохраняет и начинает проигровать. вконце зделай удаление этого файла вот и все.
server это имя файла.

зайди на сайт http://macrosscd.narod.ru/ там я вылажил пример загрузки из dll: звука, курсоров, картинок, текстовых файлов и конечно avi
Ответить с цитированием