[登录] [注册]

首页 > Windows程序 > 详细

Delphi中三种方法获取Windows任务栏的高度

时间：2016-06-16 01:31:13 阅读：332 评论：0 收藏：0 [点我收藏+]

标签：

第一种：需要引用Windows单元

[delphi] view plain copy

ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));

第二种：需要引用Windows单元

[delphi] view plain copy

function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Result:=Screen.Height-R.Bottom;
end;

第三种：要引用ShellAPI单元

[delphi] view plain copy

function GetTaskBarRect: Integer;
var
TBData: TAPPBARDATA;
begin
TBData.cbSize := SizeOf(TAPPBARDATA);
SHAppBarMessage(ABM_GETTASKBARPOS, TBData);
Result :=Screen.Height-TBData.rc.Top;
end;

http://blog.csdn.net/chaijunkun/article/details/5577285

Delphi中三种方法获取Windows任务栏的高度

标签：

原文地址：http://www.cnblogs.com/findumars/p/5589552.html

踩

(0)

赞

(0)

举报

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

更多

友情链接

兰亭集智国之画百度统计站长统计阿里云 chrome插件新版天听网

关于我们 - 联系我们 - 留言反馈

© 2014 mamicode.com 版权所有联系我们:gaon5@hotmail.com

迷上了代码！