小bug 精易模块[10.0.5] 系统_取任务栏高度

小诺0号

因为有个程序要用到  发现win10可以取出来  win7不行 所以自己写了个  希望修复下

  

子程序名	返回值类型	公开	备 注
系统_取任务栏高度	整数型

变量名	类 型	静态	数组	备 注
pRECT	RECT

SystemParametersInfo ( #SPI_GETWORKAREA, 0, pRECT, 0)
如果真 (pRECT.left ＞ 0)
返回 (pRECT.left)
如果真 (pRECT.top ＞ 0)
返回 (pRECT.top)
如果真 (取屏幕宽度 () ＞ pRECT.right)
返回 (取屏幕宽度 () － pRECT.right)
如果真 (取屏幕高度 () ＞ pRECT.bottom)
返回 (取屏幕高度 () － pRECT.bottom)
返回 (0)

数据类型名	公开	备 注
RECT
成员名	类 型	传址	数组	备 注
left	整数型
top	整数型
right	整数型
bottom	整数型

DLL命令名	返回值类型	公开	备 注
SystemParametersInfo	逻辑型
DLL库文件名:
在DLL库中对应命令名:
SystemParametersInfoA
参数名	类 型	传址	数组	备 注
uiAction	整数型
uiParam	整数型
pvParam	RECT
fWinIni	整数型

常量名称	常量值	公 开	备 注
SPI_GETWORKAREA	48		0x0030

.版本 2<br /> <br /> .子程序 系统_取任务栏高度, 整数型<br /> .局部变量 pRECT, RECT<br /> <br /> SystemParametersInfo (#SPI_GETWORKAREA, 0, pRECT, 0)<br /> .如果真 (pRECT.left ＞ 0)<br />     返回 (pRECT.left)<br /> .如果真结束<br /> .如果真 (pRECT.top ＞ 0)<br />     返回 (pRECT.top)<br /> .如果真结束<br /> .如果真 (取屏幕宽度 () ＞ pRECT.right)<br />     返回 (取屏幕宽度 () － pRECT.right)<br /> .如果真结束<br /> .如果真 (取屏幕高度 () ＞ pRECT.bottom)<br />     返回 (取屏幕高度 () － pRECT.bottom)<br /> .如果真结束<br /> 返回 (0)<br /> .版本 2<br /> <br /> .数据类型 RECT<br />     .成员 left, 整数型<br />     .成员 top, 整数型<br />     .成员 right, 整数型<br />     .成员 bottom, 整数型<br /> .版本 2<br /> <br /> .DLL命令 SystemParametersInfo, 逻辑型, , "SystemParametersInfoA"<br />     .参数 uiAction, 整数型<br />     .参数 uiParam, 整数型<br />     .参数 pvParam, RECT, 传址<br />     .参数 fWinIni, 整数型<br /> .版本 2<br /> <br /> .常量 SPI_GETWORKAREA, "48", , 0x0030

朽智

get 新技能

项目部004

这个命令在XP、Win7上都能正常取出任务栏高度，自己联系我远程看看！