delphi禁用、启用USB

{-------------------------------------------------------------------------------
  函数名:    EnabledUSB
  参数:      Enabled:Boolean
  返回值:    Boolean
  所需单元:  Registry
  使用方法:  禁用USB: EnabledUSB(False);
             启用USB: EnabledUSB(True);
-------------------------------------------------------------------------------}

function EnabledUSB(Enabled:Boolean):Boolean;
var
  Reg:Tregistry;
begin
  try
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SYSTEM\CurrentControlSet\Services\UsbStor',false);
    if Enabled=True then
      Reg.WriteInteger('Start',3)
    else
      Reg.WriteInteger('Start',4);
    Reg.Free;
  except
    Application.MessageBox('无法打开注册表,请使用管理员权限!', '提示', MB_OK +
      MB_ICONWARNING);
  end;
end;