Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Кaк выpубить, а потом снова врубить мышь???   Найти похожие ветки 

 
Transnet.   (2002-06-14 12:35) [0]

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


 
DoC   (2002-06-14 13:45) [1]

Не понял - просто чтоб не двигалась? или же полностью заблокировать?
Если чтоб не двигалась:
//WG:TRect;
WG:=Rect(0,0,0,0);
ClipCursor(@WG);

а назад:
WG:=Rect(0,0,Screen.Width,Screen.Height);
ClipCursor(@WG);

а если полностью - по аналогии с клавой:

// Dummy : integer=0;
// OldKbHook : HHook=0;

function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt; stdcall;
// Обработчик клавы
begin
if code<0 then Result:=CallNextHookEx( oldKbHook, code, wparam, lparam )
else Result:=1;
end;

// Включение клавы
procedure KeyBoardOn;
begin
if OldKbHook <> 0 then
begin
UnHookWindowshookEx( OldKbHook );
OldKbHook := 0;
end;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, Nil, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, Nil, 0);
end;

// Выключение клавы
procedure KeyBoardOff;
begin
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx( WH_KEYBOARD, @KbHook, HInstance, 0 );
end;


 
Song ©   (2002-06-14 14:02) [2]

УЖАС!!!

Нагромождение всего и вся...


 
VID ©   (2002-06-14 20:40) [3]

TO Doc: Если тобою приведённый пример взят из UBPFD, то хочу тебя проинформить, что этот юнит претерпел обновление... вырезаны некоторые ненужные (с точки зрения задачи) участки.

Причём в данном примере, мышка двигается, но не работают её левый и правый клик.
Полная блокировка мышки и клавы - через BlockInput (тоже есть в UBPFD)

TO SONG: ну что ж... бывает :) зато работает как танк, уж поверь!
Кстати, это не мною написано, я это просто опубликовал.


 
~Rand~ ©   (2002-06-16 09:10) [4]

Удалено модератором



Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-95799
ga3
2002-08-19 05:58
2002.08.29
Задачка для математиков или близких к ним


1-95746
Kif
2002-08-16 20:14
2002.08.29
Как программно узнать длину (в пикселях) Sys Tray’а?


3-95706
Andrew2
2002-08-08 15:28
2002.08.29
Получить список алиасов


6-95919
BlackSun
2002-06-18 17:39
2002.08.29
Как переслать по сети изображение?


1-95789
Андрусь
2002-08-19 19:27
2002.08.29
Как програмно поменять раскладку клавиатуры.