PureBasic Forums - English

Code: Select all

;Example of playing with Desktop  -  Ricardo

hDesktop=GetDesktopWindow_(); 
hDesktop=FindWindowEx_(hDesktop, 0, "Progman", "Program Manager"); 
hDesktop=FindWindowEx_(hDesktop, 0, "SHELLDLL_DefView", 0); 
hDesktop=FindWindowEx_(hDesktop, 0, "SysListView32", 0);

If OpenWindow(0,0,0,0,0,#PB_Window_Invisible,"")
    AddSysTrayIcon(0, WindowID(), ExtractIcon_(0,"C:\purebasic\purebasic.exe",0))
    SysTrayIconToolTip(0, "Desktop View")
    CreatePopupMenu(0)
    MenuItem(1,"Normal Mode")
    MenuItem(2,"Details Mode")
    MenuItem(3,"Small Icons Mode")
    MenuItem(4,"Tiled Mode")
    MenuBar()
    MenuItem(5,"Quit")
    Repeat
        
        Select WaitWindowEvent()
            
            Case  #PB_Event_SysTray
                DisplayPopupMenu(0,WindowID())
            Case #PB_Event_Menu        ; an item of the popup-menu was clicked
                Select EventMenuID()
                    Case 1
                        ; ;nomal
                        SendMessage_(hDesktop, 4238, $0, 0)
                    Case 2
                        ; ;details
                        SendMessage_(hDesktop, 4238, $1, 0)
                    Case 3
                        ; ;small
                        SendMessage_(hDesktop, 4238, $2, 0)
                    Case 4
                        ;tiles
                        SendMessage_(hDesktop, 4238, $4, 0)
                    Case 5 
                        Quit = 1
                EndSelect
        EndSelect
        
    Until Quit = 1
EndIf
End