自分で作ったＨＳＰのソースを公開するスレ

一番重要なところがぬけてた…
ll_libload USER, "user32.dll"
ll_getproc pfunc, "WindowFromPoint", USER
ll_getproc SetTitle, "SetWindowTextA", USER
ll_getproc GetParent, "GetParent", USER
htitle = "HSP"
ll_getptr htitle
ll_ret p_title
screen 0, 150, 20, 4
*main
stick key
if key & 256 : goto *set_title
wait 5
goto *main
*set_title
ginfo 0
prm = prmx, prmy
ll_callfunc prm, 2, pfunc
ll_ret hwnd
repeat
prm = hwnd
ll_callfunc prm, 1, GetParent
ll_ret dammy
if dammy == 0 : break
hwnd = dammy
loop
prm = hwnd, p_title
ll_callfunc prm, 2, SetTitle
wait 5
goto *main