//---------------------------------------------------------------------------
#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;
}
}
//---------------------------------------------------------------------------
配置文件与注册表的读写
最新推荐文章于 2023-09-03 22:39:00 发布