免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

procedure TForm1.Readini;

var ini3:Tinifile;

begin

   ini3 := TIniFile.Create(root+ininame);

   ClientHeight:=ini3.readinteger('Path','height',400);

   ClientWidth:=ini3.readinteger('Path','width',400);

   top:=ini3.readinteger('Path','top',0);

   left:=ini3.readinteger('Path','left',0);

   ini3.free;

end;

procedure TForm1.Writeini;

var ini3:Tinifile;

begin

   ini3 := TIniFile.Create(root+ininame);

   ini3.writeinteger('Path','Width',ClientWidth);

   ini3.writeinteger('Path','Height',ClientHeight);

   ini3.writeinteger('Path','Left',left);

   ini3.writeinteger('Path','Top',top);

   ini3.free;

end;