當遊標被另外一個執行緒掌握時，就無法用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;