Runtime에서 현재 퀀텀의 Skin이 뭐뭐 떠있는지 알아 내는 방법입니다.

2가지방법이 있습니다. 각자 선택을 하시면 될듯 합니다.

1번 가장 심플한 방식입니다.

  for I := 0 to GetExtendedStylePainters.Count - 1 do
    ListBox1.Items.Add( GetExtendedStylePainters.Items[i].Name );

2번째는

var
  i : Integer;
  AResNameList, ASkinNameList : TStringList;
begin
  AResNameList := TStringList.Create;
  ASkinNameList := TStringList.Create;

    dxSkinsPopulateSkinResources(HInstance, AResNameList, ASkinNameList);
    for I := 0 to ASkinNameList.Count - 1 do
      ListBox1.Items.Add( ASkinNameList[i] + ' - '  + AResNameList[I] );

입니다.