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

原创

于 2024-05-15 08:36:28 发布 · 402 阅读

8 ·

CC 4.0 BY-SA版权

文章标签：

#DELPHI #开发语言 #笔记

本文介绍了如何使用Delphi编程禁用U盘和移动硬盘。通过核心源码展示了在注册表中修改USBSTOR服务的启动值以实现禁用，同时提供了重启系统生效的提醒。

文章目录

- 禁用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;
begin
Reg:=Tregistry.Create;
try
reg.RootKey:=Windows.HKEY_LOCAL_MACHINE;