delphi操作多显示器


本文整理自网络,侵删。

 早上老师找我做的一个小程序,他的系统为一个主机,拖了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生成的webservice appdebug的程序,编译时出错

Delphi 中判断windows系统是否是64位系统

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi中建议使用的语句

Delphi中操作powerpoint幻灯片的示例代码

Delphi tdictionary 简单用法

Delphi 日期相关总结20190702完结篇

Delphi 获取所有磁盘分区另类方法

Delphi 逐个分解后字符串加载到stringgrid1

Delphi中显示gif动画

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...