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;
//delphi/4887