BCB操作注册表

1.导入头文件

#include <Registry.hpp>

2.
void __fastcall TForm1::btn2Click(TObject *Sender) //读取
{

    TRegistry *Areg= new TRegistry(KEY_READ);//创建对象
    Areg->RootKey = HKEY_LOCAL_MACHINE;
    if(Areg->OpenKey("software\\microsoft\\windows\\currentversion", false))
    {
       mmo1->Lines->Add("Windows版本"+ Areg->ReadString("CommonFilesDir")) ;
    }
    Areg->CloseKey();
       delete Areg;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btn3Click(TObject *Sender)
{
     //
     TRegistry *Areg = new TRegistry(KEY_WRITE);
     Areg->RootKey = HKEY_LOCAL_MACHINE;
     try
     {
        if(Areg->OpenKey("\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion", true))//  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion
        {
        //Areg->CreateKey("SSM");
        Areg->WriteString("SSM", "asdasfasf");
        int i = GetLastError();
        ShowMessage(i);
        }
        Areg->CloseKey();
        delete Areg;
     }
     catch(...)
     {
       }
}
//---------------------------------------------------------------------------
有的路径下面的注册表是写不进去的，是因为权限问题，你要换个路径试试，或者更改权限