Detectar 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.