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
[-]
EnableUSB(FALSE);
EnableUSB(TRUE);