XProfan

function IconToBitmap(DC: hDC; Icon: THandle; bc: integer): THandle;
var bmpResult: tHandle;
    bmpColorOld, bmpMaskOld, bmpResultOld: tHandle;
    IInfo: ICONINFO;
    hdcColor, hdcMask, hdcResult: tHandle;
    c, m, x, y, dx, dy: integer;
begin
  bmpResult := 0;
  If GetIconInfo(Icon, IInfo) then begin
    dx := IInfo.xHotspot * 2;
    dy := IInfo.yHotspot * 2;
    bmpResult := CreateCompatibleBitmap(DC, dx, dy);
    // DCs produce
    hdcColor  := createCompatibleDC(DC);
    hdcMask   := createCompatibleDC(DC);
    hdcResult := createCompatibleDC(DC);
    // Bitmaps allocate
    bmpColorOld   := SelectObject(hdcColor,  IInfo.hbmColor);
    bmpMaskOld    := SelectObject(hdcMask,   IInfo.hbmMask);
    bmpResultOld  := SelectObject(hdcResult, bmpResult);
    for x  := 0 to dx - 1 do begin
      for y  := 0 to dy - 1 do begin
        c := getPixel(hdcColor,x,y);
        m := getPixel(hdcMask,x,y);
        if m = 0 then setPixel(hdcResult,x,y,c) else setPixel(hdcResult,x,y,bc);
      end;
    end;
    // Result allocate
    bmpResult := SelectObject(hdcResult, bmpResultOld);
    // straighten up
    DeleteObject(SelectObject(hdcMask, bmpMaskOld));
    DeleteObject(SelectObject(hdcColor, bmpColorOld));
    DeleteObject(IInfo.hbmColor);
    DeleteObject(IInfo.hbmMask);
    DeleteDC(hdcColor);
    DeleteDC(hdcMask);
    DeleteDC(hdcResult);
  end;
  Result := bmpResult;
end;