. У меня такой вопрос: Как установить картинку на рабочий стол.? 
картинка на рабочий стол
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- Akella
- Продвинутый пользователь
-
- Сообщения: 144
- Зарегистрирован: 15.09.2004 (Ср) 14:26
- Откуда: Россия, Тюмень
картинка на рабочий стол
Akella » 14.12.2004 (Вт) 17:26
Сдравствуйте ВСЕ . У меня такой вопрос: Как установить картинку на рабочий стол.?
. У меня такой вопрос: Как установить картинку на рабочий стол.? Не бойся что не знаешь, бойся что не учишься.
- Amed
- Алфизик
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
Amed » 14.12.2004 (Вт) 17:37
- Код: Выделить всё
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
Private Sub Form_Load()
Dim t As Long
Dim Wallpaper As String
Wallpaper = "Пузыри.bmp"
t = SystemParametersInfo(20, 0, Wallpaper, 1)
If t = 0 Then
MsgBox "Ошибка!"
End If
End Sub
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 11