레지스트리 쓰고, 읽기

#include <Registry.hpp>

 

void __fastcall TLoginDlg::GetRegistry(void)
{
    TRegistry   *Reg = new TRegistry;

 

    Reg->RootKey = HKEY_CURRENT_USER;
    Reg->OpenKey(REG_PROGRAM, TRUE);

 

    if(Reg->ValueExists(REG_ID))    {
        EdtId->Text = Reg->ReadString(REG_ID);
        m_AutoLogin = TRUE;
    }

    if(Reg->ValueExists(REG_PW))  EdtPw->Text = SecretWork(DETOXICATION_TYPE, Reg->ReadString(REG_PW));
    if(Reg->ValueExists(REG_SERVER))   RgSql->ItemIndex    = Reg->ReadBool  (REG_SERVER);

 

    Reg->Free();
}

 

 

void __fastcall TLoginDlg::SetRegistry(void)
{
    TRegistry   *Reg = new TRegistry;

 

    Reg->RootKey = HKEY_CURRENT_USER;
    Reg->OpenKey(REG_PROGRAM, TRUE);

 

    Reg->WriteString(REG_ID,        EdtId->Text);
    Reg->WriteString(REG_PW,        SecretWork(ENCODED_TYPE, EdtPw->Text).c_str());
    Reg->WriteBool  (REG_SERVER,    RgSql->ItemIndex);

 

    Reg->Free();
}