取输入光标位置模块

.子程序 取输入光标位置, p_, , 取可编辑输入光标的位置点
.参数 控件句柄, 整数型, , 具有可编辑区域的控件句柄
.局部变量 p_, PGUITHREADINFO
.局部变量 ID, 整数型
.局部变量 p, p_, , , p.x,p.y

.判断开始 (控件句柄 ＝ -1)
ID ＝ GetCurrentThreadId ()
.默认
ID ＝ GetWindowThreadProcessId (控件句柄, 0)
.判断结束
p_.cbSize ＝ 48
GetGUIThreadInfo (ID, p_)
p.x ＝ p_.rcCaret.Left
p.y ＝ p_.rcCaret.Top
ClientToScreen (控件句柄, p)
返回 (p)