右下角小窗口透明渐渐消失特效

易语言 2020-07-05 19:08:11

.子程序 任务栏高度, 整数型, 公开, 成功则返回任务栏高度,失败返回0
.局部变量 矩形, RECT
.局部变量 任务栏高度, 整数型

SystemParametersinfo (#SPI_GETWORKAREA, 0, 矩形, 0)
任务栏高度 = 取屏幕高度 () - 矩形.D ' D是矩形区域高度不包括任务栏
返回 (任务栏高度)