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


本文整理自网络,侵删。

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

function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Result:=Screen.Height-R.Bottom;
end;
//注需要引用ShellAPI单元
function GetTaskBarRect: Integer;
var
TBData: TAPPBARDATA;
begin
TBData.cbSize := SizeOf(TAPPBARDATA);
SHAppBarMessage(ABM_GETTASKBARPOS, TBData);
Result :=Screen.Height-TBData.rc.Top;
end;
本文来自Delphi之窗,原文地址:http://www.52delphi.com

相关阅读 >>

Delphi xe2-firemonkey 新功能

Delphi 多次改变 richedit.text部份文本的颜色后,出现所有字体都变色的的解决办法

Delphi 下载函数

Delphi中获取客户区坐标

Delphi 制作放两个小图片的按钮

Delphi 获取unigui 控件id 及获取html值

Delphi 以bytes为单位获取文件大小

Delphi 安卓添加资源图片并读取

Delphi fmx jpg 保存数据库 从数据库读取

Delphi closehandle的解释

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



打赏

取消

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

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

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

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

评论

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