Delphi 常見(jiàn)文件處理及注冊(cè)表文件的使用實(shí)例

2020-01-31 20:50:10

字體：大中小

供稿：網(wǎng)友

Delphi 常見(jiàn)文件處理及注冊(cè)表文件的使用實(shí)例

前言：

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

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

看例子

創(chuàng)建節(jié)點(diǎn)

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

刪除值

var  reg:TRegIniFile; begin  reg := TRegIniFile.Create;    //創(chuàng)建實(shí)例  reg.RootKey := HKey_Local_Machine;  //設(shè)置根值  if reg.OpenKey('SOFTWARE/MyReg/MySec',True) then  begin  //刪除HKey_Local_Machine/SOFTWARE/MyReg/MySec下MyValue一項(xiàng)  reg.DeleteValue('MyValue');  end; end;

刪除Key

var  reg:TRegIniFile; begin  reg := TRegIniFile.Create;    //創(chuàng)建實(shí)例  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文件的操作類(lèi)似,

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

上一篇：Delphi實(shí)現(xiàn)獲取進(jìn)程列表及相關(guān)信息的實(shí)例

下一篇：Delphi 在窗體上創(chuàng)建自己光標(biāo)的實(shí)例