Смена фонового изображения рабочего стола программно - VB
Формулировка задачи:
Для этого я использую API-функцию SystemParametersInfo:
Однако использовать её не получается, т.к. при вызове процедуры SetWallpaper возникает ошибка 453: программа не может найти входную точку в библиотеку User32. В чём может быть дело?
Решение задачи: «Смена фонового изображения рабочего стола программно»
textual
Листинг программы
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Private Const SPI_SETDESKWALLPAPER = 20 Private Sub SetWallpaper(File As String) SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True End Sub Private Sub Form_Load() SetWallpaper "C:\123.bmp" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д