| Вопрос: Экранная заставка | Добавлено: 09.03.03 06:14 |
Автор вопроса:  Святослав
|
|
Всем привет! Кто подскажет как запретить запуск экранной заставки Windows на время работы моей программы (после выхода из программы - восстановить)? Святослав. strelec2003@list.ru |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Диман ICQ: 224590251 Вопросов: 29 Ответов: 64 |
Web-сайт: Профиль | | #1 | Добавлено: 09.03.03 08:49 |
|
Используй SystemParametersInfo: Dim x As Long x = SystemParametersInfo(97, True, CStr(1), 0) 'Заблокировать x = SystemParametersInfo(97, False, CStr(1), 0) 'Разблокировать |
||
|
Номер ответа: 2 Автор ответа:  Святослав Вопросов: 3 Ответов: 5 |
Профиль | | #2 | Добавлено: 09.03.03 12:34 |
|
Я так понимаю, что SystemParametersInfo это есть API-функция и ее надо как-то объявить. Вопрос как. С уважением, Святослав.
|
||
|
Номер ответа: 3 Автор ответа:  Страшный Сон Вопросов: 46 Ответов: 848 |
Профиль | | #3 | Добавлено: 09.03.03 22:01 |
|
Вот:
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long |
||
|
Номер ответа: 4 Автор ответа: СвятославВопросов: 3 Ответов: 5 |
Профиль | | #4 | Добавлено: 10.03.03 00:01 |
|
Добавил функцию, но положительного результата нет. Видимо этот код срабатывает в VB.NET а мне нужно в VB6. Святослав. |
||
Страница: 1 |