forum.clarionlife.net

Код: Выделить всё

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
    

Код: Выделить всё

       ! Получить реальный размер рабочего стола Windows
       Loc:hMonitor = MonitorFromWindow(GetShellWindow(),xMy_MONITOR_DEFAULTTOPRIMARY)
       If Loc:hMonitor
          Loc:MInfo.cbSize = Size(Loc:MInfo)
          If GetMonitorInfo(Loc:hMonitor,Address(Loc:MInfo))
             XClient# = Loc:MInfo.rcWork.eLeft     ! Доступная зона рабочего стола Windows 
             YClient# = Loc:MInfo.rcWork.eTop
             WClient# = Loc:MInfo.rcWork.eRight
             HClient# = Loc:MInfo.rcWork.eBottom
          end
       end