如何能知道win2000任务栏的大小尺寸?

jnxnasa 2001-07-30 06:57:13
如题,谢了先。
...全文
48 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ExitWindows 2001-07-31
  • 打赏
  • 举报
回复
up
Nicky_he 2001-07-30
  • 打赏
  • 举报
回复
function FindTaskBar(var ARect: TRect): Integer;
var
AppData: TAppBarData;
begin
// 'Shell_TrayWnd' is the name of the task bar's window
AppData.Hwnd := FindWindow('Shell_TrayWnd', nil);
if AppData.Hwnd = 0 then
RaiseLastWin32Error;
AppData.cbSize := SizeOf(TAppBarData);
// SHAppBarMessage will return False (0) when an error
// happens.
if SHAppBarMessage(ABM_GETTASKBARPOS, AppData) = 0 then
raise Exception.Create('SHAppBarMessage returned false when trying ' +
'to find the Task Bar''s position');
// Otherwise, we had success, so fill in the results.
Result := AppData.uEdge;
ARect := AppData.rc;
end;
xiaotian2000 2001-07-30
  • 打赏
  • 举报
回复
呵呵,怎么你什么都想知道,盖茨的内裤是什么颜色的,你知道吗?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧