Цвет пиксела под курсором

[Ёж]

Помогите, плз. Не могу получить цвет пиксела по координате курсора.
Важно: курсор может быть не над формой программы, а где угодно на экране (над другими программами).
Координаты курсора получил, а дальше...
Подозреваю, что это делается через API, но как
Потуги типа:
Label1.Caption=Point(x,y)
ни к чему не приводят.

[GSerg]

Если окно перектыто другими, то в перекрытой области цвета нет. Что правильно, в общем.
Вариант - хранить собственную копию картинки на форме и получать цвет с неё.
Или поставить autoredraw=true, но результат скорее всего будет не совсем тот, что ты ожидаешь.

А координаты курсора, ScreenToClient сначала, и потом ScaleX/ScaleY в текущую систему координат формы.

[NIC]

Помогите, плз. Не могу получить цвет пиксела по координате курсора.
Важно: курсор может быть не над формой программы, а где угодно на экране (над другими программами).
Координаты курсора получил, а дальше...
Подозреваю, что это делается через API, но как
Потуги типа:
Label1.Caption=Point(x,y)
ни к чему не приводят.

Это было уже...
А цвет пикселя можно получить при API

GetPixel(GetDC(0), X, Y)

Насчёт курсора тоже только API

GetCursorPos

[Ёж]

А было это где? Ссылку дашь? На данном форуме я не нашёл.

Насчёт курсора тоже только API
GetCursorPos

Это я уже знаю, а вот на счёт:

GetPixel(GetDC(0), X, Y)

как её объявить (синтаксис), я так и этак пробовал, но видимо что-то не так делаю.
А как быть с параметрами (ByVal hDC As Long) рекомендованными в API Viewer'е. Я такой переменной (или константы) не знаю, как её пользовать тоже.

[Viper]

Объявление должно быть таким:

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

Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long



Вызывается так:

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

Dim clr As Long
clr = GetPixel(GetDC(0), X, Y)

получаем цвет пикскля с координатами X, Y.

Насчет hDC, hDC - это описатель контекста устройства, при помощи GetDC(0) получаем описатель контекста устройства всего экрана.

[Ёж]

!Viper!, ты - !Super!

Нет, ну конечно же всем огромное спасибо