*!* 作者:dkfdtf(方法一)、十豆三(方法二、方法三)
*!* 日期:2011-11-11
*!* vfp版本:vfp9.0(SP2 7423)
*!* 操作系统:Windows XP(SP3)、Windows 7 32位(SP1)
*-- 方法一:by dkfdtf
*!* 取任务栏尺寸和位置可以直接用 SHAppBarMessage 函数来查询,
*!* 将消息参数 dwMessage 设为 ABM_GETTASKBARPOS,
*!* 返回时 pData 结构中 uEdge 成员就指示了任务栏的位置,
*!* rc 成员就是大小,具体用法请参见 MSDN。
*!* Windows 的任务栏还有自动隐藏,保持在其他窗口前面等特性,这些都需要用这个 api 来设置或查询。
#DefineABM_GETTASKBARPOS 0x00000005
Declare Long SHAppBarMessageIn shell32Long,String @
cc = Replicate(Chr(0), 32)
cc = BinToC(4+Len(cc), 'rs') + cc
SHAppBarMessage(ABM_GETTASKBARPOS, @ cc)
nPos = CToBin(Substr(cc,13+0,4), 'rs')
nLeft = CToBin(Substr(cc,13+4,4), 'rs')
nTop = CToBin(Substr(cc,13+8,4), 'rs')
nRight = CToBin(Substr(cc,13+12,4), 'rs')
nBottom = CToBin(Substr(cc,13+16,4), 'rs')
Text To ccTextmerge NoShow
位置: <<ICase(0=nPos,'左', 1=nPos,'顶', 2=nPos,'右', 3=nPos,'下', '浮动')>> (<<nLeft>>, <<nTop>>, <<nRight>>, <<nBottom>>)<<Space(3)>>
尺寸: <<nRight - nLeft>>, <<nBottom - nTop>>
Endtext
Messagebox(cc,64,'信息提示')
*!* 方法一的代码最好,大家学习及收藏这段代码吧。
*!* 下面2个方法可以用来学习取其他窗体的尺寸及坐标,对于任务栏,还是用推荐方法一。
*-- 方法二:先取得工作区尺寸,然后比较屏幕和工作区尺寸及坐标算出任务栏尺寸和位置。
*-- 工作区:是指屏幕上不被系统任务栏或应用程序桌面工具遮盖的部分。
Declare Integer SystemParametersInfoIn user32Integer uiAction,IntegeruiParam,String@pvParam,IntegerfWinIni
#Define SPI_GETWORKAREA 48
lcpvParam=Replicate(Chr(0),16)
If SystemParametersInfo(SPI_GETWORKAREA,0,@lcpvParam,0)#0 && 获取工作区尺寸
lnLeftUpX=CToBin(Substr(lcpvParam,1,4),'4rs') && 工作区左上角 X 坐标
lnLeftUpY=CToBin(Substr(lcpvParam,5,4),'4rs') && 工作区左上角 Y 坐标
lnRightDownX=CToBin(Substr(lcpvParam,9,4),'4rs') && 工作区右下角 X 坐标
lnRightDownY=CToBin(Substr(lcpvParam,13,4),'4rs') && 工作区右下角 Y 坐标
If Sysmetric(1)=lnRightDownX-lnLeftUpX && 判断任务栏位置是 上 或 下(屏幕宽度=工作区宽度 说明任务栏位置是 上 或 下)
lnTrayWidth=Sysmetric(1) && 任务栏宽度=屏幕宽度
lnTrayHeight=Sysmetric(2)-(lnRightDownY-lnLeftUpY)&& 任务栏高度=屏幕高度-工作区高度
If lnLeftUpY=0 && 如果工作区左上角 Y 坐标为0,说明任务栏位置为 下,否则为 上
lcTrayOrientation='下'
Else
lcTrayOrientation='上'
Endif
Else && 任务栏位置是 左 或 右
lnTrayWidth=Sysmetric(1)-(lnRightDownX-lnLeftUpX) && 任务栏宽度=屏幕宽度-工作区宽度
lnTrayHeight=Sysmetric(2) && 任务栏高度=屏幕高度
If lnLeftUpX=0 && 如果工作区左上角 X 坐标为0,说明任务栏位置为 右,否则为 左
lcTrayOrientation='右'
Else
lcTrayOrientation='左'
Endif
Endif
Messagebox('任务栏尺寸:'+Transform(lnTrayWidth)+'×'+Transform(lnTrayHeight)+Space(3)+Chr(10)+'任务栏位置:'+lcTrayOrientation,64,'信息提示')
Messagebox(;
'工作区左上角 X 坐标:'+Transform(lnLeftUpX)+Chr(10)+;
'工作区左上角 Y 坐标:'+Transform(lnLeftUpY)+Chr(10)+;
'工作区右下角 X 坐标:'+Transform(lnRightDownX)+Chr(10)+;
'工作区右下角 Y 坐标:'+Transform(lnRightDownY)+Chr(10),64,'信息提示')
Endif
*-- 方法三:先取得任务栏尺寸,然后比较屏幕和任务栏尺寸及坐标算出任务栏位置。
Declare Integer GetWindowRectIn user32Integer hWindow,String@lpRect
Declare Integer FindWindowIn user32String lpClassName,StringlpWindowName
lnHWnd=FindWindow('Shell_traywnd','')
If lnHWnd>0
lcRect=Replicate(Chr(0),16)
If GetWindowRect(lnHWnd,@lcRect)#0 && 获取任务栏尺寸
lnLeftUpX=CToBin(Substr(lcRect,1,4),'4rs') && 任务栏左上角 X 坐标
lnLeftUpY=CToBin(Substr(lcRect,5,4),'4rs') && 任务栏左上角 Y 坐标
lnRightDownX=CToBin(Substr(lcRect,9,4),'4rs') && 任务栏右下角 X 坐标
lnRightDownY=CToBin(Substr(lcRect,13,4),'4rs')&& 任务栏右下角 Y 坐标
lnTrayWidth=lnRightDownX-lnLeftUpX && 任务栏宽度=右下角 X 坐标-左上角 X 坐标
lnTrayHeight=lnRightDownY-lnLeftUpY && 任务栏高度=右下角 Y 坐标-左上角 Y 坐标
If Sysmetric(1)=lnTrayWidth && 判断任务栏位置是 上 或 下(屏幕宽度=任务栏宽度 说明任务栏位置是 上 或 下)
If lnLeftUpY=0 && 如果任务栏左上角 Y 坐标为0,说明任务栏位置为 上,否则为 下
lcTrayOrientation='上'
Else
lcTrayOrientation='下'
Endif
Else && 任务栏位置是 左 或 右
If lnLeftUpX=0 && 如果任务栏左上角 X 坐标为0,说明任务栏位置为 左,否则为 右
lcTrayOrientation='左'
Else
lcTrayOrientation='右'
Endif
Endif
Messagebox('任务栏尺寸:'+Transform(lnTrayWidth)+'×'+Transform(lnTrayHeight)+Space(3)+Chr(10)+'任务栏位置:'+lcTrayOrientation,64,'信息提示')
Messagebox(;
'任务栏左上角 X 坐标:'+Transform(lnLeftUpX)+Chr(10)+;
'任务栏左上角 Y 坐标:'+Transform(lnLeftUpY)+Chr(10)+;
'任务栏右下角 X 坐标:'+Transform(lnRightDownX)+Chr(10)+;
'任务栏右下角 Y 坐标:'+Transform(lnRightDownY)+Chr(10),64,'信息提示')
Endif
Endif