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