function ValueExists(const Name: string): Boolean;
(5)關閉一個鍵:CloseKey;
procedure CloseKey;
(三)、設計方法(分為注冊表的讀寫兩部分)
1、"隱藏"按鈕中代碼的設計思想(注冊表的寫操作)
(1)、當用戶單擊"隱藏"按鈕時,就利用OpenKey方法打開注冊表的 HKEY_LOCAL_MacHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\PolicIEs\explorer,判斷其下是否存在"NoDrives"鍵。若此鍵不存在,就自動建立它。然後,根據用戶選擇的選擇修改"NoDrives"的值。用戶的選擇和NoDrives的值對應關系如下:
用戶選擇"A驅",則NoDrives的值為:1;
用戶選擇"B驅",則NoDrives的值為:2;
用戶同時選擇"A驅"和"B驅",則NoDrives的值為:3;
(2)、根據用戶的選擇,利用方法WriteInteger(),將NoDrives的值寫入注冊表;
(3)、利用CloseKey關閉打開的主鍵。
2、(注冊表的讀操作)為了實現程序啟動時能自動判斷系統驅動器的當前狀態,還要在Form1的FormCreate()方法中利用ReadInteger()和ValueExists()讀取注冊表中NoDrives的值。然後根據讀出的NoDrives的值設置窗體上兩個復選的選擇狀態。NoDrives的值與復選框的狀態對應關系如下:
NoDrives的值為1,則窗體上"A驅"復選框處於選中狀態;
NoDrives的值為2,則窗體上"B驅"復選框處於選中狀態;
NoDrives的值為3,則窗體上"A驅"和"B驅"復選框同時處於選中狀態;
三、設計過程
(一)、界面的建立
1、啟動Delphi5,新建一個窗體Form1;