Detectar USB

[mefixxto]

Como hago que mi aplicacion desabilite y habilite los usb??

[ecfisa]

Hola mefixxto.

Desde Delphi, se puede hacer así:

Código Delphi [-]
procedure ActivarUSB(Activo: Boolean);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKey('\SYSTEM\CurrentControlSet\Services\USBSTOR',True) then
    begin
      if Activo then
        WriteInteger('Start',3)
      else
        WriteInteger('Start',4);
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Ejemplos de llamada:

Código Delphi [-]
...
procedure TForm1.btActivarClick(Sender: TObject);
begin
  ActivarUSB(True);
end;

procedure TForm1.btDesactivarClick(Sender: TObject);
begin
  ActivarUSB(False);
end;
...

Saludos.

[javier_ecf]

El tema se llama 'Detectar USB' causa confusion con el verdadero problema que era habilitar/deshabilitar el puerto USB.

[look]

Empezado por javier_ecf

El tema se llama 'Detectar USB' causa confusion con el verdadero problema que era habilitar/deshabilitar el puerto USB.

bueno, igual no deja de estar bueno el truco que expuso el compañero...

[Hamizura]

Hola.

Muy bueno el truco !!

Hace tiempo andaba buscando como hacerlo.

[[BlueSteel]]

Y como se tendria que hacer para detectar que dispositivo esta conectado a un puerto USB en particular....

Salu2

[ecfisa]

Empezado por BlueSteel

Y como se tendria que hacer para detectar que dispositivo esta conectado a un puerto USB en particular....

Salu2

Hola BlueSteel.

Seoane puso como hacerlo aquí .

Un saludo.