注册表-盘符16进制表、隐藏盘符实例

1.================================================================

0000000为不隐藏或禁止所以驱动器，FFFFFFFF相反。

00000001-A
00000002-B
00000004-C
00000008-D
00000010-E
00000020-F
00000040-G
00000080-H
00000100-I
00000200-J
00000400-K
00000800-L
00001000-M
00002000-N
00004000-O
00008000-P
 
例子：
隐藏D盘\禁止D盘：
NoDrives=00000008
NoViewOnDrive=00000008

如果要隐藏几个盘，只要把相应盘符的值相加就行，是逢16进1。
例子：
隐藏D盘、E盘，禁止E盘、F盘
NoDrives=00000018
NoViewOnDrive=00000030

2.==============================================================

2.发送安装系统信息====================================================

procedure NoDriver(HideNumber: integer);
var Reg2: TRegistry;
begin
Reg2 := TRegistry.Create;
try
with Reg2 do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
WriteInteger('NoViewOnDrive', HideNumber);
CloseKey;

RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
WriteInteger('NoViewOnDrive', HideNumber);
CloseKey;
end;
finally
Reg2.Free;
end;
sendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0); //发送安装信息广播
end;