Запомни меня молодой и красивой

Задача

Сохранять параметры оконного приложения: размеры, положение на экране и т.д.

Решение

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\K245\APA', false) then
    begin
      Left := Reg.ReadInteger('Left');
      Top := Reg.ReadInteger('Top');
      laDir.caption := Reg.ReadString('Dir');
      N4.checked := Reg.ReadBool('ShowFiles');
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
  Height := laDir.Height + 2;
  Width := laDir.Width + 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('\Software\K245\APA', True);
    Reg.WriteInteger('Left', Left);
    Reg.WriteInteger('Top', Top);
    Reg.WriteString('dir', laDir.caption);
    Reg.WriteBool('ShowFiles', N4.checked);
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;Code language: Delphi (delphi)

Комментарий

При завершении приложения в методе FormDestroy формы можно записать нужные параметры в реестр. При запуске программы в методе FormCreate вычитываем из реестра данные для инициализации.

В названии ключа обычно используется название кампании и название программы. Можно добавлять туда свои уровни вложенности, например, версию программы.

Этот вариант идеально подходит для приложений, запускаемых в единственном экземпляре. При деинсталляции программы не забываем почистить реестр от наших записей.

Верификация

Delphi XE5, Win7