Musis zjistit adresu canvasu obrazovky

var
  DeskTopDC: HDC;
  DeskTopCanvas: TCanvas;
begin
  DeskTopDC := GetWindowDC(GetDesktopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;
  { zde si z canvasu sejmes barvu z nejakeho bodu 
    Ja jsem to resil napr. minmalizaci vlastni aplikace, kopii obrazvky do Image, 
    ktery jsem zobrazil pres celou obrazovku a sejmutim bodu  }
  ReleaseDC(GetDesktopWindow, DeskTopDC);
  DeskTopCanvas.Free;
end;