AVIリソースの再生

Question

私は1つの "TAnimate1"を持つフォーム "TForm1"を持っています。私は、リソース識別子 "AVI"を持つファイル名 "Animate 01.avi"とリソース識別子 "8"を持つファイル名 "Cursor 01.ani"として1つの "Animated Cursor"として1つのAVIリソースを持っています。

"FormCreate"イベントで "Animate 01.avi"を再生し、デフォルトのカーソルを "8"に設定したいと思います。

私は「Delphi XE2」を使用しています。

Answer 1

リソースからTAnimateにaviをロードするには、ResHandleおよびResIdまたはResNameプロパティを使用する必要があります。

あなたは、リソースのIDを持っている場合は、あなたが使用する必要がありますリソースからカーソルをロードするために、リソース

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

の名前を持っている場合は、この

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

のようなコードを使用しますLoadCursor機能

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