スマソ、あんま深く考えないでﾀﾝ付けてしまった

>>23
ネタスレにしないためにモジュール提供

;----------------------------------------------------------------
#module

;chgicon 文字列変数,p1
;
;文字列変数 アイコンを含むファイルのパス
;p1 アイコンの番号

#deffunc chgicon val,int

mref name,24
mref no,1
mref stt,64
mref bmscr,67

prm=bmscr.14
getptr prm.1,name
prm.2=no
dllproc "ExtractIconA",prm,3,D_SHELL@
if dllret@=0:stt=-1:return
hIco=dllret@
prm=bmscr.13,-14,hIco
dllproc "SetClassLongA",prm,3,D_USER@
dllproc "DrawMenuBar",bmscr.13,1,D_USER@

return

#global
;----------------------------------------------------------------