Запам’ятайте місця розташування вікон, коли вони стиковані та розблоковані

Мені це здається неприємним.

У мене на роботі два додаткові екрани. Я беру свій ноутбук і їду додому, без додаткових екранів. Я повертаюся, стикую ноутбук, і Windows потрібно переставити знову.

Чи є спосіб отримати вікна (або утиліта), щоб відстежувати загальну конфігурацію екрана (#, розмір, роздільну здатність) і пам'ятати, де розміщувалися вікна, тож коли конфігурація екрана знову збігається, він додає додатки НАЗАД, де вони були ?

ВІДМОВА: Я творець цього інструменту.

Я створив невеликий інструмент для перестановки вікон на клацанні піктограми панелі трей. Ви можете скласти його з джерела або попросити мати (портативний) двійковий файл за посиланням "Питання".

Він розміщений у Github: https://github.com/manutalcual/winredock

Буду рада почути від вас, якщо у вас є пропозиції.

РЕДАКТ: 2018/11/22

Зараз він повністю автоматизований.

Зараз я використовую DisplayFusion Pro для розташування вікон (не тільки). Я не знаю, як це працює, коли відключаєш і підключаєш монітор - у мене завжди три.

Я думаю, що ви повинні закрити і знову відкрити свої додатки, щоб їх переупорядкувати.

Редагувати: Ця функція доступна лише у версії Pro. - Інформація з коментарів.

домашня сторінка DisplayFusion

Проблема полягає в тому, що програми Windows насправді не бачать декілька моніторів. Диспетчер вікон відслідковує положення вікон у відповідності до верхнього лівого кута або вашого основного дисплея. Мені невідомі будь-які комерційні програми, які це роблять, але ви можете написати додаток у C # або навіть VB.NET, який міг би записати ці значення у файл та відновити їх пізніше, але "тригера" для цього не було б. Вам потрібно було б сказати програмі, коли зберігати та отримувати дані вручну.

Спробуйте цей сценарій, написаний для Excel. Він зберігає положення вікон у аркуші та відновлює їх звідти. На одному з аркушів можуть бути кнопки для запуску магазину та відновлення макросів або ярлики до сценаріїв VBS, які виконують макроси Excel, можливо, присвоєні клавіші швидкого доступу. Таким чином робоча книга Excel може залишатися мінімізованою. Звичайно, щось подібне може бути написане в складеній програмі.

Public Declare PtrSafe Function GetWindowPlacement Lib "user32" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long
Public Declare PtrSafe Function SetWindowPlacement Lib "user32" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long

Public Declare PtrSafe Function GetWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare PtrSafe Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As Long) As Boolean
Public Declare PtrSafe Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long
Public Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As LongPtr) As Long

Public Type POINTAPI
X As Long
Y As Long
End Type

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Type WINDOWPLACEMENT
Length As Long
    flags As Long
    showCmd As Long
    MinPosition As POINTAPI
    MaxPosition As POINTAPI
    rcNormalPosition As RECT
End Type

Global Const gw_hwndnext = 2
Global Const fwp_startswith = 0
Global Const fwp_contains = 1
Global title As String
Global Visible As Boolean
Global RowCount
Public prog As String


Public Sub StoreActiveWindows()
    Dim hwndapp As Long
    Dim hwndmax As Long
    Dim nret As Long
    Dim WinFrm As WINDOWPLACEMENT
    Dim RectFrm As RECT

    PleaseWait.Show vbModeless
    DoEvents

    RowCount = 1
    hwndmax = findwindow(0&, 0&)
    Do Until hwndmax = 0
    hwndapp = findthiswindow(hwndmax)
    If hwndapp Then
        If title <> "CURRENT WINDOWS OPEN" And Visible Then
            rtn = GetWindowPlacement(hwndapp, WinFrm)

            RectFrm = WinFrm.rcNormalPosition

            FrmTop = RectFrm.Top
            FrmRight = RectFrm.Right
            FrmLeft = RectFrm.Left
            FrmBottom = RectFrm.Bottom
            Workbooks(Filename).Activate
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 1) = title
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 2) = hwndapp
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 3) = FrmTop
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 4) = FrmRight
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 5) = FrmLeft
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 6) = FrmBottom
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 7) = WinFrm.MaxPosition.X
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 8) = WinFrm.MaxPosition.Y
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 9) = WinFrm.MinPosition.X
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 10) = WinFrm.MinPosition.Y
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 11) = WinFrm.showCmd
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 12) = WinFrm.flags
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 13) = WinFrm.Length
            RowCount = RowCount + 1
        End If
    End If
    hwndmax = GetWindow(hwndmax, gw_hwndnext)
    Loop
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 1) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 2) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 3) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 4) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 5) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 6) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 7) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 8) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 9) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 10) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 11) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 12) = ""
            Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 13) = ""

    Unload PleaseWait

End Sub

Public Function findthiswindow(ByVal hwndtopmost As Long) As Long
    Dim hwndtmp As Long
    Dim nret As Long
    Dim titletmp As String

    'Get the first window
    hwndtmp = hwndtopmost

    If GetParent(hwndtmp) = 0 Then
        'Set its visibility
        If IsWindowVisible(hwndtmp) Then
            Visible = True
        Else
            Visible = False
        End If
        'Get its title
        titletmp = Space(256)
        nret = GetWindowText(hwndtmp, titletmp, Len(titletmp))
        If nret Then
            findthiswindow = hwndtmp
        End If
    End If

    If Visible Then
        title = titletmp & " - Visible"
        Else
        title = titletmp & " - Invisible"
        End If
        title = titletmp
        If titletmp <> "" Then

        'If title = "SETTINGS" Then
            HasNoOWner = Not (GetWindow(hwndtmp, 4))
            n = 1
        'End If

        If (UCase(Left(title, 15)) = "PROGRAM MANAGER" Or UCase(title) = "SETTINGS") Then
            n = 1
            title = ""
            findthiswindow = 0
        End If
    End If
End Function

Sub RestoreWindowsLocations()
    Dim WinFrm As WINDOWPLACEMENT
    Dim RectFrm As RECT

    PleaseWait.Show vbModeless
    DoEvents

    Workbooks(Filename).Activate

    RowCount = 1
    Do Until Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 1) = ""
        hwndapp = Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 2)
'       rtn = GetWindowPlacement(hwndapp, WinFrm)
        WinFrm.rcNormalPosition.Top = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 3))
        WinFrm.rcNormalPosition.Right = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 4))
        WinFrm.rcNormalPosition.Left = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 5))
        WinFrm.rcNormalPosition.Bottom = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 6))
        WinFrm.MaxPosition.X = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 7))
        WinFrm.MaxPosition.Y = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 8))
        WinFrm.MinPosition.X = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 9))
        WinFrm.MinPosition.Y = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 10))
        WinFrm.showCmd = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 11))
        WinFrm.flags = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 12))
        WinFrm.Length = CLng(Workbooks(Filename).Sheets("Active Windows").Cells(RowCount, 13))

        rtn = SetWindowPlacement(hwndapp, WinFrm)
        rtn = SetWindowPlacement(hwndapp, WinFrm)

        RowCount = RowCount + 1

    Loop
    Unload PleaseWait
End Sub

Це виглядало перспективно: https://github.com/adamsmith/WindowsLayoutSnapshot

На жаль, у моєму випадку, зберігаючи макет на 3x 24 "1920x1200 моніторах, змінюючи один ноутбук 1920x1080, а потім повертаючись до трьох і намагаючись відновити макет, Windows насправді не перемістився до інших моніторів. Але, можливо, для когось іншого на інша установка працюватиме.

Ось консольний додаток для збереження та відновлення розташування вікон та станів на робочому столі Windows. Щоб зберегти місця розташування Windows, виконайте такі дії:

  winLayout save

для відновлення запущених позицій Windows:

  winLayout restore

Покладіть ці команди на ярлик робочого столу та прив’яжіть до панелі завдань для зручності.

Відмова: Я написав цю утиліту, оскільки інші інструменти на цій сторінці не працювали для мене.

Caveat: Він працює для додатків, але не Windows Explorer (на даний момент)

Раніше я використовував паркани Stardock's за аналогічним сценарієм:

Fences допомагає вам організувати ваш ПК, автоматично розміщуючи ярлики та піктограми на затінених місцях розміру на робочому столі під назвою огорожі. Багато можливостей для налаштування - це те, що робить Fences найпопулярнішим в світі розширенням для настільних ПК Windows.

У багатьох користувачів Windows була ця проблема, розроблено програму та поділитися на форумах Windows 7, як показано тут:

http://www.sevenforums.com/free-developer-programs-projects/40916-shellfolderfix-manage-folder-window-positions-size.html#post396744 

На сайті є інструкції, які допомагають, і вони повинні вирішити вашу проблему.