WindowsのExplorerのエクスプローラーバーのフォルダツリーのような
コンポーネントをCLXで作ろうと思っているのですが、
ネット等で調べたところVCLのサンプルしか見当たらず
class PACKAGE TDirectoryTreeView : public TTreeView
{
//(省略)
};

bool __fastcall TDirectoryTreeView::init(void)
{
　　HIMAGELIST img_list_handle;
//(中略)
　　img_list_handle = (HIMAGELIST)SHGetFileInfo(
　　　　PAnsiChar(item_id_list), 0, &file_info, sizeof(file_info),
　　　　SHGFI_PIDL | SHGFI_DISPLAYNAME | SHGFI_SYSICONINDEX | SHGFI_SMALLICON);
　　if(img_list_handle == 0){
　　　　FIMalloc->Free(item_id_list);
　　　　ShowMessage("SHGetFileInfo失敗\n" + AnsiString(__FILE__) + "\n(" + AnsiString(__LINE__) + ")");
　　　　exit(1);
　　}

上のようにImageListのハンドルを取得し、
this->Images = new TImageList(this);
this->Images->Handle = img_list_handle;
としている例しか見つけられませんでした。
どうやらTCustomImageList::Images->HandleはVCLにしか存在しないようなので
CLXでTImageListにアイコンを取得する方法をご存知の方がいらっしゃれば
御教授お願いいたします。
開発環境はWindows2000sp3、Borland C++ Builder6 Professionalで、
コンポーネント内のWindows、Linux固有のコードは#ifdef __WIN32__で
分けて書いています。