Changer le titre d'une page

Voici un API qui change le titre de la page.
C'est toujours utile pour des éditeurs ou autre .

Code:: nomainwin
textbox #1.txt, 1,1,100,25
button #1, "Change Titlebar", [change],ul,1,30,100,25
open "Test" for Window as #1
print #1, "trapclose [q]"
hd = hwnd(#1)
wait
[q]
close #1
end
[change]
print #1.txt, "!contents? txt$"
calldll #user32, "SetWindowTextA", _
hd as long, _
txt$ as ptr, _
result as long
wait

hd, c'est le handle de la fenêtre ou de l'objet de la fenêtre. ex: hd = hwnd( #1) ou hwnd(#1.button1)
txt$, c'est le nouveau texte.