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

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 &＃61; 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;varForm1: TForm1;implementation{$R *.dfm}uses Registry;procedure TForm1.Button1Click(Sender: TObject);
varreg: TRegistry;
beginreg :&＃61; TRegistry.Create;reg.RootKey :&＃61; HKEY_CURRENT_CONFIG;reg.CreateKey(&＃39;AAA\BBB\CCC&＃39;);reg.OpenKey(&＃39;AAA\BBB\CCC&＃39;, False);reg.WriteString(&＃39;abc&＃39;, &＃39;万一&＃39;);reg.CloseKey;reg.Free;
end;procedure TForm1.Button2Click(Sender: TObject);
varreg: TRegistry;
beginreg :&＃61; TRegistry.Create;reg.RootKey :&＃61; HKEY_CURRENT_CONFIG;reg.OpenKey(&＃39;XXX\YYY\ZZZ&＃39;, True);reg.WriteInteger(&＃39;xyz&＃39;, 132435);reg.CloseKey;reg.Free;
end;procedure TForm1.Button3Click(Sender: TObject);
varreg: TRegistry;
beginreg :&＃61; TRegistry.Create;reg.RootKey :&＃61; HKEY_CURRENT_CONFIG;reg.OpenKey(&＃39;AAA\BBB\CCC&＃39;, False);reg.DeleteValue(&＃39;abc&＃39;);reg.CloseKey;reg.Free;
end;procedure TForm1.Button4Click(Sender: TObject);
varreg: TRegistry;
beginreg :&＃61; TRegistry.Create;reg.RootKey :&＃61; HKEY_CURRENT_CONFIG;reg.OpenKey(&＃39;XXX\YYY&＃39;, False);reg.DeleteKey(&＃39;ZZZ&＃39;);reg.CloseKey;reg.Free;
end;procedure TForm1.Button5Click(Sender: TObject);
varreg: TRegistry;
beginreg :&＃61; TRegistry.Create;reg.RootKey :&＃61; HKEY_CURRENT_CONFIG;reg.DeleteKey(&＃39;AAA&＃39;);reg.DeleteKey(&＃39;XXX&＃39;);reg.CloseKey;reg.Free;
end;end.