| Вопрос: В чем ошибка? | Добавлено: 12.12.06 00:37 |
Автор вопроса:  Djon | Web-сайт: www.vk-book.ru
|
|
Прога для смены обоев.
Пишу Option Explicit 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 Command1_Click() SetWallpaper Text1.Text 'в Text1 указан путь к файлу(к картинке) End Sub не работает. а если SetWallpaper "C:\1.bmp" то работает. Где ошибка? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  JMP Вопросов: 6 Ответов: 171 |
Профиль | | #1 | Добавлено: 12.12.06 04:40 |
|
последний параметр
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True может быть одним из следующих: SPIF_UPDATEINIFILE Writes the new system-wide parameter setting to the user profile. SPIF_SENDCHANGE Broadcasts the WM_SETTINGCHANGE message after updating the user profile. SPIF_SENDWININICHANGE Same as SPIF_SENDCHANGE. SPIF_SENDCHANGE - параметр заставляет послать броадкаст с сообщением WM_SETTINGCHANGE |
||
|
Номер ответа: 2 Автор ответа:  avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #2 | Добавлено: 12.12.06 10:06 |
| Если SetWallpaper "C:\1.bmp" работает, то значит в Text1 неправельный формат пути... | ||
Страница: 1 |