Ricorda le posizioni delle finestre quando agganciate e sganciate

Lo trovo oltre frustrante.

Ho due schermi extra sul mio laptop al lavoro. Prendo il mio laptop e vado a casa, senza schermi aggiuntivi collegati. Torno, aggancio il laptop e le finestre devono essere riorganizzate di nuovo.

C'è un modo per ottenere windows (o un'utilità) per tenere traccia della configurazione generale dello schermo (#, dimensioni, risoluzione) e ricordare dove sono state posizionate le finestre, quindi quando la configurazione dello schermo corrisponde di nuovo, mette le applicazioni INDIETRO dove erano ?

DISCLAIMER: sono il creatore di questo strumento.

Ho creato un piccolo strumento per riorganizzare le finestre con un clic sull'icona della barra delle applicazioni. Puoi compilarlo dalla fonte o chiedere di avere un binario (portatile) attraverso il link dei problemi.

È ospitato su Github: https://github.com/manutalcual/winredock

Sarei felice di sentirti se hai suggerimenti.

EDIT: 2018/11/22

Ora è completamente automatizzato.

Attualmente sto usando DisplayFusion Pro per la posizione della finestra (non solo). Non so come funzioni quando ti disconnetti e colleghi il monitor - ne ho sempre tre.

Penso che devi chiudere e riaprire le tue app per essere riorganizzate.

Modifica: questa funzione è disponibile solo nella versione Pro. - Informazioni dai commenti.

homepage di DisplayFusion

Il problema è che le applicazioni Windows non vedono davvero più monitor. Il gestore delle finestre tiene traccia delle posizioni delle finestre in riferimento all'angolo in alto a sinistra o al display principale. Non sono a conoscenza di applicazioni commerciali che lo fanno, ma potresti scrivere un'applicazione in C # o persino VB.NET che potrebbe scrivere questi valori in un file e ripristinarli in seguito, ma non ci sarebbe alcun "trigger" per esso. Dovresti dire al programma quando archiviare e recuperare i dati manualmente.

Prova questo script, scritto per Excel. Memorizza le posizioni della finestra in un foglio e le ripristina da lì. Potresti avere pulsanti su uno dei fogli per eseguire il negozio e ripristinare le macro, o scorciatoie per gli script VBS che eseguono le macro di Excel, magari con i tasti di scelta rapida assegnati. In questo modo la cartella di lavoro di Excel può rimanere ridotta al minimo. Naturalmente qualcosa di simile può essere scritto in un programma compilato.

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

Questo sembrava promettente: https://github.com/adamsmith/WindowsLayoutSnapshot

Sfortunatamente nel mio caso, quando si salva il layout su monitor 3x 24 "1920x1200, si passa a un laptop 1920x1080 e si torna a tre e si tenta di ripristinare il layout, Windows non si è spostato su altri monitor. Ma forse per qualcun altro su altra configurazione funzionerà.

Ecco un'applicazione console per salvare e ripristinare posizioni e stati delle finestre su un desktop di Windows. Per salvare le posizioni di Windows eseguite:

  winLayout save

per ripristinare le posizioni di Windows eseguite:

  winLayout restore

Inserisci questi comandi in un collegamento sul desktop e aggiungi la barra delle applicazioni per comodità.

Disclaimer: ho scritto questa utility perché gli altri strumenti in questa pagina non hanno funzionato per me.

Avvertenza: funziona per le applicazioni, ma non per Windows Explorer (al momento)

Ho usato Stardock's Fences in uno scenario simile:

Recinzioni ti aiuta a organizzare il tuo PC posizionando automaticamente le scorciatoie e le icone in aree ombreggiate ridimensionabili sul desktop chiamate recinzioni. Le sue numerose funzioni di personalizzazione sono ciò che rende Fences il miglioramento desktop Windows più famoso al mondo.

Molti utenti di Windows avevano questo problema, un'applicazione è stata sviluppata e condivisa all'interno dei forum di Windows 7 come mostrato qui:

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

Ci sono istruzioni sul sito che aiutano e dovrebbe risolvere il tuo problema.