PureBoard

Verfasst: **31.08.2008 16:22**

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

Verfasst: **31.08.2008 16:35**

@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

Verfasst: **31.08.2008 17:02**

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...

Verfasst: **31.08.2008 17:52**

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

PureBoard

Windows-Hintergrund

Windows-Hintergrund