如何创建一块白色的内存位图？？？（菜鸟求救）

Question

var:
aHDc, aHMemDc: HDC;
  aHBitmap: HBitmap;
  aTBitmap: TBitmap;
begin
     aHDc := GetDC(0);
      aHMemDc  := CreateCompatibleDC(aHDc);
       aHBitmap := CreateCompatibleBitmap(aHDc, size_x, size_y);
      //
       想把这块位图设置为白色，该怎么办？？？（初学者求教）      //
      aHBitmap := SelectObject(aHMemDc, aHBitmap);
end;

Answer 1

HBITMAP CreateDIBSection(
  HDC hdc,                 // handle to DC
  CONST BITMAPINFO *pbmi,  // bitmap data
  UINT iUsage,             // data type indicator
  VOID **ppvBits,          // bit values
  HANDLE hSection,         // handle to file mapping object
  DWORD dwOffset           // offset to bitmap bit values
);
将ppvBits指向的内存块置为全部$FF即可.

Answer 2

新建一个Image，调用Canvas去FillRect，将整个屏幕填充，然后SaveToFile不久可以了吗？