delphi2007 教程

为什么32BIT的BMP的颜色容PATTATE总为0？？？？特急！！！！ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061021130343218.html
不知为什么在WINDOWS，DELPHI对32位的BMP的PATTATE的取得总为‘0’，如何取得呢？  
  告诉我大侠们？？？？？？  
  因为要对32的位图进行处理啊，“转换成32位的ICO”

只有1/2/4/8位的位图有调色板，16/24/32位的都是所谓“真彩色”，即象素本身定义了颜色值，不需要调色板。  
 

谢谢了。。。。。。。。。  
  要对32的位图进行处理啊，“转换成32位的ICO”  
  那该怎么办呢？

function   CreatIconFromBitmap(Source:   TBitmap):   TIcon;  
  var  
      IconInfo:   TIconInfo;  
  begin  
      Result   :=   TIcon.Create;  
      if   Source.Empty   then  
          exit;  
      IconInfo.fIcon   :=   true;  
      IconInfo.hbmMask   :=   Source.Handle;  
      IconInfo.hbmColor   :=   Source.Handle;  
      Result.Handle   :=   CreateIconIndirect(IconInfo);  
  end;