AVI Resource Playing - PullRequest
Новая
       3

AVI Resource Playing

1 голос
/ 15 декабря 2011

У меня есть форма "TForm1" с одним "TAnimate1". У меня есть один ресурс AVI в качестве имени файла «Animate 01.avi» с идентификатором ресурса «AVI» и один «Анимированный курсор» в качестве имени файла «Курсор 01.ani» с идентификатором ресурса «8».

Я хочу сыграть «Animate 01.avi» в событии «FormCreate» и установить курсор по умолчанию как «8».

Я использую "Delphi XE2".

1 Ответ

2 голосов
/ 16 декабря 2011

Чтобы загрузить avi в TAnimate из ресурса, необходимо использовать ResHandle и ResId или ResName свойства.

если у вас есть идентификатор ресурса, используйте код, подобный этому 

  Animate1.ResHandle:=HInstance;
  Animate1.ResId    :=2;//this is the id of the resource

если у вас есть название ресурса 

  Animate1.ResHandle:=HInstance;
  Animate1.Resame :='MyAvi';//this is the name of the resource

для загрузки курсора из ресурса вы должны использовать функцию LoadCursor 

Screen.Cursors[NIndex] := LoadCursor(HInstance, '8');//or if you are using a number instead an string LoadCursor(HInstance, MAKEINTRESOURCE(8))
...