HSP ¥¹¥¯¥·¥ç¥³¡¼¥É
#uselib "gdi32.dll"
#cfunc CreateDC "CreateDCA" sptr,sptr,sptr,int
#func DeleteDC "DeleteDC" int
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int
#define NULL 0
#define SRCCOPY 0x00CC0020
#define CAPTUREBLT 0x40000000
; ¥¦¥£¥ó¥É¥¦Èóɽ¼¨
screen 0, 150, 50 : gsel 0, -1
wait 50
; ¥Ç¥¹¥¯¥È¥Ã¥×²èÌ̤Υµ¥¤¥º¤Ç¥Ð¥Ã¥Õ¥¡²èÌ̤òºîÀ®
sx = ginfo_dispx : sy = ginfo_dispy
buffer 2, sx, sy
; ¥Ç¥¹¥¯¥È¥Ã¥×²èÌ̤ΥǥХ¤¥¹¥³¥ó¥Æ¥¥¹¥È¼èÆÀ
hdcScreen = CreateDC("DISPLAY", NULL, NULL, NULL)
; ¥Ç¥¹¥¯¥È¥Ã¥×²èÌ̤βèÁü¤ò¥³¥Ô¡¼
BitBlt hdc, 0, 0, sx, sy, hdcScreen, 0, 0, SRCCOPY | CAPTUREBLT
; ¥Ç¥Ð¥¤¥¹¥³¥ó¥Æ¥¥¹¥Èºï½ü
DeleteDC hdcScreen
; ¥Ó¥Ã¥È¥Þ¥Ã¥×¥Õ¥¡¥¤¥ë¤È¤·¤ÆÊݸ
gsel 0, 1 : dialog "bmp", 17
if stat {
gsel 2 : bmpsave refstr
}
end
http://chokuto.ifdef.jp/advanced/capturescreen.html¤«¤é¤Î ¥½¡¼¥¹