Узнать цвет точки на экране

← →
DimN (2005-05-26 16:29) [0]

Помогите пожалуйста!!!
Мне нужно длительный промежуток времени сканировать определённую точку на экране и в соответствии с её цветом действовать дальше.
Я использую вот такой код, для определения цвета:

function DesktopColor(const X, Y: Integer): TColor;
var
c: TCanvas;
begin
c := TCanvas.Create;
try
c.Handle := GetWindowDC(GetDesktopWindow);
Result := GetPixel(c.Handle, X, Y);
finally
c.Free;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If (ColorToRGB(DesktopColor(20, 400)) = 255) or
(ColorToRGB(DesktopColor(20, 400)) = 32768) then
Form1.Caption:=IntToStr(StrToInt(Form1.Caption)+1)
end;

Программа работает несколько минут, а потом выдаёт ошибку: "Project xxxxx.exe raised exception class EInvalidOperation with message "Canvas does not allow drawing". Process stopped. Use Step or Run to continue."

Подскажите, каким образом можно эту ошибку исправить?
Или другой способ, чтобы узнать цвет точки на экране?

← →
alpet © (2005-05-26 16:32) [1]

Перед c.Free, поставь ReleaseDC (GetDesktopWindow, c.handle);

← →
DimN (2005-05-26 16:40) [2]

Спасибо большое!!! Помогло!

Я бы сделал так:
var DesktopColorDC:hdc=0; function DesktopColor(const X, Y: Integer; Release:boolean=false): TColor; begin if DesktopColorDC = 0 then DesktopColorDC := getdc(0); result := GetPixel(DesktopColorDC, X, Y); if Release then ReleaseDC(0, DesktopColorDC); end;

После того как функция DesktopColor уже не нужна выполнить
DesktopColor(0, 0, true); а в остальном использовать ее также как и использовал...

Узнать цвет точки на экране Найти похожие ветки