本文整理自网络，侵删。
{-------------------------------------------------------------------------------
函数名: 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;
相关阅读 >>
Delphi windows 编程[15] - 菜单消息: wm_command
更多相关阅读请进入《Delphi》频道 >>
