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.