delphi读取配置文件解决思路

delphi读取配置文件
简单来说就是想创建一个窗口,然后自己拉动这个窗口大小,然后保存这个的窗口的大小属性数据,然后生成一个文件到指定文件夹!
[解决办法]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var winIni: TIniFile;
begin
  winIni := TIniFile.Create('.\WIN.INI');//调用的文件名
  Form1.Height:=winIni.ReadInteger('窗体','高度',400);//无法从ini文件获取时，用400作默认值
  Form1.Width:=winIni.ReadInteger('窗体','宽度',600);//同上
  winIni.Free;//使用完释放
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);
  winIni.Free;
end;

end.