function GetWinTrayWnd: Integer; // 获取windows任务栏高度
var
TrayWnd: HWnd; //任务栏句柄
Rec : TRect;
begin
TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TrayWnd, Rec); //获取任务栏尺寸
result := Rec.Bottom - Rec.Top;
end;
function GetWinTrayWnd: Integer; // 获取windows任务栏高度
var
TrayWnd: HWnd; //任务栏句柄
Rec : TRect;
begin
TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TrayWnd, Rec); //获取任务栏尺寸
result := Rec.Bottom - Rec.Top;
end;
《delphi 获取windows任务栏的高度.doc》
下载本文的Word格式文档，以方便收藏与打印。
