2、在窗體Form1上建立三個TbitBtn按鈕、兩個復選框TcheckBox、一個GroupBox1，調整各對象的位置，使其與圖一所示。
（二） 、代碼編輯
1、要使程序能夠正確訪問注冊表，必須在單元文件unit Unit1的interface的 uses中增加注冊表類：Registry。此句千萬不能少。
2、按鈕Bit_all（"全選"按鈕）中的代碼如下：
procedure TForm1.Bit_allClick(Sender: TObject);
begin
A_check.Checked:=true;
B_check.Checked:=true;
end; //當用戶單擊"全選"按鈕時，將兩個復選框都設為選中狀態。
3、按鈕Bit_cancel（"取消"按鈕）中的代碼如下：
procedure TForm1.Bit_cancelClick(Sender: TObject);
begin
A_check.Checked:=false;
B_check.Checked:=false;
end; //當用戶單擊"取消"按鈕時，則取消復選框的選中狀態。
4、按鈕Bit_hide（"隱藏"按鈕）中的代碼如下（主要程序代碼均放在這裡，當用戶按此按鈕時，即完成隱藏驅動器的目的）：
procedure TForm1.Bit_hideClick(Sender: TObject);
var myreg:TRegistry; // 定義Tregistry型變量myreg
temp1,temp2,myval:integer;//temp1和temp2分別保存復選框A_check和B_check的值；
//myval用於保存寫入注冊表的最終值，它等於temp1和temp2的和。
begin
temp1:=0;
temp2:=0;
myval:=0; //初始三個變量。
myreg:=TRegistry.Create;//利用Tregistry的Create方法創建一個實例myreg。
with myreg do
begin
rootkey:=HKEY_LOCAL_MacHINE;//確定打開注冊表的主鍵。
