Como Setar O Fundo De Tela

[Xevious]

Tenho que tem como finalidade mudar o fundo de tela do Windows

ele teria que setar no registro o novo fundo de tela

para isso utilizei esse comando

WriteRegistry HKEY_CURRENT_USER, "Control Panel\Desktop", "Wallpaper", "Fundo.Bmp"

Para isso utilizei essa função

Public Sub WriteRegistry(ByVal Group As Long, ByVal Section As String, ByVal Key As String, NewVal As String)

Dim lResult As Long

Dim lKeyValue As Long

Dim InLen As Long

Dim strBuf As String

lResult = RegOpenKey(Group, Section, lKeyValue)

InLen = Len(NewVal)

lResult = RegSetValueEx(lKeyValue, Key, 0&, 1&, NewVal, InLen)

lResult = RegFlushKey(lKeyValue)

lResult = RegCloseKey(lKeyValue)

End Sub

Ela escreve o problema é que o que fica escrito fica errado, com código de controles no lugar da string

Teria que saber como escrever corretamente

Quando estava procurando por funções pra escrever no registro, ví uma que tinha uma parte que tinha que iniciar a variável com 1024 de tamanho, mas não achei mais 'esse' código

[Graymalkin]

Se sua intenção é apenas mudar o papel de parede, pode usar apenas a API SystemParametersInfo para isso.

Abraços,

Graymalkin