Функция GetScreenPixel возвращает цвет пикселя на экране с координатами x и y. При помощи этой функции можно сделать, например, программу для определения цвета под курсором мыши или программу для подбора цвета.
function GetScreenPixel(x, y: integer): TColor;
var
dc: hdc;
begin
dc := GetDC(0);
result := GetPixel(dc, x, y);
ReleaseDC(0, dc);
end;
После начала кризиса продажа натяжных потолков стала не очень выгодным делом.