Foros Club Delphi - Saber si se desconecta un mouse usb

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Saber si se desconecta un mouse usb (https://www.clubdelphi.com/foros/showthread.php?t=60848)

Dean	15-10-2008 23:29:37

Saber si se desconecta un mouse usb

hola como hago para saber cuando el usurio desconecta el mouse usb de la maquina
gracias de antemano

PD:Es en Delphi.

cHackAll

17-10-2008 15:33:16

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
 hKey: Windows.HKEY;
 cbData, Count: Cardinal;
begin
 cbData := SizeOf(Count);
 RegOpenKey(HKEY_LOCAL_MACHINE, 'system\currentcontrolset\services\mouclass\enum', hKey);
 RegQueryValueEx(hKey, 'count', nil, nil, @Count, @cbData);
 RegCloseKey(hKey);
 
 ShowMessage(IntToStr(Count));
end;

roman

17-10-2008 16:21:16

Cita:

Empezado por Dean (Mensaje 320388)

PD:Es en Delphi.

Entonces el foro de Kylix no es el más adecuado. Muevo el mensaje a Api de Windows.

// Saludos

Dean	17-10-2008 20:41:41

esta funcion me decvuelve un numero el 2
no se supone que me devolviera 0 sino no hay mouse conectado

cHackAll

19-10-2008 15:30:48

Cita:

Empezado por Dean (Mensaje 320817)

esta funcion me decvuelve un numero el 2
no se supone que me devolviera 0 sino no hay mouse conectado

A ver... la alternativa que te presento debiese funcionar asi: corres la funcion con el mouse conectado, te retornará X... ahora desconectalo y prueba de nuevo; deberia retornarte X-1

La franja horaria es GMT +2. Ahora son las 08:39:00.