如何修改windows墙纸，并且能够将其设置成拉伸状态！！（紧急）

Question

好像是修改注册表的哪个地方去了你比较一下注册表就知道了

Answer 1

感谢您使用微软产品。您可以通过SystemParametersInfo函数来设置桌面背景，请参考如下代码：Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2
Private Sub Command1_Click()
Dim wallpaperfile As String
wallpaperfile = "c:\winnt\CIBAS.BMP"
SystemParametersInfo SPI_SETDESKWALLPAPER, 0&, wallpaperfile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
End Sub关于SystemParametersInfo请参考以下文章：
Platform SDK: Windows System Information  SystemParametersInfo
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/sysinfo_4p67.asp微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。