#include <registry.hpp> //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TRegistry * reg = new TRegistry; reg->RootKey = HKEY_CURRENT_USER; //设置当前默认根键 reg->OpenKey("\SOFTWARE\TestInfo\Name",true); if(!reg->ValueExists("info"))//打开节点,如果不存在,则创建 { reg->WriteString("Info","信息"); //写入当前节点的属性,和值 ShowMessage("第一次访问"); } else { ShowMessage("非第一次访问"); } reg->CloseKey();//关闭节点会自动保存 delete reg; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { TRegistry * reg = new TRegistry; reg->RootKey = HKEY_CURRENT_USER; reg->OpenKey("\SOFTWARE\TestInfo\Name",true); AnsiString s = reg->ReadString("info"); ShowMessage(s); reg->CloseKey(); delete reg; } //---------------------------------------------------------------------------