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如何获取系统服务(即service服务程序)列表

Delphi 权限控制(Delphi tactionlist方案)

Delphi 如何将memo或richedit保存为utf 8文本文件？

Delphi fmx用timage显示不同格式的图片

Delphi 在datasnap中使用firedac

Delphi api读写ini文件

Delphi xe可执行文件上启用dep和aslr

Delphi 判断字符串是否包含汉字，正则版和非正则版

进程防杀Delphi版(dll部分)

Delphi 获取文件创建时间

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

转载请注明出处：木庄网络博客 » Delphi中三种方法获取Windows任务栏的高度