Como Mudar O Papel De Parede Do Computador

[Cardosinhu 0]

Função simples, que possibilita a alteração do papel de parede da máquina. Ela retorna True, se conseguiu alterar ou False, se houve um erro ou algo que a impediu que continuar

 

Declaração API

 

CODE

Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

 

Código-Fonte

 

CODE

Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

 

Public Function mudarPapelDeParede(ByVal sArquivo As String) As Boolean

 

On Error GoTo Erro

 

If (LCase(Right(sArquivo, 3)) <> "bmp") Then

 

Dim objPic As StdPicture

 

Dim strNovoArquivo As String, posAchou As Integer

 

Set objPic = LoadPicture(sArquivo)

 

posAchou = InStrRev(sArquivo, "\")

 

sArquivo$ = Right(sArquivo, Len(sArquivo) - posAchou)

 

posAchou = InStrRev(sArquivo, ".")

 

strNovoArquivo$ = Environ("windir") & "\" & Left(sArquivo, posAchou - 1) & ".bmp"

 

SavePicture objPic, strNovoArquivo

 

Set objPic = Nothing

End If

 

mudarPapelDeParede = (SystemParametersInfo(20, 0&, strNovoArquivo, &H1 Or &H2) = 1)

 

Exit Function

 

Erro:

mudarPapelDeParede = False

 

End Function

 

Modo de uso:

 

CODE

Call mudarPapelDeParede("C:\Papel de parede.jpg")

[PoseidoN 0]

Mano, o tópico está bem desorganizado...

seria melhor postar umas screens, e explicar melhor para os iniciantes

 

 

Abz'

['Leozin 38]

Kara, isso nen é pra Delphi eu acho, se for pra outro progama, informe no tópico, tah muito mal organizado, melhora isso ae kra!