Dispositivos en servicio de Windows

[Yps]

Cómo detectar dispositivos conectados desde un servicio de Windows desde Delphi?

[Neftali [Germán.Estévez]]

Empezado por Yps

Cómo detectar dispositivos conectados desde un servicio de Windows desde Delphi?

¿Exactamente qué dispositivos quieres detectar? ¿USB? ¿Impresoras?
Normalmente con WMI puede hacerse sin grandes problemas.

[Yps]

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.

[Neftali [Germán.Estévez]]

Empezado por Yps

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.

Aquí tienes todas las clases de WMI que se refieren a Hardware.
https://learn.microsoft.com/en-us/wi...puter-hardware

Puedes detectar los dispositivos conectados utilizando:
Select * from Win32_PnPEntity

Empezado por Yps

Cómo detectar dispositivos conectados desde un servicio de Windows desde Delphi?

Hay que tener en cuenta que no todos los dispositivos que se conectan vía USB tienen capacidad, espacio libre,...
Si deseas acceder a la información de los discos, tal vez debas revisar otras clases tipo Win32_DiskDrive

Por otro lado, si piensas en capacidad, espacio libre,... es posible que tengas que pensar en particiones y no en discos.