unit1.pas

《Delphi 7应用编程150例》源码（全）

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  IniFile: TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Test.ini');
  try
    if not FileExists(ExtractFilePath(paramstr(0))+'Test.ini') then
    begin
      IniFile.WriteInteger('Form','Top',self.Top);
      IniFile.WriteInteger('Form','Left',self.Left);
      IniFile.WriteInteger('Form','Height',self.Height);
      IniFile.WriteInteger('Form','Width',self.Width);
    end
    else
    begin
        self.Top:=IniFile.ReadInteger('Form','Top',0);
        self.Left:=IniFile.ReadInteger('Form','Left',0);
        self.Height:=IniFile.ReadInteger('Form','Height',Screen.Height);
        self.Width:=IniFile.ReadInteger('Form','Width',Screen.Width);
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  IniFile: TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Test.ini');
  IniFile.WriteInteger('Form','Top',self.Top);
  IniFile.WriteInteger('Form','Left',self.Left);
  IniFile.WriteInteger('Form','Height',self.Height);
  IniFile.WriteInteger('Form','Width',self.Width);
  IniFile.Free;
  Action:=CaFree;
end;

end.