2,643
社区成员
发帖
与我相关
我的任务
分享
var
FrmUSB: TFrmUSB;
Reg:Tregistry;
implementation
{$R *.dfm}
procedure TFrmUSB.FormShow(Sender: TObject);
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Services\UsbStor',false);
end;
procedure TFrmUSB.ButtonDISClick(Sender: TObject);
begin
Reg.WriteInteger('Start',3);
Showmessage('USB 被启用,请重启计算机');
end;
procedure TFrmUSB.ButtonENClick(Sender: TObject);
begin
Reg.WriteInteger('Start',4);
Showmessage('USB 被禁用,请重启计算机');
end;
procedure TFrmUSB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Reg.Free;
end;