Remember to disable F5(Do not refresh Desktop)
Code: Select all
dWall$ = Space(512)
SystemParametersInfo_(#SPI_GETDESKWALLPAPER, 512, @dWall$, 0)
hwnd = FindWindow_("ProgMan","Program Manager")
hwnd = GetWindow_(hwnd,#GW_CHILD)
hwnd = GetWindow_(hwnd,#GW_CHILD)
SendMessage_(hwnd,#LVM_SETEXTENDEDLISTVIEWSTYLE,0,0)
SendMessage_(hwnd,#LVM_SETEXTENDEDLISTVIEWSTYLE,#LVS_EX_SNAPTOGRID,#LVS_EX_SNAPTOGRID)
SendMessage_(hwnd,#LVM_SETEXTENDEDLISTVIEWSTYLE,#LVS_EX_LABELTIP,#LVS_EX_LABELTIP)
SystemParametersInfo_(#SPI_SETDESKWALLPAPER, 0, Dwall$, #SPIF_UPDATEINIFILE | #SPIF_SENDWININICHANGE)
SetWindowTheme_(hwnd, @null.w, @null.w)
SendMessage_(hwnd,#LVM_SETTEXTCOLOR,#Null,$13F8FD)
InvalidateRect_(hwnd,#Null,#True)
