Скачать: CL | DM;

Работает ли мышь? Как поределить програмно?   Найти похожие ветки 

← →
cerber1 ©   (2004-10-29 21:45) [0]

Собственно вопрос в названии. Ответы типа :подергать мышь и помотреть на экран не принимаются ибо надо ПРОГРАММНО. Слышал про  такую возможность и чита у Гука, но не видел сорцов.

---

← →
miek ©   (2004-10-29 21:50) [1]

1) COM-порт, отведенный мыши, должен быть занят (если это COM-мышь)
2) По нему постоянно должна идти передача

---

← →
cerber1 ©   (2004-10-29 21:56) [2]

2 miek ©   (29.10.04 21:50) [1]

1. если не дергать мішь то там нихрена не идет - проверено осцилографом
2. А если PS/2?

---

← →
abc   (2004-10-29 22:17) [3]

Как узнать, присутствует ли мышка?

function MousePresent: boolean;
begin
  if GetSystemMetrics( SM_MOUSEPRESENT ) <> 0 then
     Result := true
  else
     Result := false;
end;

---

← →
OSokin ©   (2004-10-30 17:43) [4]

Еще метод (тока не знаю, прокатит ли):

type
 TMouseData=record
   mversion:word;     //Версия мышки
   mtype:byte;        //Тип (1-bus,2-serial,3-InPort,4-PS/2,5-HP)
   mintr:byte;        //Прерывание (0-PS/2,2-IRQ2,3-IRQ3,...,7-IRQ7)
   mpresent:boolean;  //Присутствует ли мышка
 end;

...

function MouseData:TMouseData;
var
 temp:TMouseData;
 tempw:word;
begin
asm
 mov ax,0024h
 int 33h
 mov tempw,ax
 mov temp.mversion,bx
 mov temp.mtype,ch
 mov temp.mintr,cl
end;
if tempw=$FFFF then temp.mpresent:=false else temp.mpresent:=true;
Result:=temp;
end;


---

← →
cerber1 ©   (2004-10-31 13:18) [5]

2 abc   (29.10.04 22:17) [3]

Вопрос не в том присутствует или нет, а в том "Работает ли мышь?". Знаю, что есть возможность ввести мышь в режим похожий на "эхо" в СОМ-портах, а вот как, не знаю.  

2 OSokin ©   (30.10.04 17:43) [4]

1. см. выше("присутствует<>работает")
2. Под ХР "int 33h" - сомневаюсь что заработает.

---

← →
OSokin ©   (2004-10-31 18:01) [6]

Сорри, не увидел.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c