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;//確定打開注冊表的主鍵。