{

possible constants:

- IDI_APPLICATION

- IDI_ASTERISK

- IDI_EXCLAMATION

- IDI_HAND

- IDI_QUESTION

}

//Icons

procedure TForm1.Button1Click(Sender: TObject);

var

 icon: TIcon;

begin

 icon := TIcon.Create;

 try

   icon.Handle := LoadIcon(0, IDI_HAND);

   Canvas.Draw(30, 100, icon);

 finally

   icon.Free

 end;

end;

{

possible constants:

- OBM_BTNCORNERS

- OBM_BTSIZE

- OBM_CHECK

- OBM_CHECKBOXES

- OBM_CLOSE

- OBM_COMBO

- OBM_DNARROW

- OBM_DNARROWD

- OBM_DNARROWI

- OBM_LFARROW

- OBM_LFARROWD

- OBM_LFARROWI

- OBM_MNARROW

- OBM_REDUCE

- OBM_RESTORE

- OBM_REDUCED

- OBM_SIZE

- OBM_UPARROW

- OBM_ZOOM

}

//Bitmaps

procedure TForm1.Button2Click(Sender: TObject);

var

 bitmap: TBitmap;

begin

 bitmap := TBitmap.Create;

 try

   bitmap.Handle := LoadBitmap(0, makeintresource(OBM_RESTORE));

   Canvas.Draw(100, 100, bitmap);

 finally

   bitmap.Free

 end;

end;