Главная страница
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.016 c
1-95849
lensky
2002-08-17 17:22
2002.08.29
need help, how to make listview work faster, blin....


1-95866
dimonf
2002-08-17 17:42
2002.08.29
Как отменить перетаскивание и минимизирование MDI окна?


3-95633
BJValentine
2002-08-09 13:24
2002.08.29
Delphi+DTS


1-95905
staratel
2002-08-16 13:30
2002.08.29
Работа с формами


1-95843
Александр
2002-08-16 21:44
2002.08.29
OpenDialog