デルファイ7のリソースファイルでスキンファイル（.asz）ファイルを使用する方法

Question

私は現在Alpha liteデモを使用して、私のデルファイ7アプリケーションにさまざまな外観を与えています。 Lookを失うことなくDelphiアプリケーションを移植できるように、スキンファイル（.asz拡張子）を含める方法について疑問があります。私はそれを.RESファイルに含める必要があることを認識しています。どうやってするか ？
私は、リソースをロードするために小さな関数を作っています

Function LoadResourceFromFile() : Boolean; 
Var 
    hFind , hRes : THandle; 
Begin 
    hFind := FindResource(HInstance,'SkinsVista',RT_RCDATA); 
    If hFind <> 0 Then 
    Begin 
    hRes := LoadResource(HInstance,hFind); 
    If hRes <> 0 Then 
    Begin 
     // what to do now ? 
    End; 
    End; 
End; 

誰かが私を導くことはできますか？

Answer 1

次のコードを使用してください。

procedure TForm1.Button1Click(Sender: TObject); 
var 
    ResStream: TResourceStream; 
const 
    SkinName = 'MySkin'; 
begin 
    ResStream := TResourceStream.Create(HInstance, 'SkinsVista', RT_RCDATA); 
    try 
    sSkinManager1.InternalSkins.Add; 
    sSkinManager1.InternalSkins[sSkinManager1.InternalSkins.Count - 1].Name := SkinName; 
    sSkinManager1.InternalSkins[sSkinManager1.InternalSkins.Count - 1].PackedData.LoadFromStream(ResStream); 
    sSkinManager1.SkinName := SkinName; 
    sSkinManager1.Active := True; 
    finally 
    ResStream.Free; 
    end; 
end;