如何把设置保存问一个文件，下次使用软件的时候再读入，变成上次关闭的样子

Question

能写入注册表并在启动时加载更好更好

Answer 1

一个办法用ini文件
uses iniFilesvar
  Form1: TForm1;  
  iniFile: TiniFile;implementation
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  iniFile := TInifile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
  Left := InforFile.ReadInteger('FormPosition', 'Left', 100);
  Top := InforFile.ReadInteger('FormPosition', 'Top', 100);
  Width := InforFile.ReadInteger('FormPosition', 'Width', 400);
  Height := InforFile.ReadInteger('FormPosition', 'Height', 300);
end;procedure TNoteForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  InforFile.WriteInteger('FormPosition', 'Left', Left);
  InforFile.WriteInteger('FormPosition', 'Top', Top);
  InforFile.WriteInteger('FormPosition', 'Width', Width);
  InforFile.WriteInteger('FormPosition', 'Height', Height);
  InforFile.Destroy;
end;