引言: 請問先進： 我有一支程式，是沒有輸入焦點的元件(就是不能打字)且Topmost。 這支程式，要監測所在ActiveWindow的游標位置。 如，NotePad是Active時，可以抓到NotePad的游標位置。 Word是Active時，可以抓到NotePad的游標位置。 Outlook是Active時，可以抓到NotePad的游標位置。 我試過：BOOL GetCaretPos(LPPOINT lpPoint); 可惜的是，這API只能抓目前Process的游標，不能抓其他Process的游標。 請問，該如何解？ 謝謝。

  h:=FindWindow('NotePad',nil);
  GetCursorPos(p);
  window.ScreenToClient(h,p);
  //游標位置在 NotePad的p.x & p.y位置

procedure TForm1.Timer1Timer(Sender: TObject);
var TheText : PChar;
    P : TPoint;
begin
   GetMem(TheText, GetWindowTextLength(GetActiveWindow));
   GetWindowText(GetActiveWindow, TheText, GetWindowTextLength(GetActiveWindow) 1);
   GetCursorPos(p);
   Windows.ScreenToClient(GetActiveWindow,p);
   Memo1.Lines.Add(String(TheText) ' ' IntToStr(p.x) '  ' IntToStr(p.y));
   FreeMem(TheText);
end;

function GetCaretPosition(var APoint: TPoint): Boolean;
var w: HWND;
  aID, mID: DWORD;
begin
  Result:= False;
  w:= GetForegroundWindow;
  if w <> 0 then
  begin
    aID:= GetWindowThreadProcessId(w, nil); 
    mID:= GetCurrentThreadid;
    if aID <> mID then 
    begin
      if AttachThreadInput(mID, aID, True) then 
      begin
        w:= GetFocus; 
        if w <> 0 then
        begin 
          Result:= GetCaretPos(APoint);
          Windows.ClientToScreen(w, APoint); 
        end;
        AttachThreadInput(mID, aID, False); 
      end;
    end;
  end;
end;    procedure TForm1.Timer1Timer(Sender: TObject);
var
  NotePad:HWND;
  Pt: TPoint;
begin
  NotePad:=FindWindow('NotePad', nil);
 if NotePad<>0 then
  if GetCaretPosition(Pt) then
  begin
    Label1.Caption :=(Format('Caret 位置： %d %d', [Pt.x, Pt.y]));
    //SetCursorPos(Pt.X, Pt.Y);
  end;
end;