经验分享：为实现类似QQ新闻小窗口的效果而获取任务栏高度。该怎么处理

经验分享：为实现类似QQ新闻小窗口的效果而获取任务栏高度。
我想在色球中制作类似QQ新闻消息提示窗口，在屏幕右下方升起的效果。代码如下。
～～～～～声明外部函数：
Function ulong SystemParametersInfoA(uLong uAction,uLong uParam, Ref structure lpvParam, uLong fuWinIni) Library "user32" //设置和取得windows系统参数
～～～～～还有定义一个结构体：
global type struct_screerect from structure
long left
long right
long top
long bottom
end type
～～～～～在小窗口的Open事件中：
environment env
integer rtn

rtn = GetEnvironment(env)

IF rtn <> 1 THEN RETURN

struct_ScreeRect strc_rect //屏幕方框结构体

ulong ll_Res
any la_temp
long ll_left,ll_right
ll_res = SystemParametersInfoA(48,0,strc_rect,0) //获取屏幕四个坐标

//根据环境变量提供的数量定位窗口
this.x = PixelsToUnits(env.ScreenWidth,XPixelsToUnits!) - this.width
this.y = PixelsToUnits(env.ScreenHeight,YPixelsToUnits!) - this.height - PixelsToUnits(env.screenheight - strc_rect.bottom,YPixelsToUnits!)//最后减去任务栏高度

～～～～～谢谢大家，www.colorlinez.cn

效果如下图：


------解决方案--------------------
不错，支持下。沙发吗
------解决方案--------------------
pb11你只用在window的属性上选一下就可以了，向powerpoint那样……
------解决方案--------------------
发现楼主开了两个QQ，一个阿里旺旺，有个网卡出了故障。>_<
------解决方案--------------------
leio好眼力啊
------解决方案--------------------
一边说哀悼，一边还在玩。
------解决方案--------------------
PB11有打开动作的选择
------解决方案--------------------
哦
PB11有这么强吗？？

有空安装一下啦