Impedir el uso de memorias USB

[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:


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:

// Esto las deshabilita
EnableUSB(FALSE);
// Esto las vuelve a habilitar
EnableUSB(TRUE);
// Solo afecta a las memorias que se conecten despues