- procedure TForm1.FormCreate(Sender: TObject);
- var winIni: TIniFile;
- begin
- winIni := TIniFile.Create('.\\WIN.INI');//调用的文件名
- Form1.Height:=winIni.ReadInteger('窗体','高度',400);
- Form1.Width:=winIni.ReadInteger('窗体','宽度',600);
- end;
- procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- var winIni: TIniFile;
- begin
- winIni := TIniFile.Create('.\\WIN.INI');//调用的文件名
- winIni.WriteInteger('窗体','高度',Form1.Height);
- winIni.WriteInteger('窗体','宽度',Form1.Width);
- end;
- //该片段来自于http://www.codesnippet.cn/detail/251120137465.html
来源: http://www.codesnippet.cn/detail/251120137465.html