unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

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

#include <vcl.h>
#include <Registry.hpp>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        TRegistry* Reg=new TRegistry;
        try
        {
                Reg->RootKey=HKEY_CURRENT_USER;
                if( Reg->OpenKey("\\Software\\test\\File List", false)==false )
                {
                        Reg->CreateKey("\\Software\\test\\File List");
                        Reg->OpenKey("\\Software\\test",True);
                        Reg->WriteString("Version", "1.0");
                        Reg->CloseKey();
                        Reg->OpenKey("\\Software\\test\\File List", true);
                        Reg->WriteString(1,"");
                        Reg->WriteString(2,"");
                        Reg->WriteString(3,"");
                        Reg->WriteString(4,"");
                        Reg->WriteString(5,"");
                }
        }
        __finally
        {
                Reg->CloseKey();
                delete Reg;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(OpenDialog1->Execute())
                Edit1->Text=OpenDialog1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        TRegistry* Reg=new TRegistry;
        try
        {
                Reg->RootKey = HKEY_CURRENT_USER;
                if( Reg->OpenKey("\\Software\\test\\File List", false)!=false )
                { 
                        Reg->WriteString(5,Reg->ReadString(4));
                        Reg->WriteString(4,Reg->ReadString(3));
                        Reg->WriteString(3,Reg->ReadString(2));
                        Reg->WriteString(2,Reg->ReadString(1));
                        Reg->WriteString(1,Edit1->Text);
                        Memo1->Lines->Add("已经将文件列表添加到注册表.");
                }
                else
                        ShowMessage("保存文件列表失败.");
        }
        __finally
        {

                Reg->CloseKey();
                delete Reg;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        TRegistry* Reg=new TRegistry;
        try
        {
                Reg->RootKey = HKEY_CURRENT_USER;
                Memo1->Clear();
                Memo1->Lines->Add("当前保存在注册表中的文件列表：");
                if(Reg->OpenKey("\\Software\\test\\File List", false)!=false )
                        for(int i=1;i<=5;i++)
                                Memo1->Lines->Add(IntToStr(i)+" : "+Reg->ReadString(i));
        }
        __finally
        {

                Reg->CloseKey();
                delete Reg;
        }
}
//---------------------------------------------------------------------------