windows 7 de resim değiştirme sorunu yok fakat bu windows xp de işe yaramıyor xp için duvar kağıtı değiştirme kodu var mı bu bir soru zaten

Declarations Kod: Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" As Long Private Const SPI_SETDESKWALLPAPER = 20 Resim değişimi Kod: SystemParametersInfo SPI_SETDESKWALLPAPER, 0, Text1. Text, 1 windows 7 de resim değiştirme sorunu yok fakat bu windows xp de işe yaramıyorxp için duvar kağıtı değiştirme kodu var mı -

Denemedim aşağıdaki kodu ama belki işine yarar... Kod: 'the program in vb is given below/also received from net Option Explicit Private Const SPIF_UPDATEINIFILE = &H1 Private Const SPI_SETDESKWALLPAPER = 20 Private Const SPIF_SENDWININICHANGE = &H2 Private Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" As Long Public Enum REG_TOPLEVEL_KEYS HKEY_CLASSES_ROOT = &H80000000 HKEY_CURRENT_CONFIG = &H80000005 HKEY_CURRENT_USER = &H80000001 HKEY_DYN_DATA = &H80000006 HKEY_LOCAL_MACHINE = &H80000002 HKEY_PERFORMANCE_DATA = &H80000004 HKEY_USERS = &H80000003 End Enum Private Declare Function RegCreateKey Lib _ "advapi32. dll" Alias "RegCreateKeyA" _ As Long Private Declare Function RegCloseKey Lib _ "advapi32. dll" As Long Private Declare Function RegSetValueEx Lib _ "advapi32. dll" Alias "RegSetValueExA" _ As Long Private Const REG_SZ = 1 Public Function ChangeWallPaper 'Pass Full Path of. BMP to this function 'Returns true if successful, false otherwise 'If you want to tile, set Tile to True Dim lRet As Long On Error Resume Next If Tile Then WriteStringToRegistry HKEY_CURRENT_USER, _ "Control Panel\desktop", "TileWallpaper", "1" lRet = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ImageFile, _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) ChangeWallPaper = lRet <> 0 And Err. LastDllError = 0 End Function Private Function WriteStringToRegistry As Boolean Dim bAns As Boolean On Error GoTo ErrorHandler Dim keyhand As Long Dim r As Long r = RegCreateKey If r = 0 Then r = RegSetValueEx(keyhand, strValue, 0, _ REG_SZ, ByVal strdata, Len r = RegCloseKey End If WriteStringToRegistry = (r = 0) Exit Function ErrorHandler: WriteStringToRegistry = False Exit Function End Function Private Sub Form_Load Dim x, sourcef sourcef = "c:\Yourimage. bmp" 'arka plan resmi için path ver x = ChangeWallPaper Unload Me End Sub

işe yaramadı yine arkaplan mavi yapıyor resim gelmiyor

basit bi kod herkezde bulunan bir kod o yüzden kimse bakmamistir. D bende soru zannetim ama tşkler

ya bari bir teşekkür edin kod hiç mi işinize yaramadı :S