unit1.pas

U盘防写、禁用的DELPHI源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,shellapi,Registry, ComCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button1: TButton;
    Label3: TLabel;
    Button4: TButton;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var myreg:TRegistry;
begin
myreg:=TRegistry.Create;
with myreg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
if openkey('\SYSTEM\CurrentControlSet\Services\USBSTOR',true) and ValueExists('Start') then
begin
if readinteger('Start')=4 then
CheckBox1.Checked:=true;
if readinteger('Start')=3 then
CheckBox1.Checked:=false;
end;
if openkey('\SYSTEM\CurrentControlset\control\StorageDevicePolicies',true) and ValueExists('WriteProtect') then
begin
if readinteger('WriteProtect')=1 then
CheckBox2.Checked:=true;
if readinteger('WriteProtect')=0 then
CheckBox2.Checked:=false;
end;
myreg.CloseKey;
myreg.Free;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
application.terminate;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  s,s1,s2,reg1,reg2:string;
begin
s:=inputbox('身份确认','输入密码 ： ','');
if s<>'62720910' then
Application.MessageBox('您没有修改权限！','警告',MB_OK+MB_ICONSTOP)
else
begin
  Reg := TRegistry.Create;
If (Reg.OpenKey('\SYSTEM\CurrentControlset\control\StorageDevicePolicies',false))=false
then
if Reg.OpenKey('\SYSTEM\CurrentControlset\control', True) then
begin
Reg.CreateKey('StorageDevicePolicies');
end;
begin
  Reg := TRegistry.Create;
  s1:='Start';
  s2:='WriteProtect';
  reg1:='\SYSTEM\CurrentControlSet\Services\USBSTOR'; //禁止
  reg2:='\SYSTEM\CurrentControlset\control\StorageDevicePolicies';//写保护
// try
//修改 _LOCAL_MACHINE;
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey(reg1,true) then
  if CheckBox1.Checked=true then
  Reg.Writeinteger(s1,4)//标题
  else
  Reg.Writeinteger(s1,3);//标题
if Reg.OpenKey(reg2,true) then
if CheckBox2.Checked=true then Reg.Writeinteger(s2,1);//解锁主页
if CheckBox2.Checked=false then Reg.Writeinteger(s2,0);//解锁主页
showmessage('设置成功，请您放心使用！');
end;
end;
end;
end.