Мышь

[Михаил Юрьевич]

Как програмно отключить и включить мышь

[ruPy]

Это для Delphi.
procedure BlockInput; external 'user32.dll';
//далее пиши в кнопку или куда надо
asm
push 1
call BlockInput
end; //end здесь обязателен!!!

Только он блокирует мышь и клаву, чтоб разблокировать поменяй 1 на 2

[Карась]

А может на 0 а не на 2?

http://pblog.ru/?p=21

[Михаил Юрьевич]

Полностью и мышь и клавиатура не подходит,
Мне хотя бы чтоб на клавиатуре ввод цифр работал

[AlDelta]

Для Timer, в обработку события OnTimer, добавь следующий код (Interval - 10):

SetCursorPos(Screen.Width, Screen.Height);

Мышь не отключит, но...

Мне хотя бы чтоб на клавиатуре ввод цифр работал

А можно узнать зачем?

[mihali4]

Вот как вариант для тестирования:

procedure TForm2.Button1Click(Sender: TObject);
var curpos: TPoint;
    lockrect: TRect;
    n: integer;
begin
//"выключаем" мышку
n:=1; //при 1 мышь неподвижна, другие значения дают ей 
//возможность затравленно дергаться
GetCursorPos(curpos);
lockrect.Right:=curpos.X;
lockrect.Left:=lockrect.Right-n;
lockrect.Bottom:=curpos.Y;
lockrect.Top:=lockrect.Bottom-n;
ClipCursor(@lockrect);
end;

procedure TForm2.Button2Click(Sender: TObject);
var lockrect: TRect;
begin
//"включаем" мышку
lockrect.Left:=0;
lockrect.Top:=lockrect.Left;
lockrect.Right:=GetSystemMetrics(SM_CXSCREEN);
lockrect.Bottom:=GetSystemMetrics(SM_CYSCREEN);
ClipCursor(@lockrect);
end;

[Иллидан]

Это для Delphi.
procedure BlockInput; external 'user32.dll';
//далее пиши в кнопку или куда надо
asm
push 1
call BlockInput
end; //end здесь обязателен!!!

Подскажите, какой модуль надо подключить, что-бы код заработал?

[Terran]

Иллидан, тут модули не надо подключать. Посмотри ссылку, этот код уже обсуждался на форуме:

http://programmersforum.ru/showthread.php?t=20216

[Zloy_Doomer]

Сообщение от Иллидан

Подскажите, какой модуль надо подключить, что-бы код заработал?

Не нада ниче подключать просто пиши
procedure BlockInput; external 'user32.dll'; там где ты обьявляеш созданные тобой процедуры...
Перед implementation и все а потом оставшейся код в твоей процедуре...