HSP-NEXTさん(
http://hspnext.com/hspkura/hspkura13.htm#contents13)にあったサンプル
を改造してそれっぽいものを作ってみました、手段としてはSYAMさん(NO.24380)の方法です。
多少見た目は違いますが目的は果たしていると思いますし
その気になれば見た目と機能がほぼ同じ物も作れます。
#uselib "user32.dll"
#define global obj_wmnclbtndown sendmsg hwnd,$00A1,2,0
bgscr 0,646,505,0
syscolor 5 : boxf :objsize 18,14:pos 624,6: button "×",*owari
font MSGOTHIC,18,1 ;英語版Windowsだと要変更?
gosub *titlebar
onclick gosub *move
x=10
*main
redraw 0
color 0:boxf 3,22,643,502
color 255 :pos x,240 :mes "●"
x++ :if x>620 :x=10
gosub *titlebar
redraw 1
wait 1
goto *main
*move
if mousey>21 :return
if wparam == 1 { obj_wmnclbtndown } : return
*owari
end
*titlebar
color 50,50,200 :boxf 3,3,643,20
color 255,255,255 :pos 20,4 :mes "Hot Soup Processor ver.3.1(偽) x="+x
return
調べればタイトルバーを直接書き換える方法もあるようですが
(非クライアント領域やWM_NCPAINT等で検索)
こっちの方がはるかに楽だと思います。
それでもやりたいというのなら、この辺りが参考になるでしょうか?
http://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+200512/05120002.txt