Сохранение в файл геометрии окна

int w = 200;
int h = 150;
int laststate = 0; //1 = Maximized
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
if(WindowState == wsNormal)
 {
  if(laststate)
  {
    ClientWidth = w; ClientHeight = h;
  }
  w = ClientWidth; h = ClientHeight;
  laststate = 0;
 }
   else laststate = 1;
}

// ---------- Сохранение/восстановление настроек окон -------------------------
 
#define SAVE_LOAD_WINDOW_GEOMETRY \
  SAVE_LOAD (length) \
  SAVE_LOAD (flags) \
  SAVE_LOAD (showCmd) \
  SAVE_LOAD (ptMinPosition.x) \
  SAVE_LOAD (ptMinPosition.y) \
  SAVE_LOAD (ptMaxPosition.x) \
  SAVE_LOAD (ptMaxPosition.y) \
  SAVE_LOAD (rcNormalPosition.left) \
  SAVE_LOAD (rcNormalPosition.right) \
  SAVE_LOAD (rcNormalPosition.top) \
  SAVE_LOAD (rcNormalPosition.bottom)
 
void
SaveWindowGeometry (TForm *window, TIniFile *ini_file, AnsiString ini_section)
{
  TWindowPlacement wp;
  GetWindowPlacement(window->Handle, &wp);
 
  #define SAVE_LOAD(f) ini_file->WriteInteger(ini_section, #f, wp.f);
  SAVE_LOAD_WINDOW_GEOMETRY
  #undef SAVE_LOAD
}
 
void
LoadWindowGeometry (TForm *window, TIniFile *ini_file, AnsiString ini_section)
{
  TWindowPlacement wp;
 
  #define SAVE_LOAD(f) wp.f = ini_file->ReadInteger(ini_section, #f, wp.f);
  SAVE_LOAD_WINDOW_GEOMETRY
  #undef SAVE_LOAD
 
  SetWindowPlacement(window->Handle, &wp);
}
 
#undef SAVE_LOAD_WINDOW_GEOMETRY

// ---------- Универсальное сохранение/восстановление байтового массива -------
 
static void
SaveBinaryBuffer (const void *buff, int size,
                  TIniFile *ini, AnsiString section, AnsiString name)
{
  int i;
  char *str;
 
  str = new char[2*size + 1];
 
  // Конвертируем байтовый буффер в строковое поедставление посредством
  // отображениея в 16-ричной форме записи
  for (i = 0; i < size; i++)
    sprintf (str + i*2, "%02x", *((unsigned char*)buff + i));
  *(str + i*2) = 0;
 
  ini->WriteString (section, name, str);
 
  delete str;
}
 
static bool
LoadBinaryBuffer (void *buff, int size,
                  TIniFile *ini, AnsiString section, AnsiString name)
{
  int i;
  char *str;
 
  str = (ini->ReadString (section, name, "")).c_str();
  // Дополнительная проверка на соотвествие длины текстового представления
  // и ожидаемого размера буффера. В данном случае мы молча ничего не делаем,
  // а в конкретной задаче можно добавить пользовательское сообщение об ошибке
  if (*str == 0 || (int)strlen (str) != (2*size))
    return false;
 
  for (i = 0; i < size; i++)
    sscanf (str + i*2, "%02x", (char*)buff + i);
 
  return true;
}
 
// ---------- Сохранение/восстановление настроек окон -------------------------
 
void
SaveWindowGeometry (TForm *window, TIniFile *ini, AnsiString section)
{
  TWindowPlacement wp;
 
  GetWindowPlacement(window->Handle, &wp);
  SaveBinaryBuffer (&wp, sizeof (wp), ini, section, "WindowPlacement");
}
 
void
LoadWindowGeometry (TForm *window, TIniFile *ini, AnsiString section)
{
  TWindowPlacement wp;
 
  if (LoadBinaryBuffer (&wp, sizeof (wp), ini, section, "WindowPlacement"))
    SetWindowPlacement(window->Handle, &wp);
}

// ---------- Сохранение/восстановление настроек окон -------------------------
 
void
SaveWindowGeometry (TForm *window, TIniFile *ini, AnsiString section)
{
  TWindowPlacement wp;
 
  GetWindowPlacement(window->Handle, &wp);
  TMemoryStream *stream = new TMemoryStream();
  try {
    stream->Write(&wp, sizeof (wp));
    stream->Position = 0;
    ini->WriteBinaryStream(section, "WindowPlacement", stream);
  }
  __finally {
    delete stream;
  }
}
 
void
LoadWindowGeometry (TForm *window, TIniFile *ini, AnsiString section)
{
  TWindowPlacement wp;
 
  TMemoryStream *stream = new TMemoryStream();
  try {
    ini->ReadBinaryStream(section, "WindowPlacement", stream);
    if(stream->Size > 0) {
      stream->Position = 0;
      stream->Read(&wp, sizeof (wp));
      SetWindowPlacement(window->Handle, &wp);
    }
  }
  __finally {
    delete stream;
  }
}