Recuerde ubicaciones de ventanas cuando está acoplado y desacoplado

Esto me parece más que frustrante.

Tengo dos pantallas adicionales en mi computadora portátil en el trabajo. Tomo mi computadora portátil y me voy a casa, sin pantallas adicionales conectadas. Regreso, conecto la computadora portátil y las ventanas necesitan ser reorganizadas nuevamente.

¿Hay alguna manera de obtener ventanas (o una utilidad) para realizar un seguimiento de la configuración general de la pantalla (#, tamaño, resolución) y recordar dónde se colocaron las ventanas, por lo que cuando la configuración de la pantalla vuelve a coincidir, las aplicaciones vuelven a estar donde estaban? ?

DESCARGO DE RESPONSABILIDAD: Soy el creador de esta herramienta.

He creado una pequeña herramienta para reorganizar las ventanas con un clic en el icono de la barra de bandeja Puede compilarlo desde la fuente o solicitar un binario (portátil) a través del enlace de problemas.

Está alojado en Github: https://github.com/manutalcual/winredock

Me gustaría saber de usted si tiene sugerencias.

EDITAR: 2018/11/22

Está completamente automatizado ahora.

Actualmente estoy usando DisplayFusion Pro para la ubicación de la ventana (no solo). No sé cómo funciona esto cuando desconectas y conectas tu monitor; siempre tengo tres.

Creo que debe cerrar y volver a abrir sus aplicaciones para volver a organizarlas.

Editar: Esta función solo está disponible en la versión Pro. - Información de los comentarios.

página de inicio de DisplayFusion

El problema es que las aplicaciones de Windows realmente no ven múltiples monitores. El administrador de ventanas realiza un seguimiento de las posiciones de las ventanas en referencia a la esquina superior izquierda o su pantalla principal. No conozco ninguna aplicación comercial que lo haga, pero podría escribir una aplicación en C # o incluso VB.NET que podría escribir estos valores en un archivo y restaurarlos más tarde, pero no habría un "disparador" para ello. Tendría que decirle al programa cuándo almacenar y recuperar los datos manualmente.

Pruebe este script, escrito para Excel. Almacena las posiciones de las ventanas en una hoja y las restaura desde allí. Es posible que tenga botones en una de las hojas para ejecutar la tienda y restaurar macros, o accesos directos a scripts de VBS que ejecutan las macros de Excel, tal vez con teclas de acceso directo asignadas. De esa manera, el libro de Excel puede permanecer minimizado. Por supuesto, algo similar puede escribirse en un programa compilado.

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

Este parecía prometedor: https://github.com/adamsmith/WindowsLayoutSnapshot

Desafortunadamente en mi caso, al guardar el diseño en 3x 24 "monitores 1920x1200, cambiar a una computadora portátil 1920x1080, y luego volver a tres e intentar restaurar el diseño, Windows realmente no se movió a otros monitores. Pero tal vez para alguien más en otra configuración funcionará.

Aquí hay una aplicación de consola para guardar y restaurar ubicaciones y estados de ventanas en un escritorio de Windows. Para guardar ubicaciones de Windows, ejecute:

  winLayout save

para restaurar las posiciones de Windows ejecute:

  winLayout restore

Coloque estos comandos en un acceso directo de escritorio y anclar a la barra de tareas para mayor comodidad.

Descargo de responsabilidad: escribí esta utilidad porque las otras herramientas en esta página no funcionaron para mí.

Advertencia: funciona para aplicaciones, pero no para Windows Explorer (en la actualidad)

He usado las cercas de Stardock antes en un escenario similar:

Fences lo ayuda a organizar su PC colocando automáticamente sus accesos directos e íconos en áreas sombreadas redimensionables en su escritorio llamadas cercas. Sus numerosas características de personalización son las que hacen de Fences la mejora de escritorio de Windows más popular del mundo.

Muchos usuarios de Windows tuvieron este problema, una aplicación fue desarrollada y compartida en los foros de Windows 7 como se muestra aquí:

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

Hay instrucciones en el sitio que ayudan y debería solucionar su problema.