Архив форумов ЦИТФорума

[DenisArK]

Добрый день!

Необходимо получить размеры зоны рабочего стола без панели задач.

Размер всего экрана можно определить так:
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")
DeskHight = 0
DeskWidth = 0
For Each objItem in colItems
DeskHight = objItem.ScreenHeight
DeskWidth = objItem.ScreenWidth
Next

ВысотаНужнойЗоны= DeskHight - ВысотаПанелиЗадач

Подскажите как определить либо размер самой зоны, либо как определить высоту панели задач?

[DenisArK]

ну неужели никто не знает ?

[критикан]

а эти размеры, вроде бы, и есть размеры с учётом высоты (ширины, если панелька задач сбоку) панельки задач, а также с учётом автоскрытия панельки задач
------------------------------------------------------
панелька задач -- а зачем она?