LoadImageでOEMのアイコンを読み込み、DrawIconExで表示できるようです。
モジュールにしてみました。
#include "user32.as"
#module
#const OIC_SAMPLE 32512
#const IMAGE_ICON 1
#const LR_SHARED 32768
#const DI_NORMAL 3
#deffunc oemicon_init
//最初にこれを実行する
dim icon_h,6
repeat 5
LoadImage 0,OIC_SAMPLE+cnt,IMAGE_ICON,0,0,LR_SHARED
icon_h(cnt)=stat
loop
return
#define global oemicon(%1=0,%2=32,%3=32,%4=0) _oemicon %1,%2,%3,%4
//oemicon p1,p2,p3,p4
//p1 … アイコンの種類(0〜4)
// 0:アイコン未設定の実行ファイル
// 1:「×」マーク
// 2:「?」マーク
// 3:「!」マーク
// 4:「i」マーク
//p2 … 横幅
//p3 … 縦幅
//p4 … 0以外を指定した場合は画面の更新を行う
#deffunc _oemicon int oi_t,int oi_w,int oi_h,int oi_r
if (oi_t<0)|(oi_t>4) : return
DrawIconEx hdc,ginfo_cx,ginfo_cy,icon_h(oi_t),oi_w,oi_h,0,0,DI_NORMAL
if oi_r : redraw 1
return
#global
//以下サンプル
oemicon_init
repeat 5
pos 32*cnt,0
oemicon cnt,32,32,(cnt=4)
loop