Question

VB6怎么设置win7背景

需要运行后立即生效的，不需要重启的
我在网上找到找个API

SystemParametersInfo 20, 0, “c:\a.bmp”, 1 Or 2
可是行不通，没有任何反映

应该怎么做，求高手指点

Answer 1

'代码对jpg,png等其它格式也是有效的。
Set sh = CreateObject("Shell.Application")
For Each v In sh.NameSpace("C:").ParseName("a.bmp").Verbs
  If v.Name = "设置为桌面背景(&B)" Then v.DoIt
Next

追问

谢谢，本地图片确实可以
我想设置服务器上的图片可以么？

谢谢 设置服务器图片我已经自己弄出来了
我还想问下，你这个方法其实是操作的右键菜单
如果右键菜单没有设置背景的选项那怎么解决呢？？

追答

代码设置背景本来就没那么容易，要不然在网上怎么会搜不到方法，搜到了也不一定管用。
正好win7的右键菜单有设置背景的选项，当然就用它了。