Ver Mensaje Individual
  #3  
Antiguo 31-10-2022
Yps Yps is offline
Registrado
 
Registrado: sep 2019
Posts: 9
Reputación: 0
Yps Va por buen camino
Ante todo gracias por el interés.

Los dispositivos que quiero detectar son usb, lo que quiero es que cada vez que conecte un dispositivo de almacenamiento por USB pueda obtener sus propiedades tales como capacidad, espacio libre, etc. todo desde un servicio de windows.


Código Delphi [-]
procedure TForm1.WMDevicechange(var Msg: TMessage); // Procedimiento que captura el mensaje de windows al conectar un dispositivo.
const
  CD_METIDO = $8000;
  CD_SACADO = $8004;
begin
  inherited;
  case Msg.WParam of
    CD_METIDO:
      begin
        Conectado(True, True);
      end;
    CD_SACADO:
      Desconectado;
  end;
end;


esta es la forma en que lo hago en una app normal, pero no me funciona en un servicio.
Responder Con Cita