Вернуть положение на экране панели задач

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

| Правила

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Вернуть положение на экране панели задач

Настройки темы

Вернуть положение на экране панели задач

FlatX007

Ветеран

Сообщения: 553
Благодарности: 87

Профиль | Отправить PM | Цитировать

Тут состряпал функцию - она должна возвращать положение на экране панели задач, но всё осложняется если панель скрывается (координаты получаются одинаковые - для верх и низ, лево и право).

Можно как либо решить эту проблему, необязательно этой функцией может есть другой способ ?

Код:

MsgBox(64, "PosToolbarWindow", "Положение панели задач : " & _PosToolbarWindow())

Func _PosToolbarWindow()

    Dim $aReturnValue[5]
        $aReturnValue[0] = "bottom"
        $aReturnValue[1] = "top"
        $aReturnValue[2] = "right"
        $aReturnValue[3] = "left"
        $aReturnValue[4] = "hide"

    Local $vPosToolbarWindow = ControlGetPos( "[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32; INSTANCE:1]")
    Local $vPosProgramManager = ControlGetPos( "[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")

    If $vPosProgramManager[2] = @DesktopWidth And $vPosProgramManager[3] = @DesktopHeight Then
        Return $aReturnValue[4]

    Else
        If $vPosToolbarWindow[1] = 0 Then
            If $vPosProgramManager[1] = 0 Then Return $aReturnValue[0]
            If $vPosProgramManager[1] > 0 Then Return $aReturnValue[1]
        EndIf

        If $vPosToolbarWindow[0] = 0 Then
            If $vPosProgramManager[0] = 0 Then Return $aReturnValue[2]
            If $vPosProgramManager[0] > 0 Then Return $aReturnValue[3]
        EndIf
    EndIf

EndFunc