چطور تصویر دسکتاپ رو عوض کنم؟

[javad2000]

این هم برای 10 کاراکتر!

[amirsajjadi]

با سلام
میتونی مقدار کلید رجیستری زیر رو تغییر بدی به اون آدرس تصویری که میخوای
HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper
ولی باید بعدش ویندوز رو ریست یا لوگ آف کنی
راه دیگه اون استفاده از API است که بعضی وقتها توی بعضی سیستم عامل ها ی ویندوز جواب میده
PrivateDeclareFunction SystemParametersInfo Lib"user32"Alias"SystemParametersInfoA" (ByVal uAction AsInteger, ByVal uParam AsInteger, ByRef lpvParam AsString, ByVal fuWinIni AsInteger) AsLong
Const SPI_SETDESKWALLPAPER = 20
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OnErrorResumeNext
Dim lngSuccess AsLong
Dim strBitmapImage AsString = "Address Pic"
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)
EndSub

[saeed_rezaei]

سلام.
با استفاده از تابع api زیر شما می تونید به راحتی تصویر رو بدون log out کردن تغییر بدید.



'api to set the systems parameters for changing the wallpaper
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

'constants to be used with the above api
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1





و حالا با دستور زیر می تونید تصویری رو که آدرسش در متغیر imagepath قرار داره رو بندازید تو پس زمینه.





SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE)

[amirsajjadi]

دوست عزیز من هم همینو نوشتم ولی توی ویندوز مدیا سنتر 2005 جواب نمیده !!!

[saeed_rezaei]

سلام امیر جان.
بله. من کد خودت رو اینجوری نوشتم. اینکه چطوری مطلبتون رو ارائه بدید خیلی مهمه. همیشه هنگام نوشتن کدهاتون اونها رو توی بلوکهای
[code]
قرار بدید. کافیه روی آیکن # کلیک کنید تا بلوک رو واستون بزنه.
موفق باشید

[javad2000]

سلام
خیلی ممنون
همین کدها رو با یه خورده تغییر استفاده کردم که جواب داد.
دستتون درد نکنه.

[amirsajjadi]

اگه میشه تغییراتی که روی کدها اعمال کردید رو بنویسید ؟

[javad2000]

اگه میشه تغییراتی که روی کدها اعمال کردید رو بنویسید ؟
این کد برنامه ای هست که برای تست تغییر دسکتاپ نوشتم. یه فرم با دو تا Button داره که Button1 برای SetWallPaper و Button2 برای GetWallPaper عمل می کنه.
تذکر:
فایل های wallPaper باید حتماً bmp باشند.

ضمناً این TextEditor فروم یه خورده کدها رو به هم می ریزه. خودتون درستش کنید.



PublicClass Form1
Inherits System.Windows.Forms.Form
PrivateDeclareFunction SystemParametersInfo Lib"user32"Alias"SystemParametersInfoA" (ByVal uAction AsInteger, ByVal uParam AsInteger, ByVal lpvParam AsString, ByVal fuWinIni AsInteger) AsInteger
PrivateConst SPI_SETDESKWALLPAPER AsShort = 20
PrivateConst SPIF_UPDATEINIFILE AsShort = 1
PublicEnum WallPaperStyle AsInteger
Tiled
Centered
Stretched
EndEnum
Sub SetWallPaper(ByVal FilePath AsString, ByVal UpdateRegistry AsBoolean, ByVal wpStyle As WallPaperStyle)
Dim upd AsShort
If UpdateRegistry Then
upd = SPIF_UPDATEINIFILE
Else
upd = 0
EndIf
Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)
Try
SelectCase wpStyle
Case WallPaperStyle.Stretched
key.SetValue("WallpaperStyle", "2")
key.SetValue("TileWallpaper", "0")
Case WallPaperStyle.Centered
key.SetValue("WallpaperStyle", "1")
key.SetValue("TileWallpaper", "0")
Case WallPaperStyle.Tiled
key.SetValue("WallpaperStyle", "1")
key.SetValue("TileWallpaper", "1")
EndSelect
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, FilePath, upd)
Catch ex As Exception
'MsgBox(ex.Message)
EndTry
EndSub
Function GetWallPaper() AsString
Try
ReturnMy.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Control Panel\DeskTop", "WallPaper", "")
Catch ex As Exception
Return""
'MsgBox(ex.Message)
EndTry
EndFunction
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A AsNew OpenFileDialog
A.ShowDialog()
Me.SetWallPaper(A.FileName, True, WallPaperStyle.Stretched)
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(GetWallPaper)
EndSub
EndClass