快捷導(dǎo)航

Delphi 常見文件處理及注冊表文件的使用實例

更新時間：2017年09月04日 09:14:05 作者：bdmh

這篇文章主要介紹了Delphi 常見文件處理及注冊表文件的使用實例的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下

Delphi 常見文件處理及注冊表文件的使用實例

前言：

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

function CreateKey(const Key: String): Boolean; 創(chuàng)建Key
function OpenKey(const Key: String; CanCreate: Boolean): Boolean; 打開Key,當(dāng)CanCreate為True時,如果Key不存在,會自動創(chuàng)建
procedure EraseSection(const Section: String); 刪除
WriteString,WriteInteger,WriteBool,WriteCurrency 寫值
ReadString,ReadInteger,ReadBool,ReadCurrency 讀值
ReadSection,ReadSections,ReadSectionValues 這些是不是很眼熟,和INI文件的方法一樣

看例子

創(chuàng)建節(jié)點

var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //創(chuàng)建實例 
 reg.RootKey := HKey_Local_Machine;  //設(shè)置根值 
 if reg.OpenKey('SOFTWARE/MyReg',True) then  //打開 HKey_Local_Machine/SOFTWARE/MyReg,如果MyReg不存在,則自動創(chuàng)建 
 begin 
 //在HKey_Local_Machine/SOFTWARE/MyReg下創(chuàng)建MySec項,然后在MySec中創(chuàng)建一個字符串MyValue,值為China 
 reg.WriteString('MySec','MyValue','China'); 
 end; 
end;

刪除值

var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //創(chuàng)建實例 
 reg.RootKey := HKey_Local_Machine;  //設(shè)置根值 
 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;    //創(chuàng)建實例 
 reg.RootKey := HKey_Local_Machine;  //設(shè)置根值 
 if reg.OpenKey('SOFTWARE/MyReg',True) then 
 begin 
 //刪除HKey_Local_Machine/SOFTWARE/MyReg下的MySec 
 reg.EraseSection('MySec'); 
 end; 
end;

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

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

您可能感興趣的文章: