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

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;