配置文件与注册表的读写

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include <Registry.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	// 读取配置文件
	TIniFile *ini;
	ini = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
	Top = ini->ReadInteger("Form", "Top", 100);
	Left = ini->ReadInteger("Form", "Left", 100);
	Caption = ini->ReadString("Form", "Caption", "Default Caption");
	ini->ReadBool("Form", "InitMax", false) ? WindowState = wsMaximized :
									WindowState = wsNormal;
	delete ini;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
	// 写入配置文件
	TIniFile *ini;
	ini = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
	ini->WriteInteger("Form", "Top", Top);
	ini->WriteInteger("Form", "Left", Left);
	ini->WriteString("Form", "Caption", Caption);
	ini->WriteBool("Form", "InitMax", WindowState == wsMaximized);
	delete ini;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click(TObject *Sender)
{
	// 写入注册表
	TRegistry *Registry;
	Registry = new TRegistry;
	try
	{
		Registry->RootKey = HKEY_LOCAL_MACHINE;
		Registry->CreateKey("SOFTWARE\\Wellyouknow");
		Registry->OpenKey("SOFTWARE\\Wellyouknow", false);
		Registry->WriteString("Well", "恩、你懂的");
	}
	__finally
	{
		delete Registry;
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn2Click(TObject *Sender)
{
	// 读出注册表
	TRegistry *Registry;
	Registry = new TRegistry;
	try
	{
		Registry->RootKey = HKEY_LOCAL_MACHINE;
		// False because we not do create it if it doesn't exist
		Registry->OpenKey("SOFTWARE\\Wellyouknow", false);
		ShowMessage(Registry->ReadString("Well"));
	}
	__finally
	{
		delete Registry;
	}
}
//---------------------------------------------------------------------------