delphi 获取系统桌面大小


本文整理自网络,侵删。

 调用Windows API 函数 SystemParametersInfo 传送SPI_GETWORKAREA 参数和矩形结构的地址来接收坐标。

例子:

procedure TForm1.Button1Click(Sender: TObject);
var
hRect : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@hRect, 0);
ShowMessage(IntToStr(hRect.Top)
+ ' ' + IntToStr(hRect.Left)
+ ' ' + IntToStr(hRect.Bottom)
+ ' ' + IntToStr(hRect.Right));
end;

相关阅读 >>

Delphi绘制标题栏

Delphi application.processmessage作用

Delphi多线程程序示例

Delphi 结合正确的url

Delphi kbmmw安装

Delphi固定窗口大小

embarcadero开源项目赞助

Delphi字符串隐藏

Delphi中关于字符串的操作

Delphi中exit,abort,break,continue,halt,runerro 的区别

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...