1、クリップボードにBMPデータがあるか調べる。
2、あったらクリップボードを開ける。
3、データのハンドルを調べる。
4、そのハンドルから画像の大きさを調べる。
5、クリップボードを閉じる。
多分こんな感じです。
#uselib "user32.dll"
#define CF_BITMAP 2
#func OpenClipboard "OpenClipboard" sptr
#func CloseClipboard "CloseClipboard"
#cfunc IsClipboardFormatAvailable "IsClipboardFormatAvailable" sptr
#cfunc GetClipboardData "GetClipboardData" sptr
#uselib "gdi32.dll"
#func GetObjectA "GetObjectA" sptr,sptr,sptr
if IsClipboardFormatAvailable(CF_BITMAP){
dim cBM,16
OpenClipboard hWnd
hBitmap = GetClipboardData(CF_BITMAP)
GetObjectA hBitmap,32,varptr(cBM)//(BITMAP 構造体)
mes "x="+cBM(1)+" y="+cBM(2)
CloseClipboard
}else{
mes "クリップボードにBMPがありません。"
}