用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧Delphi

获取桌面的尺寸

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:06:04
调用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;

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

相关文章

PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:19,578.13000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号