//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdlib.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)
{
  AnsiString assw,assh;
  int ww,hh;
  TRegistry *rg;
  rg=new TRegistry();
  rg->RootKey=HKEY_LOCAL_MACHINE;
//
  if(rg->OpenKey("\\Software\\MyTest",False))
  {
    assw=rg->ReadString("FormWidth");
    assh=rg->ReadString("FormHeight");
    ww=atoi(assw.c_str());
    hh=atoi(assh.c_str());
    Width=ww;
    Height=hh;
  }
//
  rg->CloseKey();
  rg->Free();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  TRegistry *rg;
  rg=new TRegistry();
  rg->RootKey=HKEY_LOCAL_MACHINE;
//
  rg->OpenKey("\\Software\\MyTest",True);
  rg->WriteString("FormWidth",IntToStr(Width));
  rg->WriteString("FormHeight",IntToStr(Height));
//
  rg->CloseKey();
  rg->Free();
}
//---------------------------------------------------------------------------