Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Блокирование мыши и клавы

Автор: Darkwolf 27.7.2005, 17:23

Надо заблокироать мышь и клаву в win 2000/xp. smile

Автор: CoopeR 12.8.2005, 20:34

Клаву, не помню как, но мышку можно блокировать указанием области, за пределы клоторой указатель мыши не может "выходить"!

"Типa" так:

Код


//Block Mouse

var
m_p:trect;
begin
m_p:=rect(0,0,1,1) //Координаты области
clipcursor(@m_p);
end;

//UnBlock Mouse

var 
m_p:trect;
begin
m_p:=rect(0,0,Screen.Width,Screen.Height); //Координаты всего экрана
clipcursor(@m_p);
end;

p.s. После закрытия приложения мышка всё равно останеться в этой области... так что аккуратно! smile

Автор: Song 13.8.2005, 12:57

BlockInput
CAD не заблокируется.