前にウィンドウのタイトルバーのアイコンを取得するサンプルを
見た気がするのですが…
今探してみたところ見つかりませんでした;
でも、それを可能にするDLLならありました。
http://www5b.biglobe.ne.jp/~klaus/klaus_soft/DLLforHSP.html
こちらのサイトで配布されているKexWin201.lzhの中のKexWin.DLLを使います。
以下それを使ったサンプルです
#uselib "KexWin.DLL"
#func GetWinIco GetWinIco $02
#func DrawIco DrawIco $02
#include "user32.as"
hwnd_=0
sdim wtitle, 129
repeat
FindWindowExA 0 ,hwnd_, 0, 0
hwnd_=stat
if hwnd_=0 : break
GetWindowLongA hwnd_, -8
if stat!=0 : continue
GetWindowLongA hwnd_, -16
if (stat & 0x10CA0000)!=0x10CA0000 and (stat & 0x16080000)!=0x16080000 : continue
IsIconic hwnd_
if stat !=0 : continue
GetWindowText hwnd_, varptr(wtitle), 128
if wtitle="" :continue
GetWinIco hwnd_
pos 10,20+60*i : DrawIco
pos 10,60*i : mes wtitle
redraw
i++
loop
stop
僕の環境ではちゃんと表示されましたが
DLLの詳しい使い方はreadmeを読んでみるといいかもです。
ウィンドウ操作などに特化したDLLの様ですので
他にも今回のソフト作りに使える機能があるかもしれません。
お力になれたらいいですけど;