DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: laidabin
今日帖子: 1
在线用户: 5
导航: 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream  
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/1/1 18:49:33
标题:
如何得到 WINDDOWS 任务栏的 高度和宽度?? 浏览:4932
加入我的收藏
楼主: --
此帖子包含附件:
JPEG 图像
大小:9.8K
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/1/1 18:51:49
1楼: 我试试先
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/1/1 18:54:50
2楼: 谢谢大哥!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/1/1 18:55:42
2楼: var
  Wnd: HWND;
  R: TRect;
const S = '任务栏高: %d' +#13#10 + '任务栏宽: %d';
begin
  Wnd := FindWindow('Shell_TrayWnd', nil);
  if Wnd = 0 then raise Exception.Create('找不到任务栏');
  if not IsWindowVisible(Wnd) then raise Exception.Create('任务栏被隐藏了');
  GetWindowRect(Wnd, R);
  ShowMessage(Format(S, [R.Bottom - R.Top, R.Right - R.Left]));
end;

----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/1/1 18:59:23
3楼: 大哥你脑筋太 灵活了 佩服啊!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/1/1 19:01:30
3楼: 如图
此帖子包含附件:
JPEG 图像
大小:4.3K
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/1/1 19:04:01
4楼: 非常感谢啊!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/1/1 19:11:23
5楼: 按此在新窗口浏览图片
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 liumazi (刘麻子) ★☆☆☆☆ -
大善人会员
2004/9/20 18:21:24
6楼: 厉害
----------------------------------------------
好好学习,天天上网。
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/9/20 21:31:41
7楼: ...1月1号的帖子怎么都翻出来了
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 liumazi (刘麻子) ★☆☆☆☆ -
大善人会员
2004/11/25 22:21:28
8楼: 呵呵,是俺翻的.
----------------------------------------------
好好学习,天天上网。
作者:
女 likediy520 (likediy520) ▲▲▲▲▲ -
禁用账号
2011/8/24 16:42:43
10楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行460.9375毫秒 RSS