本文整理自网络,侵删。
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的tservice的windows�入桌面切�q
Delphi winapi: getactivewindow - 获取当前活动窗口的句柄
Delphi winapi: getclassname - 获取指定窗口的类名
键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例
更多相关阅读请进入《Delphi》频道 >>