Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

Определение цвета в любой части экрана мышкой   Найти похожие ветки 

← →
~Sergius   (2002-01-31 04:26) [3]


var col: TColor;
Cnv: TCanvas;
dc: hDC;
pt: TPoint;
begin
try
Cnv := TCanvas.Create;
dc := GetWindowDC (0);
GetCursorPos (pt);
With pt do
Col := Cnv.Pixels[x,y];
finally
ReleaseDC (0,dc);
Cnv.Free;
end;
end;


По такому принципу, короче.
Все это дело повесь, например, на таймер.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c