Hallo,
Ich versuche gerade ein kleines Windows Service zu schreiben, dass mir in regelmäßigen Abständen mein Windows Wallpaper ändert.. aussehen tut das ganze etwa so:
Imports System.Threading
Imports System.ServiceProcess
Public Class Service1
Inherits System.ServiceProcess.ServiceBase
Dim t As Threading.Thread
Protected Overrides Sub OnStart(ByVal args() As String)
t = New Threading.Thread(AddressOf setWP)
t.Start()
End Sub
Protected Overrides Sub OnStop()
t.Abort()
End Sub
Sub setWP()
Do
Threading.Thread.Sleep(5000)
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
"C:\Daniel\Wallpapers\wp.bmp", SPIF_UPDATEINIFILE Or _
SPIF_SENDWININICHANGE)
Loop
End Sub
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal pncMetrics As String, ByVal fuWinIni As Integer) As Integer
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2
End Class
... leider ändert sich aus irgendeinem Grund das Windows Wallpaper nicht... hab ich da Mist gebaut, oder lässt Windows so etwas aus Sicherheitsgründen nicht zu? (Windows XP, SP3)
Danke für die Info
mfg
Roland
