如何获取windows状态栏的高度

[METALLEE78]

如何获得windows状态栏的高度、是否隐藏等信息？
解决给分

[DWGZ]

var
rc: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);

高度 := Screen.Height - (rc.Bottom - rc.Top)