このサンプルは見ました？

(define set-window-title
(windows-procedure
(set-window-text (window hwnd) (text string))
bool user32.dll "SetWindowText"))

(set-window-title my-win "Hi")
=> #t
;; Changes window's title/text