|
loadbmp "bitmap", "myimage.bmp"
hbitmap = hbmp("bitmap")
struct bitmap, bmType as long, bmWidth as long, bmHeight as long, _
bmWidthBytes as long, bmPlanes as short, bmBitsPixel as short, _
bmBits as ulong
bitmaplen = len(bitmap.struct)
calldll #gdi32, "GetObjectA", hbitmap as ulong, _
bitmaplen as long, bitmap as struct, ret as long
print "Width is "; bitmap.bmWidth.struct
print "Height is "; bitmap.bmHeight.struct