Anfänger: Hintergrundbild in Windows verändern

Last HoPe

Beginner

Posts: 7

Tuesday, February 17th 2009, 7:41pm

Anfänger: Hintergrundbild in Windows verändern

Hallo

Kaum hab ich mein eines Projekt abgeschlossen schon plane ich ein neues

, wobei ich hilfe gebauchen könnte. Ich hab vor ein kleines Scherzporgramm zu schreiben, dieses sollte das Hintergrundbild in Windows ändern in ein vorher in die Resources abgelegtes Bild und ich weiss nicht wie Ich dieses anstellen soll. Es sollte nicht als Scherzprogramm oder Virus erkannt werden!

Hoffe jemand hat eine Idee.

Danke im vorraus

MFG

Last HoPe

Koljan777

Professional

Posts: 216

Thursday, February 19th 2009, 10:38pm

Hallo

Greifst aber für einen Anfänger ziemlich Tief rein

Hab per google in 3 Sekunden was gefunden: http://forum.vb-paradise.de/programmiere…ndbild-aendern/

VisualBasic Quellcode

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
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
      OpenFileDialog1.Filter = ("BMP-Grafiken (*.BMP)|*.BMP")
      OpenFileDialog1.ShowDialog()
 
      If OpenFileDialog1.FileName > "" Then
          PictureBox1.Load(OpenFileDialog1.FileName)
      End If
  End Sub
 
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      If OpenFileDialog1.FileName > "" Then
          SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
             OpenFileDialog1.FileName, SPIF_UPDATEINIFILE Or _
              SPIF_SENDWININICHANGE)
      End If
  End Sub