var DC: HDC; Color: Cardinal; begin DC := CreateDC('MONITOR', nil, nil, nil); Color := GetPixel(DC, 300, 300); DeleteDC(DC); end;
DC: HDC; Color: Cardinal; begin
DC := CreateDC('MONITOR', nil
, nil
); Color := GetPixel(DC, 300, 300); DeleteDC(DC); end
;