使用 TRegistry 类[3]: 创建与删除

代码文件:

---

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    Button5: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button4Click(Sender: TObject);    procedure Button5Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses Registry;procedure TForm1.Button1Click(Sender: TObject);var  reg: TRegistry;begin  reg := TRegistry.Create;  reg.RootKey := HKEY_CURRENT_CONFIG;  reg.CreateKey('AAA\BBB\CCC');  reg.OpenKey('AAA\BBB\CCC', False);  reg.WriteString('abc', '万一');  reg.CloseKey;  reg.Free;end;procedure TForm1.Button2Click(Sender: TObject);var  reg: TRegistry;begin  reg := TRegistry.Create;  reg.RootKey := HKEY_CURRENT_CONFIG;  reg.OpenKey('XXX\YYY\ZZZ', True);  reg.WriteInteger('xyz', 132435);  reg.CloseKey;  reg.Free;end;procedure TForm1.Button3Click(Sender: TObject);var  reg: TRegistry;begin  reg := TRegistry.Create;  reg.RootKey := HKEY_CURRENT_CONFIG;  reg.OpenKey('AAA\BBB\CCC', False);  reg.DeleteValue('abc');  reg.CloseKey;  reg.Free;end;procedure TForm1.Button4Click(Sender: TObject);var  reg: TRegistry;begin  reg := TRegistry.Create;  reg.RootKey := HKEY_CURRENT_CONFIG;  reg.OpenKey('XXX\YYY', False);  reg.DeleteKey('ZZZ');  reg.CloseKey;  reg.Free;end;procedure TForm1.Button5Click(Sender: TObject);var  reg: TRegistry;begin  reg := TRegistry.Create;  reg.RootKey := HKEY_CURRENT_CONFIG;  reg.DeleteKey('AAA');  reg.DeleteKey('XXX');  reg.CloseKey;  reg.Free;end;end.