【HSP3】リソース読み取りサンプル | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#include "kernel32.as"
#include "user32.as"
#include "gdi32.as"
#define RT_BITMAP 2
    LoadLibrary "ieframe.dll"
    hModule = stat
    LoadImage hModule, 625, 0, 0, 0, 0
    hBitmap = stat
    // 画像サイズ取得
    dim BITMAP, 6
    GetObject hBitmap, 24, varptr(BITMAP)
    x = BITMAP(1)
    y = BITMAP(2)
    CreateCompatibleDC hdc
    hCompatDC = stat
    
    SelectObject hCompatDC, hBitmap
    hPrevBitmap = stat
    
    BitBlt hdc, 0, 0, x, y, hCompatDC, 0, 0, 0xCC0020
    redraw 1
    // 破棄
    SelectObject hCompatDC, hPrevBitmap
    DeleteObject hBitmap
    DeleteDC hCompatDC
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX