procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
? Registry:TRegistry;
begin
? Registry:=TRegistry.Create;//創建TRegistry類的變量
? Registry.RootKey:=HKEY_CURRENT_USER;//打開注冊表中根鍵
? if Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True) then
? //A驅為1，B驅為2，C驅為4，D驅為8，以后類推，得出的數字換成16進制，低位在前，高位在后。
??//如隱藏A、B、C三個盤為 ? 07 ? 00 ? 00 ? 00，如為隱藏的所有驅動器 ? FF ? FF ? FF ? FF?
? Registry.WriteInteger('NoviewOnDrive',$4);
? Registry.WriteInteger('NoDrives',$4);
? SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0);
end;