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 截取被遮挡的window画面

Delphi treeview �c 自动给标题上加图片

Delphi tscreen 类 - 通过 screen 更换光标

Delphi改变图片的像素,即大小

Delphi文件是否正在使用

Delphi spy++ 拖拽功能

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi validatename 过滤特殊字符

Delphi二分查找算法(预排序数组的查找)

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

转载请注明出处：木庄网络博客 » delphi 获取系统桌面大小