Windows Hintergrund zur Laufzeit setzen...

[Ghosty1967]

Kann mir einer sagen, wie ich während der Laufzeit
den Windows Hintergrund (Desktop) ändern kann ?!
Irgendwie gelingt mir das nicht !

thx...

[Ghosty1967]

hab was im englischen Forum gefunden... werds mal ausprobieren

Code: Alles auswählen

; English forum: http://purebasic.myforums.net/viewtopic.php?t=6698&highlight= 
; Author: ebs 
; Date: 24. June 2003 

; Changes background image of Windows desktop 
Procedure SetWallpaper(FileName.s) 
  SystemParametersInfo_(#SPI_SETDESKWALLPAPER, 0, FileName, #SPIF_UPDATEINIFILE | #SPIF_SENDWININICHANGE) 
EndProcedure 

WPFileName.s = OpenFileRequester("Select Wallpaper image", "*.bmp", "Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*", 1, 0) 
If WPFileName <> "" 
  SetWallpaper(WPFileName) 
EndIf 

; ExecutableFormat=Windows 
; CursorPosition=4 
; FirstLine=1 
; EOF