var
TrayWnd: HWnd; //任务栏句柄
Rec : TRect;
begin
TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TrayWnd, Rec); //获取任务栏尺寸
Showmessage('任务栏的高度是:' + IntToStr(Rec.Bottom - Rec.Top));
end;
delphi 获取任务栏高度
最新推荐文章于 2015-10-22 21:14:00 发布