本文整理自网络，侵删。
早上老师找我做的一个小程序，他的系统为一个主机，拖了6台显示器，为了显示程序（在一个屏幕上用录像专家）需要做一个适时监控多屏幕的软件，和远程控制的不一样，那个是多这个主机。找了找相关资料，提到这个的不是太多。研究了下。发现很简单，代码如下：
myScreen:=tscreen.Create(self);
myrect:=myscreen.DesktopRect;
DC := GetDC (0); // get screen dc
FullscreenCanvas := TCanvas.Create; //create screen canvas
FullscreenCanvas.Handle := DC;
for i:=1 to 6 do
begin
//num:=myscreen.MonitorCount; //得到屏幕个数。
myMonitor:=myScreen.Monitors[i-1]; //第i个屏幕
myRect:=myMonitor.BoundsRect; //获取屏幕的矩形区域
bmp[i].Canvas.CopyRect(Rect(0,0,1024 div 3,768 div 3 ),fullscreenCanvas,myRect);
img[i].Picture.bitmap:=bmp[i];
end;
最后完成后发现显示的效果不佳，个人认为是因为缩放后的缘故（缩放比大），时间仓促，就写了一个点击某个屏幕，打开一个窗体，显示比较大的该屏幕的图（缩放比小），效果还可以。
相关阅读 >>
Delphi indy 10tidftp中的directorylisting使用
Delphi 实现卸载windows应用程序（类似360软件管家-卸载程序）
Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别
更多相关阅读请进入《Delphi》频道 >>
