/*ご参考*/
#include "user32.as"
#include "gdi32.as"
#include "winmm.as"
wait 30
ss = dir_tv+"hsptv.bmp"
exist ss :ii = strsize :sdim dd,ii
;picload
timeGetTime :tt = stat
picload ss,1
timeGetTime :dialog (stat-tt)
;memfile(picload自体が重い)
timeGetTime :tt = stat
bload ss,dd
memfile dd
picload "mem:.bmp",1
timeGetTime :dialog (stat-tt)
;api
timeGetTime :tt = stat
LoadImageA hinstance,ss, 0,0,0,16 :hh = stat
GetObjectA hh,0,0 :rr(0) = stat : dim nn,rr(0)/4
GetObjectA hh,rr(0),varptr(nn)
CreateCompatibleDC hdc :rr(1) = stat
SelectObject rr(1),hh
BitBlt hdc,0,0,nn(1),nn(2),rr(1),0,0,$CC0020
DeleteDC rr(1)
DeleteObject hh
InvalidateRect hwnd,0,1
timeGetTime :dialog (stat-tt)