Uspořádání ikon na ploše

Private Const LVA_ALIGNLEFT = &H1
Private Const LVM_ARRANGE = &H1016
Private Const GW_CHILD = 5

Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Declare Function GetWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal wCmd As Long) As Long
    
Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Long) As Long
    

Public Sub ArrangeDesktopIcons()

    Dim lnghWnd As Long
    Dim lngReturn As Long

    lnghWnd = FindWindow("Progman", vbNullString)
    lnghWnd = GetWindow(lnghWnd, GW_CHILD)
    lnghWnd = GetWindow(lnghWnd, GW_CHILD)
    lngReturn = SendMessage(lnghWnd, LVM_ARRANGE, LVA_ALIGNLEFT, 0)

End Sub

Zpět