VB(API) -Masaüstü Resminin Değiştirilmesi

[mayhemious]

Option Explicit


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

Private Sub Command1_Click()
Call SystemParametersInfo(20, 0, "C:\windows\Prairie Wind.bmp", 1)
End Sub