[Ferrari]

De la seccion de trucos, Autor: Domingo Seoane

A veces, por motivos de seguridad, necesitamos impedir el uso de memorias USB en un equipo. Esta funcion permite habilitar y deshabilitar el uso de las mismas:

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

Ejemplo de uso:

Código Delphi [-]
// Esto las deshabilita
  EnableUSB(FALSE);
  // Esto las vuelve a habilitar
  EnableUSB(TRUE);
  // Solo afecta a las memorias que se conecten despues