Смена обоев на рабочем столе

[Volkova]

Как в вб можно сделать так, чтобы при нажатии на кнопочку обои на рабочем столе менялись? Если это через апи, то напишите плиз, как их декларировать. А то когда я пытаюсь любое апи впендюрить васик ругаица(

[Viper]

Как в вб можно сделать так, чтобы при нажатии на кнопочку обои на рабочем столе менялись? Если это через апи, то напишите плиз, как их декларировать. А то когда я пытаюсь любое апи впендюрить васик ругаица(

Через API разумеется. Судя по тексту, попытки уже делались. Код в студию, а мы посмотрим и направим.

[Volkova]

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal a As Long, ByVal a1 As Long, ByVal a2 As String, ByVal a3 As Long) As Long



Private Sub Command1_Click()

SystemParametersInfo 20, 0, "F:\yyy\FOTO\anime\1.jpg", True

End Sub

на данный код заставка(обои) становится черной, тот что до этого писала вообще ругалсо на декларацию. в общем я хочу сделать програмку меняющую обои на раб столе, как еще ктати сделать чтоб при изменении картинки прожка подстраивалась под разрешение усера на данной тачке.

[Денис]

под разрешение усера

Это какой -то известный боян? (с усером) а то либо я что-то пропустил, либо прозреваю еще одного человека, неправильно читающего слово user

[Volkova]

ну юзер, один черт. на баше их так все время называют, вот народ(включая меня) и подхватывает

[HiSER]

Код: Выделить всё

Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Command1_Click()
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal "Путь\Имя файла", SPIF_UPDATEINIFILE
End Sub


И картинка должна быть .BMP!

http://msdn2.microsoft.com/en-us/library/ms724947.aspx

[Volkova]

спасибо, а джыпег нельзя никак втулить? или хотя бы бмп сжать до 200 кб а то прога по смене картинок на рабочем столе весящая 200 метров наверно не очень порадует взор...

[alibek]

Нельзя.
JPG можно использовать только при включенном ActiveDesktop.

[arthur2]

Грузи джипег в пикчебокс, а из него сохраняй картинку в нужный момент под нужным именем -- она сама станет бмпешной.