解决win10下屏幕截屏出现坐标定位不准的怪现象

如题：

一直使用Delphi7版本，近期做一个截屏程序，网上拷贝了一段代码，测试时出现了截屏匪夷所思的结果-偏移很厉害。

期间费尽周折各种查找，软件：D版本，win版本，64位等，硬件：键、鼠，显卡，等等。。。

为免同样遭遇的朋友再次困惑，现在直接给出答案，其实很简单。

问题所在：win10的显示设置，缩放与布局，看看是否 为100%，如非，调整为100%即可！

代码附后

procedure TForm1.snapscreen(a,b,c,d:Integer);
var
bmpscreen:Tbitmap;
jpegscreen:Tjpegimage;
FullscreenCanvas:TCanvas;
dc:HDC;
sourceRect, destRect: TRect;
begin
try
dc:=getdc(0);
fullscreencanvas:=Tcanvas.Create;
fullscreencanvas.Handle:=dc;
bmpscreen:=Tbitmap.create;
bmpscreen.Width :=c-a;
bmpscreen.Height :=d-b;
sourcerect:=rect(0,0,c-a ,d-b );
destrect:= rect(a,b,c,d);
bmpscreen.Canvas.CopyRect(sourcerect,fullscreenCanvas,destrect);
jpegscreen:=Tjpegimage.Create ;
jpegscreen.Assign (bmpscreen);
jpegscreen.CompressionQuality:=100;
jpegscreen.SaveToFile(ExtractFilePath(ParamStr(0))+'tmp.jpg');
FullscreenCanvas.Free;
bmpscreen.Free;
jpegscreen.Free ;
ReleaseDC(0, DC);
except
end;
end;