把SPIF_UPDATEINIFILE改成SPIF_SENDCHANGE

解决方案 »

  1.   

    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "f:\desk\bmp\3.bmp", SPIF_SENDCHANGE
    改了以后,桌面都必变不了呀
    2.我想知道刷新桌面的方法,
    多谢大侠指教
      

  2.   

    Private Declare Sub SHChangeNotify Lib "shell32" _
                            (ByVal wEventId As Long, _
                            ByVal uFlags As Long, _
                            ByVal dwItem1 As Long, _
                            ByVal dwItem2 As Long)Const SHCNE_UPDATEIMAGE = &H8000&
    Const SHCNF_FLUSHNOWAIT = &H2000
    Const SHCNF_DWORD = &H3Private Sub Command1_Click()
        Dim l As Long
        
        l = -1
        SHChangeNotify SHCNE_UPDATEIMAGE, SHCNF_DWORD, l, 0
    End Sub