如何在Delphi 7的资源文件中使用皮肤文件（.asz）文件

Question

我目前使用Alpha lite演示为我的delphi 7应用程序提供各种外观。我怀疑如何包含它们的Skin文件（.asz扩展名），以便我可以移植我的Delphi应用程序而不会丢失Look。我知道我必须将它包含在.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

请尝试使用以下代码。这是由我未经测试，但是从供应商的支持基于this post所以我希望它应该是这样做的正确方法：

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;