输入法相关，如何定位光标(caret)的屏幕坐标, 我的方法在word 中不行,为什么

[gold_future]

以下为我的代码:
function GetCaretScreenPos() : TPoint;
var
aHandle : THandle;
aThread : THandle;
aFocus : THandle;
aFocusRect : TRect;
aCaretPos : TPoint;
i : Integer;
aRes : LongBool;
begin
aHandle := GetForegroundWindow();
aThread:=GetWindowThreadProcessId(aHandle);
AttachThreadInput(GetCurrentThreadId,AThread,True);
SetActiveWindow(aHandle);
aFocus := GetFocus;
GetCaretPos(aCaretPos) then
windows.ClientToScreen(aFocus, aCaretPos);
AttachThreadInput(GetCurrentThreadId,AThread,False);

Result.X := aCaretPos.X;
Result.Y := aCaretPos.Y;
end;

在其它所有窗口(edit combobox, richedit)中都可以, 只有 Word 中不可用不知为什么,
我不想用VBA 来实现.

[naughtyboy]

gz
机子上没有装word
明天到公司看看

[konhon]

// 获得当前窗口上闪烁光标的屏幕坐标
// 两个win32 api函数（见于msdn）
// GetCaretPos 用于获得光标 相对于客户区的 坐标
// ClientToScreen 用于将客户区 坐标 转换为 屏幕坐标

var
CurPoint:TPoint;
begin
GetCaretPos(CurPoint);
label1.Caption :=inttostr(clienttoscreen(CurPoint).X)+':'+inttostr(clienttoscreen (CurPoint).Y);
end;