>>992
こんな感じ？

#include "gdi32.as"

screen 0, 150, 50
screen 2, ginfo_dispx, ginfo_dispy, 0,,, 600, 400
mref bmscr, 67 ; ウィンドウID2のBMSCR構造体を取得
gsel 0, -1 ; いったん消しておく
gsel 2, -1
wait 50

temp = "DISPLAY"
CreateDC varptr(temp), 0, 0, 0
hdcDesktop = stat ; デスクトップのデバイスコンテキスト

BitBlt hdc, 0, 0, ginfo_dispx, ginfo_dispy, hdcDesktop, 0, 0, $CC0020

DeleteDC hdcDesktop

gsel 2, 1 ; 再び表示
gsel 0, 1

dialog "bmp", 17
if stat {
gsel 2
bmpsave refstr ; ビットマップ保存
}
stop