AVI资源播放

Question

我有一个表格“TForm1”有一个“TAnimate1”。我有一个AVI资源作为文件名“Animate 01.avi”，资源标识符为“AVI”，一个“动画光标”为文件名“Cursor 01.ani”，资源标识符为“8”。

我希望在“FormCreate”事件中播放“Animate 01.avi”并将默认光标设置为“8”。

我正在使用“Delphi XE2”。

Answer 1

要从资源加载TAnimate中的avi，您必须使用ResHandle和ResId或ResName属性。

如果您拥有资源的ID，请使用此类代码

  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))