Определение цвета

[aharem08]

Люди, подскажите пожалуйста, как можно реализовать через делфи такую задачу - мне нужно определить цвет в определенной точке на мониторе.
То есть исходные данные ну допостим точка 1,1 , и нужно узнать какой цвет имеет 1,1 пиксель на данный момент. Ничего в полноэкранном режиме нет - просто рабочий стол и некая программа в оконном режиме.
(Выходные данные могут быть в абсолютно любом формате, по сути мне нужно так сказать оповещение о изменении цвета, для этого будет достаточно сравнить первоначальный цвет с текущим и при выявлении его изменения уже сообщить об этом)

[ych_del]

function GetPixel(X, Y: Integer): TColor;
var DC: HDC;
    C: TCanvas;
begin
   DC := GetDC(GetDesktopWindow);

   C := TCanvas.Create;
   C.Handle := DC;
   Result := C.Pixels[X,Y];

   FreeAndNil(C);
end;