//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <Registry.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Form1->Visible = false;
  TRegistry* Reg = new TRegistry;
  try
  {
    Reg->RootKey = HKEY_CURRENT_USER; // Section of registry to look for
    if (!Reg->OpenKey("brmon.ini",false))
        ShowMessage("Error opening key");
    else
        Reg->DeleteValue("br");
    //    else Reg->DeleteKey("brmon.ini");

  }
  __finally
  {
    delete Reg;
  }

    ShellExecute(NULL, "open", "c:\\Progra~1\\Klasic~1\\Klasici.exe", NULL, "c:\\Progra~1\\Klasic~1", SW_SHOWNORMAL);
    exit( 0 );
}
//---------------------------------------------------------------------------