程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi編程訪問注冊表(3)

Delphi編程訪問注冊表(3)

日期:2017/1/13 9:17:39      編輯:Delphi

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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved