Delphi经典实例7------显示/隐藏驱动器盘符

如下图所示建立工程：

代码如下：

unit mainunit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Registry, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public function GetObjectSize(SpecCode:String):Integer; function Get32BitValue(SpecCode:String):Integer; procedure HideSpecDrive(SpecCode:String); { Public declarations } end; var Form1: TForm1; BufSize:Integer; //用来存储要写入对象的大小 P1:Pointer; //指针类型，指向内存当中表示写入对象的二进制地址 VisibleState:Boolean; implementation {$R *.dfm} function TForm1.GetObjectSize(SpecCode:String):Integer; var I:Integer; begin Result:=0; for I:=1 to Length(SpecCode) do begin if (SpecCode[I]=' ') then INC(Result); end; if Result<>0 then INC(Result); end; procedure TForm1.HideSpecDrive(SpecCode:String);//这里把二进制值用String传递过来 var Reg:TRegistry; begin Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CURRENT_USER; if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer',True)then begin BufSize:=GetObjectSize(SpecCode);//获取对象大小 GetMem(P1,BufSize); //给指针按照对象大小分配内存 P1:=Ptr(Get32BitValue(SpecCode));//用指针指向写入对象，该对象在内存中为二进制 Reg.WriteBinaryData('NoDrives',P1,BufSize);//把指针指向的对象写入注册表 end; finally Reg.CloseKey; Reg.Free; end; end; function TForm1.Get32BitValue(SpecCode:String):Integer; var I:Integer; TempStr:String; begin TempStr:=''; for i:=Length(SpecCode) downto 1 do begin if SpecCode[I]=' ' then begin TempStr:=TempStr+Copy(SpecCode,I+1,2); end; end; TempStr:='$'+TempStr+Copy(SpecCode,1,2); Result:=StrToInt(TempStr); end; procedure TForm1.Button1Click(Sender: TObject); var Reg:TRegistry; begin if VisibleState then begin HideSpecDrive('0C 00 00 00'); VisibleState:=False; Label2.Caption:='不可见'; Button1.Caption:='显示C盘和D盘的驱动器盘符(&S)'; end else begin HideSpecDrive('00 00 00 00'); VisibleState:=True; Label2.Caption:='可见'; Button1.Caption:='隐藏C盘和D盘的驱动器盘符(&S)'; end; end; procedure TForm1.FormCreate(Sender: TObject); var Reg:TRegistry; State:Integer; begin Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CURRENT_USER; if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer',True)then begin if Reg.ValueExists('NoDrives') then begin State:=Reg.ReadBinaryData('NoDrives',State,SizeOf(State)); end else State:=0; end; finally Reg.CloseKey; Reg.Free; end; if State=4 then begin VisibleState:=False; Label2.Caption:='不可见'; Button1.Caption:='显示C盘和D盘的驱动器盘符(&S)'; end else begin VisibleState:=True; Label2.Caption:='可见'; Button1.Caption:='隐藏C盘和D盘的驱动器盘符(&S)'; end; end; end.

 

 

资料：

大家在隐藏盘符的时候一般都是靠软件设置的,要手动更改恐怕不知道键值该设为多少,下面来详解一下:      

　　打开注册表进入以下路径:       HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/       新建键值NoDrives,这个键的键值就是隐藏盘符的关键了,下面是一张隐藏数值例表(二进制).
说明一下吧,我也是用了很多时间才研究出来的,我们应该把这些值看成四区 00 00 00 00

　　第一区控制盘符a-h,第二区控制盘符i-p,第三区控制盘符q-x,第四区控制y和z盘符

　　一直下去都是以倍数关系的,比如A盘为01,B盘则为02,再下去就是C盘02*2=04了,不过到D盘08后,因为是16进制计算的(别告诉我你不知道什么是16进制),所以E盘08*2为16,进一位就要写成E盘10了,然后再下去F盘10*2=20.......

　　如果要隐藏二个分区那就把数值相加即可,比如要同时隐藏A盘和F盘,数值为01000000 + 20000000 = 21000000,如果要隐藏这个区的全部盘要写成FF(十六进制最后位)

隐藏文件夹:
1.完全隐藏
　　第一步，把文件夹(最好用英文名)的属性设为隐藏。
　　第二步，进入注册表(运行regedit)，将HKEY_LOCAL_MACHINE主键下子键Software/Microsoft/Windows/CurrentVerssion/explorer/Advanced/Folder/Hidden/SHOWALL下的值CheckedValue改为0。
　　第三步，查看(工具)－文件夹选项－查看－选中“显示所有文件”。
　　这样就无法看隐藏属性的文件夹了。只能在地址栏中输入完整的路径进入该文件夹。
2.欺骗隐藏
　　将文件夹(例如原名是new)改名为∶new.wav.{00020c01-0000-0000-c000-000000000046}。