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(...)
{
}
}
//---------------------------------------------------------------------------
有的路径下面的注册表是写不进去的,是因为权限问题,你要换个路径试试,或者更改权限
BCB操作注册表
最新推荐文章于 2016-02-25 15:52:00 发布