獲取其他線程的光標句柄

　　當光標被另外一個線程掌握時，就無法用GetCursor()應用接口獲得光標句柄。本文闡述如何在任何線程掌握光標時都能夠獲取光標句柄。

　　=========================================================

　　{
　　　當光標被另外一個線程掌握時，就無法用GetCursor()應用接口獲得光標句柄。
　　　本文闡述如何在任何線程掌握光標時都能夠獲取光標句柄。
　　　例如，想在屏幕截取程序中放置光標時該如何做。
　　}

　　function GetCursorHandle: HCURSOR;
　　var
　　  hWindow: HWND;
　　  pt: TPoint;
　　  pIconInfo: TIconInfo;
　　  dwThreadID, dwCurrentThreadID: DWord;
　　begin
　　  // 檢查哪個窗體掌握光標
　　  GetCursorPos(pt);
　　  hWindow := WindowFromPoint(pt);

　　  // 獲得光標所有者的線程ID
　　  dwThreadID := GetWindowThreadProcessId(hWindow, nil);

　　  // 獲得當前線程的ID
　　  dwCurrentThreadID := GetCurrentThreadId;

　　  // 如果光標所有者的線程不是當前線程，就要把光標所有者的線程配屬到當前線程。
　　  //然後調用GetCursor()來獲得正確的光標句柄(hCursor)。

　　  if (dwCurrentThreadID <> dwThreadID) then
　　  begin
　　    if AttachThreadInput(dwCurrentThreadID, dwThreadID, True) then
　　    begin
　　      // 獲得光標句柄
　　      Result := GetCursor;
　　      AttachThreadInput(dwCurrentThreadID, dwThreadID, False);
　　    end;
　　  end else
　　  begin
　　    Result := GetCursor;
　　  end;
　　end;

　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　  CurPosX, CurPoxY: Integer;
　　  MyCursor: TIcon;
　　  pIconInfo: TIconInfo;
　　begin
　　  MyCursor := TIcon.Create;
　　  try
　　    MyCursor.Handle := GetCursorHandle;
　　    // 獲得光標位置
　　    GetIconInfo(MyCursor.Handle, pIconInfo);
　　    CurPosX := pIconInfo.xHotspot;
　　    CurPoxY := pIconInfo.yHotspot;
　　    // 在窗體上畫出光標
　　    Canvas.Draw(CurPoxY, CurPoxY, MyCursor);
　　  finally

　　當光標被另外一個線程掌握時，就無法用GetCursor()應用接口獲得光標句柄。本文闡述如何在任何線程掌握光標時都能夠獲取光標句柄。

　　=========================================================

　　{
　　　當光標被另外一個線程掌握時，就無法用GetCursor()應用接口獲得光標句柄。
　　　本文闡述如何在任何線程掌握光標時都能夠獲取光標句柄。
　　　例如，想在屏幕截取程序中放置光標時該如何做。
　　}

　　function GetCursorHandle: HCURSOR;
　　var
　　  hWindow: HWND;
　　  pt: TPoint;
　　  pIconInfo: TIconInfo;
　　  dwThreadID, dwCurrentThreadID: DWord;
　　begin
　　  // 檢查哪個窗體掌握光標
　　  GetCursorPos(pt);
　　  hWindow := WindowFromPoint(pt);

　　  // 獲得光標所有者的線程ID
　　  dwThreadID := GetWindowThreadProcessId(hWindow, nil);

　　  // 獲得當前線程的ID
　　  dwCurrentThreadID := GetCurrentThreadId;

　　  // 如果光標所有者的線程不是當前線程，就要把光標所有者的線程配屬到當前線程。
　　  //然後調用GetCursor()來獲得正確的光標句柄(hCursor)。

　　  if (dwCurrentThreadID <> dwThreadID) then
　　  begin
　　    if AttachThreadInput(dwCurrentThreadID, dwThreadID, True) then
　　    begin
　　      // 獲得光標句柄
　　      Result := GetCursor;
　　      AttachThreadInput(dwCurrentThreadID, dwThreadID, False);
　　    end;
　　  end else
　　  begin
　　    Result := GetCursor;
　　  end;
　　end;

　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　  CurPosX, CurPoxY: Integer;
　　  MyCursor: TIcon;
　　  pIconInfo: TIconInfo;
　　begin
　　  MyCursor := TIcon.Create;
　　  try
　　    MyCursor.Handle := GetCursorHandle;
　　    // 獲得光標位置
　　    GetIconInfo(MyCursor.Handle, pIconInfo);
　　    CurPosX := pIconInfo.xHotspot;
　　    CurPoxY := pIconInfo.yHotspot;
　　    // 在窗體上畫出光標
　　    Canvas.Draw(CurPoxY, CurPoxY, MyCursor);
　　  finally
　　    MyCursor.ReleaseHandle;
　　    MyCursor.Free;
　　  end;
　　end;

　　// 另外一種解決辦法：

　　procedure TForm1.Timer1Timer(Sender: TObject);
　　var
　　  CI: TCursorInfo;
　　begin
　　  CI.cbSize := SizeOf(CI);
　　  GetCursorInfo(CI);
　　  Image1.Picture.Icon.Handle := CI.hCursor;
　　end;
　　
　　    MyCursor.ReleaseHandle;
　　    MyCursor.Free;
　　  end;
　　end;

　　// 另外一種解決辦法：

　　procedure TForm1.Timer1Timer(Sender: TObject);
　　var
　　  CI: TCursorInfo;
　　begin
　　  CI.cbSize := SizeOf(CI);
　　  GetCursorInfo(CI);
　　  Image1.Picture.Icon.Handle := CI.hCursor;
　　end;