Функция для смены обоев рабочего стола

[Sylar9]

Вот хочу написать программу которая автоматически меняет обои рабочего стола. но у меня возникла пару вопросов:
1)WinApi Функция для смены обоев ? я думал применить SystemParametersInfo(); или может вы мне другую посоветуете.
2) Я хочу что бы программа меняла рабочие стол родными картинками windows, у меня возник вопрос, где они расположены в Windows 7 и Windows XP, и одинаково ли картинки называются что бы программа могла менять обои на Windows 7 и в Windows XP

К стати программа будет консольной

[rlib]

Если консольная, то почему не воспользоваться скриптом?

dim shell
dim user
Set shell = WScript.CreateObject("WScript.Shell")
user = shell.ExpandEnvironmentStrings("%USERNAME%")
Set fso = CreateObject("Scripting.FileSystemObject")
windowsDir = fso.GetSpecialFolder(0)
wallpaper = "c:\wallpaper.jpg"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

[Sylar9]

Сообщение от rlib

Если консольная, то почему не воспользоваться скриптом?

dim shell
dim user
Set shell = WScript.CreateObject("WScript.Shell")
user = shell.ExpandEnvironmentStrings("%USERNAME%")
Set fso = CreateObject("Scripting.FileSystemObject")
windowsDir = fso.GetSpecialFolder(0)
wallpaper = "c:\wallpaper.jpg"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

что за скритп ?