1,075
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
yfpos2003 2005-02-20
- 打赏
- 举报
一些改系统的问题，没有别的好办法，调API函数来完成
online 2005-02-20
- 打赏
- 举报
vb的,自己改一下
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
Const SPI_SETDESKWALLPAPER = 20
Private Sub Command1_Click()
Dim ChangeWP
Dim s As String
s = "c:\windows\kp2003_0S.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, s, 0)
MsgBox "墙纸已经更改为 " & s & "", 64, "Instant Wallpaper Changer"
End Sub
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
Const SPI_SETDESKWALLPAPER = 20
Private Sub Command1_Click()
Dim ChangeWP
Dim s As String
s = "c:\windows\kp2003_0S.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, s, 0)
MsgBox "墙纸已经更改为 " & s & "", 64, "Instant Wallpaper Changer"
End Sub
wjlforever 2005-02-19
- 打赏
- 举报
关注！
j9dai 2005-02-19
- 打赏
- 举报
应该有这方面的API，查查
nimittz 2005-02-19
- 打赏
- 举报
调api,用google查一下吧，肯定有
a109788522 2005-02-19
- 打赏
- 举报
DING
agualiyong 2005-02-19
- 打赏
- 举报
关注！
