Detectar USB
 

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

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. :)

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... :)

Hola.

Muy bueno el truco !!:)

Hace tiempo andaba buscando como hacerlo.

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

Salu2:p:D

Hola BlueSteel.

Seoane puso como hacerlo aquí .

Un saludo.