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读取android短信信息

Delphi 字符串保存utf-8过程

Delphi 关于构造方法的重写

Delphi zlib 流压缩解压

Delphi sendtextmessage 等方便的消息发送函数

Delphi 快速删除非空文件夹

Delphi settextbuf

Delphi midstr 返回指定范围内的字符串

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi 如何判断当前网卡是物理网卡

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



打赏

取消

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

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

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

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

评论

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