BCB 操作注册表

#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;
}
//---------------------------------------------------------------------------