Delphi 常見檔案處理及登錄檔案的使用實例

Delphi 常見檔案處理及登錄檔案的使用實例

前言：

Registry為我們提供了操作註冊表的方法,這裡我們用TRegIniFile提供的方法,TRegIniFile繼承自TRegistry,TRegIniFile提供的方法類似於前面講到的操作Ini文件的方法,這樣就大大簡化了我們操作"神秘"註冊表的方法,以下是常用的方法:

1. function CreateKey(const Key: String): Boolean; 建立Key
2. function OpenKey(const Key: String; CanCreate: Boolean): Boolean; 開啟Key,當CanCreate為True時,如果Key不存在,會自動建立
3. procedure EraseSection(const Section: String); 刪除
4. WriteString,WriteInteger,WriteBool,WriteCurrency 寫值
5. ReadString,ReadInteger,ReadBool,ReadCurrency 讀取值
6. ReadSection,ReadSections,ReadSectionValues 這些是不是很眼熟,和INI檔案的方法一樣

看例子

建立節點

var reg:TRegIniFile; begin reg := TRegIniFile.Create; //建立實例reg.RootKey := HKey_Local_Machine; //設定根值if reg.OpenKey('SOFTWARE/MyReg',True) then //開啟HHKey_Local_Machine/SOFTWARE/MyReg',True) then //開啟HKey_Local_Machine/SOFTWARE/RARE MyReg,如果MyReg不存在,則自動建立begin //在HKey_Local_Machine/SOFTWARE/MyReg下建立MySec項目,然後在MySec中建立一個字串MyValue,值為China reg.WriteString('MySec','MyValue','China'); end; end;

刪除值

var reg:TRegIniFile; begin reg := TRegIniFile.Create; //建立實例reg.RootKey := HKey_Local_Machine; //設定根值if reg.OpenKey('SOFTWARE/MyReg/MySec',True) then begin //刪除HKey_Local_Machine/SOFTWARE/MyReg/MySec下MyValue一項reg.DeleteValue('MyValue'); end; end;

刪除Key

 var reg:TRegIniFile; begin reg := TRegIniFile.Create; //建立實例reg.RootKey := HKey_Local_Machine; //設定根值if reg.OpenKey('SOFTWARE/MyReg',True) then begin //刪除HKey_SOLocal_Machine/1 /MyReg下的MySec reg.EraseSection('MySec'); end; end;

讀取Key的列表以及讀取Key下值的列表都與INI檔案的操作類似,

如有疑問請留言或到本站社區交流討論，感謝閱讀，希望能幫助大家，謝謝大家對本站的支持！