Windows-Hintergrund

[KatSeiko]

Weiß jemand, wie man den Hintergrund von Windows verändert? Ich hab vor, ein kleines Programm zu schreiben, was bei jedem Neustart (über Autorun) den Hintergrund auf ein zufälliges Bild im Verzeichnis ändert...

__________________________________________________
Thread verschoben
Code, Tipps und Tricks>APIs
31.08.2008
RSBasic

[RSBasic]

@KatSeiko

Code: Alles auswählen

SystemParametersInfo_(#SPI_SETDESKWALLPAPER,0,"C:\...",#SPIF_UPDATEINIFILE)

Wieso benutzt du nicht gleich dieses Programm?
http://www.purebasic.fr/german/viewtopic.php?t=17565

[sibru]

hiermit geht´s... (aus´m Forum gesaugt):

Code: Alles auswählen

#IDC_BITMAP = $5DC
#Image = " C:\AlsterSoft\Purebasic\Basic-Sourcen\Gehrmann\Logo_127x55.BMP" ;<-- eigene BildDatei einsetzen !!!

OpenWindow(0,0,0,400,300,"Backgrounded Window",#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #SS_BITMAP |#PB_Window_SizeGadget)
CreateGadgetList(WindowID(0))
ButtonGadget(0,10,10,120,25,"utitled")

hwndStatic = CreateWindowEx_(0,"STATIC","",#SS_BITMAP | #WS_CHILD  | #WS_CLIPSIBLINGS | #WS_VISIBLE,0,0,0,0, WindowID(0),#IDC_BITMAP,0,0)
LoadImage(0,#Image)
ResizeImage(0,WindowWidth(0),WindowHeight(0))

SendMessage_(hwndStatic,#STM_SETIMAGE,#IMAGE_BITMAP,ImageID(0))

Repeat
  EventID = WaitWindowEvent()
  
  If EventID = #PB_Event_Menu
    Select EventMenu()
      Case 0
        EventID = #PB_Event_CloseWindow
    EndSelect   
  EndIf
  
  If EventID = #PB_Event_SizeWindow
    ResizeImage(0,WindowWidth(0),WindowHeight(0))
    SendMessage_(hwndStatic,#STM_SETIMAGE,#IMAGE_BITMAP,ImageID(0))
  EndIf
Until EventID = #PB_Event_CloseWindow
DestroyWindow_(hwndStatic)

viel Erfolg...

[edel]

Nur ist hier nicht ein Fenster gemeint sondern das OS Windows.