AVI資源播放

Question

我有一個表單「TForm1」有一個「TAnimate1」。我有一個AVI資源作爲具有資源標識符「AVI」的文件名「Animate 01.avi」和一個具有資源標識符「8」的文件名「Cursor 01.ani」的「動畫光標」。

我希望在「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))