[nonVCL] Icon zu Bitmap konvertieren ? - gelöst !

[turboPASCAL]

Ja, ich.

Delphi-Quellcode:

function IconToBitmap(ResID: Integer): HBITMAP;
var
  IconInfo: TICONINFO;
  Icon: HICON;
begin
  Icon := LoadImage(HInstance, MAKEINTRESOURCE(ResID), IMAGE_ICON, 0, 0, 0);
  GetIconInfo(Icon, IconInfo);
  Result := IconInfo.hbmColor;
  DestroyIcon(Icon);
  DeleteObject(IconInfo.hbmMask);
end;