Как написать приложение для Windows, чтобы изменить обои для рабочего стола? - PullRequest
Новая
       7

Как написать приложение для Windows, чтобы изменить обои для рабочего стола?

2 голосов
/ 17 мая 2009

Я хотел бы написать небольшое приложение для Windows, которое изменяет обои рабочего стола на основе фотографий, полученных из веб-службы? Как я должен идти об этом? На каком языке / технологии это будет наиболее быстро для написания кода?

Ответы [ 2 ]

3 голосов
/ 17 мая 2009

Существует также пример кода на C # и VB здесь В дополнение к вызову SystemParametersInfo, он также устанавливает ключи reg для плитки и стиля.

1 голос
/ 17 мая 2009

Нашел (vb) код в сети: 

Private Const SPI_SETDESKWALLPAPER As Integer = &H14
Private Const SPIF_UPDATEINIFILE As Integer = &H1
Private Const SPIF_SENDWININICHANGE As Integer = &H2
Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer,_
 ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

' change this to whatever filename you want to use'
Const WallpaperFile As String = "MovieCollectionImage.bmp"

''' <summary>
''' Sets the background of your Windows desktop. The image will be saved in MyPictures_
 and the background wallpaper updated.
''' </summary>
''' <param name="img">The image to be set as the background.</param>
''' <remarks></remarks>
Friend Sub SetWallpaper(ByVal img As Image)
     Dim imageLocation As String
     imageLocation = My.Computer.FileSystem.CombinePath_
(My.Computer.FileSystem.SpecialDirectories.MyPictures, WallpaperFile)
     Try
          img.Save(imageLocation, System.Drawing.Imaging.ImageFormat.Bmp)
          SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imageLocation,_
 SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
     Catch Ex As Exception
          MsgBox("There was an error setting the wallpaper: " & Ex.Message)
     End Try
End Sub

Называется как: 

SetWallpaper (Me.PictureBox1.Image)
...