23
Сентябрь
2008
Как сменить обои рабочего стола?
Как сменить обои рабочего стола?
Option Explicit
Private Declare Function SystemParametersInfo _
Lib "user32" Alias "SystemParametersInfoA" _
(ByVal a As Long, _
ByVal a1 As Long, _
ByVal a2 As String, _
ByVal a3 As Long) As Long
Private Sub Command1_Click()
SystemParametersInfo 20, 0, "C:\1.bmp", True
End Sub