Desktop-Hintergrundbild ändern

Desktop-Hintergrundbild ändern: SPI_SETDESKWALLPAPER
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Function SetWallpaper(ByVal sFile As String) As Boolean
Dim RetVal As Long
RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, sFile, _
SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)
SetWallpaper = RetVal <> 0
End Function
Sub Button_Click()
SetWallpaper "C:\test.bmp"
End Sub

Mehr Tipps: Datei aus dem Internet downloaden

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt