如何在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;