本文整理自网络,侵删。
早上老师找我做的一个小程序,他的系统为一个主机,拖了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 getsys32path()得到系统system32路径
Delphi getprocessmemoryinfo获取进程占用内存大小
Delphi sysutils.trim、sysutils.trimleft、sysutils.trimright - 删除空格
Delphi issameday、istoday - 判断是不是同一天、判断是不是今天
更多相关阅读请进入《Delphi》频道 >>