目的:在注册表HKEY_CURRENT_USER/SoftWare/Microsoft目录下搜索有没有mima项,没有的话,则创建,
并读取mima中的内容,如果内容不是1,则重新写入mima的内容为1,之后在重新读取mima中的内容,并将
读取的内容放到str中,在Edit1中显示出来。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//在头文件中加入#include "Registry.hpp"
String str;
TRegistry *Registry = new TRegistry; //创建Registry
Registry->RootKey = HKEY_CURRENT_USER;
try{
if (Registry->OpenKey("Software//Microsoft",true)==true)//打开键值Software//microsoft,如果没有此路径则创建此路径
{
if (!Registry->ValueExists("mima")) //如果mima键值不存在
{
Registry->CreateKey("mima"); //创建mima键值
ShowMessage("创建mima成功!");
}
str = Registry->ReadString("mima"); //读取mima中的内容并存放到str中
if ((str!="1"))
{
Registry->WriteString("mima","1"); //如果str不等于1,则写入mima的值为1
}
str = Registry->ReadString("mima"); //再次读取mima的值
}
}
__finally
{
delete Registry; //删除Registry,释放内存
}
Edit1->Text = str;
}