讀寫INI文件:在Private下面設定私有變量inifile:TInifile
(一)在窗體的OnCreate事件中對INI文件進行讀取:
procedure TForm1.FormCreate(Sender:Tobject);
var
  status:integer;
begin
  inifile:=Tinifile.create(ExtractFilePath(application.exename)+'ini_one.ini');
//設定ini文件對象
  status:=inifile.readinteger('mainform','Status',0);
  if status<>0 then
  begin
//讀取ini文件中的內容
  top:=inifile.readinteger('mainform','top',top);
  left:=inifile.readinteger('mainform','left',left);
  width:=inifile.readinteger('mainform','width',width);
  height:=inifile.readinteger('mainform','height',height);
  label1.caption:=inifile.readstring('label1','caption',label1.caption);
  button1.visible:=inifile.readbool('button1','visible',button1.visible);
  button2.visible:=inifile.readbool('button2','visible',button2.visible);
  case status of
     1: windowstate:=wsnormal;
     2: windowstate:=wsminimized;
     3: windowstate:=wsmaximized;
  end;
 end;
end;
(二)在程序的OnClose事件中加入對INI文件寫入的代碼
procedure TForm1.FormClose(Sender:TObject; var action:TCloseAction);
var
  status:integer;
begin
if messagedlg('保存當前設置嗎?',mtconfirmation,[mbyse,mbno],0)=idyes then
  begin
    status:=1;// default
    case windowstate of
//向ini文件中寫入內容
     wsnormal:begin
       inifile.writeinteger('mainform','top',top);
       inifile.writeinteger('mainform','left',left);
       inifile.writeinteger('mainform','width',width);
       inifile.writeinteger('mainform','height',height);
       inifile.writestring('label1','caption',label1.caption);
       inifile.writebool('button1','visible',button1.visible);
       inifile.writebool('button2','visible',button2.visible);
  end;
wsminimized:status:=2;
wsmaximized:status:=3;
end;
if not active then
status:=2;
inifile.writeinteger('mainform','status',status);
end;
inifile.free;
end;