У меня виндовые обучалки при запуске запрашивают режим:
Стандартный - указано в настройках ( обычно 1024x768 )
Оптимальный - с сохранением пропорций ( таскбар не перекрывается )
Максимальный - с занятием всего свободного места на экране
Главное окно - MDI Frame, но без рамки, никаких просветов не остаётся.
Код: Выделить всё
GetTaskbarInfo PROCEDURE (*LONG PAR:X,*LONG PAR:Y,*LONG PAR:W,*LONG PAR:H)
WindowClass CString('Shell_TrayWnd')
WindowNamePtr LONG(0)
R GROUP
left SIGNED
top SIGNED
right SIGNED
bottom SIGNED
END
Loc:Handle LONG
CODE
! Получили Handle
Clear(R)
LOC:HANDLE = FINDWINDOW(Address( WindowClass ), WindowNamePtr )
! Получили размер таскбара
IF LOC:HANDLE
GetWindowRect(Loc:Handle,R)
! Возвращаем размеры
Par:X = R.LEFT
Par:Y = R.TOP
Par:W = R.Right - R.Left
Par:H = R.Bottom - R.Top
END
!GLO:TaskBarXPos = PAR:X
!GLO:TaskBarYPos = PAR:Y
!GLO:TaskBarWidth = PAR:W
!GLO:TaskBarHeight = PAR:H
RETURN