Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Кaк вырубить, а потом снова врубить мышь??? [D5, WinME]


Transnet. ©   (2002-06-14 12:35:00) 

сабж. Очень надо!!! HELP!! PLIZ!!!!!


easy   (2002-06-17 20:06:00) [1]

...это на бейсике:

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
"KPD-Team 2000
"URL: http://www.allapi.net/
"E-Mail: KPDTeam@Allapi.net
DoEvents
"block the mouse and keyboard input
BlockInput True
"wait 10 seconds before unblocking it
Sleep 10000
"unblock the mouse and keyboard input
BlockInput False
End Sub

...если надо перевести - на мыло...


Izyum   (2002-06-17 18:27:00) [2]

1. Если мне память не изменяет, то указанная функция (BlockInput) находится в User32.dll - перед использованием нужно ее импортировать
2. При ее использовании вместе с мышкой у тебя заблокируется и клава


Izyum   (2002-06-17 18:26:00) [3]

Если мне память не изменяет, то указанная функция (BlockInput) находится в User32.dll - перед использованием нужно ее импортировать


Manulo   (2002-06-17 17:10:00) [4]

Хм... Путей два ща вспоминаю...
1. Вырубить полностью и клаву и мышку...
BlockInput (true);
Врубаеться аналогично, тока с параметром false

2. Запомни текущее местоположение курсора мышки, а потом по таймеру переводи курсор в него... Точного синтаксиса не помню, посмотри в хелпе по функциям
GetCursorPos
SetCursorPos

Если не палучиться, кидай на мыло месагу, что именно неполучилось. ;)


SerVS   (2002-06-14 16:43:00) [5]

Как ты думаешь, зачем на этом сайте поиск?


Наверх

Титульная страница Поиск, карта сайта Написать письмо