Application Development

Software technique, Skills & Applications

C++Builder注册表编程实例详解 March 4, 2009

Filed under: Redister — meetme @ 2:50 pm

2003-08-19 16:16作者：马明臣出处：yesky责任编辑：方舟

 

一、注册表编程详解　　Windows 注册表中包含了系统配置、机器硬件配置、 Win32 应用程序和用户的其他配置信息。许多高级一些的功能都要通过对注册表的操作来实现。在 WinAPI 中提供了 RegCgreateKey() 、 RegOpenKey() 、 RegQueryValue() 等函数操作注册表，但是用这些函数来操作注册表使用起来非常麻烦。而利用 C ＋＋ Builder 的 TREGISTRY 类，我们则可以轻松实现对注册表的操作。下面我先介绍一下 TRegistry 类使用方法。　　1. 使用前的准备工作：　　首先必须在程序开始处包含定义类模块的头文件：　　其次在全程变量（即所有函数之前）创建类的一个实例（对象）：实例名 =new TRegistry();　　注意：我们不能用直接声明的方法生成 TREGISTRY 的实例，这与 VC ＋＋中用 HKEY 直接生成实例的方法不同。必须采用 new 关键字生成 TREGISTRY 类的实例，然后将指针传递给声名的变量。采用这个方式声明后，实例的 RootKey 属性指向 HKEY_CURRENT_USER 根键，即默认操作是针对 HKEY_CURRENT_USER 进行的。　　2. 常用属性和方法介绍：　　(1) 当前根键属性（ RootKey ）：　　RootKey 属性定义了注册表类实例当前根键，默认的是 HKEY_LOCAL_USER ， 如果我们需要在其它根键下对注册表进行操作，可以修改 RootKey 属性：根键名 ;　　BCB 中对注册表根键共有以下几个定义： HKEY_CURRENT_USER 、 HKEY_CLASSES_ROOT 、 HKEY_LOCAL_MACHINE 、 HKEY_USERS 、 HKEY_CURRENT_CONFIG 、 HKEY_DYN_DATA 、 HKEY_USERS 。分别对应注册表中相应的主键。（该属性为 int 型）　　(2)当前键值的文本描述属性（ CurrentPath ）：属性定义了注册表当前键值的文本描述，如 \HKEY_CURRENT_USER\Software\Borland 的 CurrentPath=-Software\Borland- ，而 RootKey=HKEY_CURRENT_USER （该属性为 AnsiString 型）。　　(3)是否使修改后的值立即反映到注册表中（ LazyWrite ）：　　这个属性的作用是决定是否在执行写操作之后立即将所做的改动反映到实际的注册表中。这个属性的值在注册表对象构造时初始化为 true ，即不立即将所做的改动反映到实际的注册表中，而是在执行 CloseKey() 函数之后重写注册表，这样可以提高系统性能。但是，如果我们需要将修改立即反映到注册表（这在许多场合是必要的），则应当首先将 LazyWrite 属性设置为 false ，然后执行修改操作。　　(4) 建立主键函数：　　bool __fastcall CreateKey( 主键名 );　　如果主键已经存在，就覆盖原主键。如在当前主键下建立“ MyReg ”主键，可用“ CreateKey(-MyReg-) ”，而“ CreateKey(-\\MyReg-) ” 则在当前根键下建立主键 MyKey 。

 

 

 

#include -registry.hpp-

 

TRegistry *

 

 

 

 

MyReg->RootKey=

 

 

CurrentPath

 

 

 

 

 

(5) 删除主键函数：　　bool __fastcall DeleteKey( 主键名 );　　如果参数为空字符串，则删除当前键值 。　　(6) 打开主键函数 :　　bool __fastcall OpenKey( 主键名，参数 );　　此函数将定位到一个具体的主键位置，随后的操作（建立键值、删除键值以及在当前位置建立主键、删除主键）将以此主键为当前主键。参数为 True 则当主键不存在将建立这个主键，如果为 false 则不建立主键。　　(7) 读取当前主键下 String 型的键值函数： 键值名 );　　如： Edit1->Text=MyReg->ReadString(-MyString-);　　将读取键值 MyString 的内容到文本框 Edit1 中。 同此函数类似的还有 ReadBool() 、 ReadInteger() 、 ReadFloat() 、 ReadDateTome() 、 ReadBinaryData() 等，用来读出不同类型的键值。　　(8) 在当前主键中写入 String 型键值函数：键值名，数据 );　　如果是一个新键值名，那么相当于新建一个键值；如果是已有的键值，那么就是修改键值的数据。
如： WriteString(- 我的串 -,- 内容 -); 其它类型的键值（二进制值、 Dword 值）的读取和写入函数如 WriteInteger 、 WriteBool() 、 WriteFloat() 、 WriteDateTome() 、 WriteBinaryData() 等用法与上述类似。　　(9) 判断键值或主键是否存在的函数：　　bool __fastcall ValueExists( 键值名 );　　这个方法判断当前键下是否存在指定的数据项，如果存在返回 true ，否则返回 false 。　　bool __fastcall KeyExists( 主键名 );　　这个方法判断一个键是否存在，如果存在返回 true ，否则返回 false 。　　(10)从文件读入键值函数：　　LoadKey( 键值名 , 文件名 ) ;

 

 

 

 

 

 

AnsiString __fastcall ReadString(

 

 

 

void __fastcall WriteString(

 

 

 

 

 

 

 

 

　　(11)一个键值保存到文件函数：　　SaveKey( 键值名 , 文件名 ) ;　　(12) 关闭键值函数：　　void __fastcall CloseKey(void);　　在注册表使用完毕后，应当及时调用 CloseKey() 成员函数关闭注册表，并调用 delete 方法将用 new 申请的内存空间释放。　　(13)当前主键下子键值的获取函数：

 

 

 

 

 

void __fastcall GetKeyNames(Classes::TStrings * Strings) ；　　我们可以用该成员函数得到当前主键下所有子键的名称，用 GetKeyInfo 得到更加详细的信息。必须指出，虽然 GetKeyNames() 的说明成 void __fastcall GetKeyNames(Classes::TStrings * Strings) ，也就是说，它的参数类型是 TString ，但是我们并不能首先声明一个 TString 类的实例，然后将它作为参数用于 GetKeyNames() 。这主要是由于 TStrings 类含有抽象成分。我们的解决方法是采用 TStrings 类的派生类 TStringList 来代替 TStrings 声明一个实例，并作为参数用于 GetKeyNames() 函数。　　在获得子键的名称后，我们就可以利用有关函数进一步确定详细信息。如用我们可以用 GetValueNames() 结合 Read() 和 Write() 获得主键的值的详细信息。请看下面实例，这个例子的功能是将“ \Software\MyInfo ”主键下的所有子键名称显示在 ComboBox1 中：

 

 

＃ include
…………
Tregistry * curReg=new TRegistry （） ;
curReg － >OpenKey( “ Software\\MyInfo-,true);
KeyNames=new TStringList();// 注意 TstirngList 类的声明方法！
curReg － >GetKeyNames(KeyNames); for(int i=0;iCount;i ＋＋ ) ComboBox1 － >Items － >Add(KeyNames － >Strings[i]);
curReg － >CloseKey();
delete KeyNames;

　　3 使用 TRegistry 的一般步骤　　一般来说，有以下四步操作：　　1) 建立 TRegistry 类。 2) 利用 OpenKey() 方法打开一个键值。 3) 用 ReadType() 和 WriteType() 读写键值。 4) 调用 CloseKey （）关闭一个键值，最后调用 delete 方法将用 new 申请的内存空间释放。

 

 

二、应用实例1　　下面我们通过一个示例程序演示了对注册表的常见操作，包括打开主键、读取不同类型的键值、删除键值或主键等。“每次启动电脑自动运行”复选框则实现的作用类似 Win 95 的 Welcome.exe 程序的功能。
首先在窗体添加 Edit1 、 Label1 、 label 2 （用于显示运行次数）、 Button1 、 CheckBox1 （ Caption= “每次启动电脑自动运行”）等几个控件，然后添加以下源代码。生成可执行文件后，改名为 MyReg.EXE 拷贝到 C: 盘根目录下执行即可。　　源代码：

 

 

//——————————————–
#include <vcl.h>
#pragma hdrstop
#include -registry.hpp- // 包含头文件
#include -Unit1.h-
//——————————————–
#pragma package(smart_init)
#pragma resource -*.dfm-
TForm1 *Form1;
TRegistry *MyReg=new TRegistry();// 建立实例
//——————————————–
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//——————————————–
void __fastcall TForm1::FormCreate(TObject *Sender)
{MyReg->RootKey=HKEY_CURRENT_USER;
if((MyReg->OpenKey(-\\software\\MyReg-,false))==false)
{MessageBox(NULL,- 感谢第一次使用本软件 !.-,- 欢迎 !-,IDOK);
MyReg->CreateKey(-\\software\\MyReg-);
MyReg->OpenKey(-\\software\\MyReg-,true);
MyReg->WriteInteger(-Number-,0);
MyReg->WriteString(-The String-,Edit1->Text);
}// 检测有无注册表项 , 没有则建立
int num=MyReg->ReadInteger(-Number-);
num++;
MyReg->WriteInteger(-Number-,num);// 使用次数 +1 并写入注册表
Label2->Caption=IntToStr(num);
Edit1->Text=MyReg->ReadString(-The String-);
MyReg->CloseKey();
MyReg->RootKey=HKEY_LOCAL_MACHINE;
MyReg->OpenKey(-\\software\\Microsoft\\windows\\CurrentVersion\\Run-,false);
CheckBox1->Checked=MyReg->ValueExists(-AutoShow-);
MyReg->CloseKey();// 根据是否自动运行设定 CheckBox 状态
}
//——————————————–
void __fastcall TForm1::Edit1Change(TObject *Sender)
{MyReg->RootKey=HKEY_CURRENT_USER;
MyReg->OpenKey(-\\software\\MyReg-,false);
MyReg->WriteString(-The String-,Edit1->Text);
MyReg->CloseKey();//Edit1 改变写入注册表
}
//——————————————–
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{MyReg->RootKey=HKEY_LOCAL_MACHINE;
MyReg->OpenKey(-\\software\\Microsoft\\windows\\CurrentVersion\\Run-,false);
if(CheckBox1->Checked)
MyReg->WriteString(-AutoShow-,-c:\\MyReg.EXE-);
else MyReg->DeleteValue(-AutoShow-);
MyReg->CloseKey();// 如果 CheckBox 选中则自动运行 , 否则删除自动运行键值
delete MyReg;
}
//——————————————–
void __fastcall TForm1::Button1Click(TObject *Sender)// 单击 Button1 删除注册表项
{MyReg->RootKey=HKEY_LOCAL_MACHINE;
MyReg->OpenKey(-\\software\\Microsoft\\windows\\CurrentVersion\\Run-,false);
MyReg->DeleteValue(-AutoShow-);
MyReg->CloseKey();//* 删除自动运行键值
MyReg->RootKey=HKEY_CURRENT_USER;
MyReg->DeleteKey(-\\software\\MyReg-);// 删除注册表项
}

 

三、注册表编程实例2—— 编写输入法调序器　　通常我们使用输入法时，要按下Ctrl+空格键多次才能找到自己所熟悉的输入法，那么我们能不能把自己最常用的输入法调到英文输入法后面呢？（即只按一下Ctrl+空格即可调出自己使用的输入法）笔者经过研究,终于设计出了一个输入法调序器。它可以把当前系统中的所有输入法全部列出来，并可自由调整输入法顺序。下面笔者就把实现方法介绍给大家。　　程序实现原理：　　我们知道在注册表HKEY_CURRENT_USER\keyboard layout\preload下有子键1、2、3、4、5(这就是输入法的顺序)，每个子键的缺省键值即为标识该输入法的串值，如串值00000409对应的是英文输入法，串值E0040804对应的是智能ABC输入法。如果想知道每一个串值对应什么输入法，我们可以在HKEY_lOCAL_MACHINE\System\CurrentControlSet\Control\Keyboard Layouts之下找到。知道了输入法的存放位置及顺序关系后，我们可以利用程序操作注册表把代表输入法顺序的串值进行相应移动，即可实现我们的目的了。　　具体实现步骤：　　1、新建一工程文件，在窗体上放入一个ListBox组件、三个BitBtn组件和一个Label组件。　　2、在窗体的单元文件中定义全局变量如下：注册表对象
TRegKeyInfo keyInfo;//主键信息变量　　并在单元文件前部增加包含#include <Registry.hpp>　　3、在窗体的OnCreate事件过程中输入如下代码

 

 

 

 

 

 

AnsiString *imeStr,temStr;
TRegistry *Reg1,*Reg2;//

 

 

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Reg1=new TRegistry;//创建注册表对象
Reg2=new TRegistry;
Reg1->RootKey=HKEY_CURRENT_USER;//定位注册表根键
Reg2->RootKey=HKEY_LOCAL_MACHINE;
if(Reg1->OpenKey(“\\keyboard layout\\preload\\”,false)==true)
Reg1->GetKeyInfo(keyInfo);//取得指定主键信息
ListBox1->Items->Clear();
imeStr=new AnsiString[keyInfo.NumSubKeys];//动态创建数组
for(int i=0;i<keyInfo.NumSubKeys;i++)
{
if(Reg1->OpenKey(“\\keyboard layout\\preload\\”+IntToStr(i+1),false)==true)
imeStr[i]=Reg1->ReadString(“”);//取得输入法串值
if(Reg2->OpenKey(“\\System\\CurrentControlSet\\Control\\Keyboard Layouts\\”+imeStr[i]+”\\”,false)==true)
ListBox1->Items->Add(Reg2->ReadString(“layout text”));//显示输入法名称
}
Reg1->CloseKey();
Reg2->CloseKey();
delete Reg2;
}

　　4、在BitBtr1(上移按钮)的OnClick事件中加入如下代码

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int i=ListBox1->ItemIndex;//当前选择的行号
if (i>0)
{
ListBox1->Items->Exchange(i,i-1);//交换列表框中内两行的内容
temStr=imeStr[i];//对应串值也交换
imeStr[i]=imeStr[i-1];
imeStr[i-1]=temStr;
}
}

　　5、类似地，在BitBun2(下移)的OnClick事件中加入如下代码

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
int i=ListBox1->ItemIndex;//当前选择的行号
if (i<ListBox1->Items->Count-1)
{
ListBox1->Items->Exchange(i,i+1);
temStr=imeStr[i];//对应串值也交换
imeStr[i]=imeStr[i+1];
imeStr[i+1]=temStr;
}
}

　　6、在BitBtn3(确认按钮)的OnClick事件中加入如下代码

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
if((Application->MessageBox(“确认更改输入法顺序吗？“,”请确认“,MB_OKCANCEL|MB_ICONWARNING))==ID_OK)
{
for(int i=0;i<keyInfo.NumSubKeys;i++)
{
Reg1->OpenKey(“\\keyboard layout\\preload\\”+IntToStr(i+1),false);
Reg1->WriteString(“”,imeStr[i]);
}//给输入法重新排序
Reg1->CloseKey();
delete Reg1;
delete imeStr;
if((Application->MessageBox(“马上要重新启动计算机“,”重启计算机“,MB_OKCANCEL|MB_ICONWARNING))==ID_OK)
ExitWindowsEx(EWX_REBOOT,0);
}
Close();
}

　　以上程序在Windows 98、C++ builder6.0下调试通过。