Получение цвета любого пикселя на экране

[Diamond]

Народ, подскажите, как можно получить цвет пискселя, на котором находится курсор. Если за пределами окна программы этого сделать нельзя, то скажите хотя бы, как это осуществить в пределах этого окна. Заранее благодарен.

[Kostyan]

Вот код:

Код: Выделить всё

Private Sub Form_Load()
DeskDC = GetWindowDC(GetDesktopWindow)
End Sub

Private Sub Timer1_Timer()
Call GetCursorPos(Pt)
Clr = GetPixel(DeskDC, Pt.X, Pt.Y)
Me.BackColor = Clr
End Sub


Поставь у таймера интервал поменьше.

Это в модуль:

Код: Выделить всё

Type pointapi
        X As Long
        Y As Long
End Type

Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Public Pt As pointapi, DeskDC As Long, Clr As Long