资源文件问题

Question

ToolBar上一般使用ImageList，你可以参考下面的例子将资源中的位图放到ImageList中，千万不要原版照抄，可能有错误！！！
CommResHanlde是资源存放模块的句柄，如果资源文件存放在可执行文件中，
CommResHanlde := HInstance;
Var
   Bitmap : TBitmap;
begin
     Bitmap := TBitmap.Create;
     Try
        Bitmap.LoadFromResourceName( CommResHandle, TREE_COMPUTER_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_NETWORK_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_SERVICE_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_DIRECTX_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_STARTUP_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_SOFTWARE_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_ENGINES_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_PRINTER_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
        Bitmap.LoadFromResourceName( CommResHandle, TREE_MEDIA_ROOT );
        TreeImages.AddMasked( Bitmap, clFuchsia );
        Bitmap.Dormant;
        Bitmap.FreeImage;
     Finally
            Bitmap.Free;
     End;