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