//---------------------------------------------------------------------------
//******** ********
//******** Dieses Beispiel stammt von www.ecodes.de ********
//******** ********
#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::Button1Click(TObject *Sender)
{
//Zeichenfolge in die Registry schreiben
//Neues TRegistry
TRegistry *Registry = new TRegistry(KEY_WRITE);
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Einen String schreiben
Registry->WriteString("MeinTestString","Wert meines Strings") ;
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//DWORD-Ganzzahl in die Registry schreiben
//Neues TRegistry
TRegistry *Registry = new TRegistry(KEY_WRITE);
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Einen String schreiben
Registry->WriteInteger ("DWORD-Ganzzahl",44) ;
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
//Bool in die Registry schreiben
//Neues TRegistry
TRegistry *Registry = new TRegistry(KEY_WRITE);
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Einen String schreiben
Registry->WriteBool("BoolWert",true) ;
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
//Currency in die Registry schreiben
//Neues TRegistry
TRegistry *Registry = new TRegistry(KEY_WRITE);
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Einen String schreiben
Registry->WriteCurrency("Currency",9999);
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
//Zeichenfolge lesen
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen
Registry->OpenKey(KeyName,false);
//Einen String lesen wenn existiert
AnsiString ER ="";
if(Registry->ValueExists("MeinTestString") )
ER = Registry->ReadString("MeinTestString") ;
//Registry entfernen
delete Registry;
Label1->Caption =ER;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
//DWORD-Ganzzahl lesen
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Einen Wert lesen wenn existiert
int ER=0 ;
if(Registry->ValueExists("DWORD-Ganzzahl") )
ER=Registry->ReadInteger("DWORD-Ganzzahl") ;
//Registry entfernen
delete Registry;
Label1->Caption =ER ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
//Bool lesen
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Bool lesen wenn Schlüssel existiert
bool ER ;
if(Registry->ValueExists("BoolWert") )
ER = Registry->ReadBool("BoolWert") ;
//Registry entfernen
delete Registry;
if(ER==false )
Label1->Caption ="False" ;
else
Label1->Caption ="True" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
//Currency lesen
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Currency lesen wenn Schlüssel existiert
System::Currency ER=0;
if(Registry->ValueExists("Currency") )
ER=Registry->ReadCurrency("Currency");
//Registry entfernen
delete Registry;
Label1->Caption =ER ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
//Existiert ein Schlüssel
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
bool ER=Registry->KeyExists(KeyName);
//Registry entfernen
delete Registry;
if(ER==true)
ShowMessage ("Der Schlüssel \"HKEY_CURRENT_USER\\Software\\1_TEST\" existiert ");
else
ShowMessage ("Der Schlüssel \"HKEY_CURRENT_USER\\Software\\1_TEST\" existiert nicht");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
//Existiert ein Wert
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen
Registry->OpenKey(KeyName,false);
if(Registry->ValueExists("MeinTestString") )
ShowMessage ("Die Zeichenfolge MeinTestString existiert ") ;
else
ShowMessage ("Die Zeichenfolge MeinTestString existiert nicht") ;
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
//Schlüssel mit inhalt entfernen
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Schlüssel entfernen
Registry->DeleteKey(KeyName);
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
//Einen Wert entfernen
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen, erstellen durch den Parameter true wenn er noch nicht existiert
Registry->OpenKey(KeyName,true);
//Einen Wert entfernen
Registry->DeleteValue("MeinTestString");
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button13Click(TObject *Sender)
{
//Einen Schlüssel erstellen
//Neues TRegistry
TRegistry *Registry = new TRegistry(KEY_WRITE);
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" erstellen
Registry->CreateKey(KeyName) ;
//STANDART WERT setzen ****************************************************************
Registry->OpenKey(KeyName,true);
//Einen Satandart String schreiben
Registry->WriteString ("","TEST");
//*************************************************************************************
//Registry entfernen
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
//Alle Werte eines Schlüssels ermitteln
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\1_TEST\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen
Registry->OpenKey(KeyName,false);
//Alle Werte im Schlüssel ermitteln
Memo1->Clear() ;
TStringList *MYStringL = new TStringList;
Registry->GetValueNames(MYStringL) ;
for (int t=0 ;t< MYStringL->Count ;t++ )
Memo1->Lines->Add(MYStringL->Strings[t]);
delete MYStringL;
delete Registry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
//Alle Schlüssel eines Schlüssels ermitteln
//Neues TRegistry
TRegistry *Registry = new TRegistry;
//Registry Schlüssel
AnsiString KeyName="\\Software\\";
//Registry Root Key
Registry->RootKey = HKEY_CURRENT_USER;
//Key "KeyName" öffnen
Registry->OpenKey(KeyName,false);
//Alle Werte im Schlüssel ermitteln
Memo1->Clear() ;
TStringList *MYStringL = new TStringList;
Registry->GetKeyNames (MYStringL) ;
for (int t=0 ;t< MYStringL->Count ;t++ )
Memo1->Lines->Add(MYStringL->Strings[t]);
delete MYStringL;
delete Registry;
}
//--------------------------------------------------------------------------