【控件功能】我来做练习-禁用U盘移动硬盘

禁用U盘移动硬盘

提示：这里可以添加技术概要

核心源码

procedure TForm2.Button1Click(Sender: TObject);
var
Reg:Tregistry;
tempkey:string;
begin
Reg:=Tregistry.Create;
try
reg.RootKey:=Windows.HKEY_LOCAL_MACHINE;
tempkey:=‘\SYSTEM\CurrentControlSet\Services\USBSTOR’;
if reg.OpenKey(tempkey,true) then
begin
Reg.WriteInteger(‘Start’,4);
end;
finally
Reg.CloseKey;
Reg.Free;
end;
//GetUSBType;
if MessageBox(self.Handle,pchar(‘只有重启系统,设置才生效,您确认要重启系统么’),‘提示’,MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONWARNING)=idCANCEL then Exit;
ExitWindowsEx(EWX_REBOOT,0);
end;

procedure TForm2.Button2Click(Sender: TObject);
var
Reg:Tregistry;
tempkey:string;