VB 版 (精华区)

 如何用程序改变Windows 95的墙纸？

在我们的程序设计中，如果想要改变Windows的墙纸，那么可以Windows的API
函数SystemParametersInfo来实现。
具体步骤如下：
1)  在VB中新建一个标准EXE工程；
2)  画出一个按钮Command1；
3)  在窗体Form1中定义Windows API的声明；
Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
4) 在Command1的Click事件中编写以下代码：
        Private Sub Command1_Click()
          Dim t As Long
          Dim Wallpaper As String  '墙纸的图片文件名

          Wallpaper = InputBox("请输入图片文件的路径和文件名.")
          Wallpaper = InputBox("请输入图片文件的路径和文件名.")
          If Wallpaper = "" Then Exit Sub  '如果没有图片，返回
          '设置墙纸
          t = SystemParametersInfo(ByVal 20, vbnostring, ByVal 
Wallpaper, &H1)
          '如果设置不成功
          If t = 0 Then
             MsgBox "设置墙纸出错！"
             Exit Sub
           End If
         End Sub
5) 设计完成，运行软件；