适时监控多屏幕的软件

最新推荐文章于 2020-12-21 22:02:54 发布

lgwias

最新推荐文章于 2020-12-21 22:02:54 发布

阅读量1.2k

点赞数

文章标签： div

http://lifengxi.blog.163.com/blog/static/1034884820085252052948/
早上老师找我做的一个小程序，他的系统为一个主机，拖了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;

最后完成后发现显示的效果不佳，个人认为是因为缩放后的缘故（缩放比大），时间仓促，就写了一个点击某个屏幕，打开一个窗体，显示比较大的该屏幕的图（缩放比小），效果还可以。