Delphi应用程序中保存状态信息的两种方法
成都市电子科技大学９６
---- 许多For Windows的应用程序在一次运行结束时会自动保存此次运行的状态信息，
这
样做的好处是用户只要修改一次程序的运行状态，在下次启动此程序时，该程序会以上
次
运行的状态出现，用户可以按照自己的习惯来调整应用程序。
---- 在Delphi中有两种方法可以实现这种功能：使用INI文件或使用注册表。下面将详
细
阐述这两种方法。
---- 一、 使用INI文件保存状态信息
---- Delphi中提供了TIniFile类，TIniFile类能够在INI文件中存取应用程序专用信息
，我
们可以用它来处理INI文件。注意使用时将IniFiles单元加入uses列表中。
---- 使用INI文件存取应用程序专用信息是Windows 3.x中的标准方法。INI文件中的信
息
储存是分段的，每个段由一个括在方括号中的名称说明，比如WIN.INI中就包括［Deskt
op］
等段。每个段中又由一些键值组成，这些键值的格式是：< keyname >=< value >，共有
三
种类型：字符串、整型和布尔型，每种类型有两种方法可以读写：ReadBool，WriteBoo
l，
ReadInteger，WriteInteger，ReadString，WriteString。下面就一个例子来说明它们
的用法：
---- １．建立INI文件
procedure TForm1.FormCreate(Sender:Tobject);
{如INI文件不存在，建立INI文件；
否则，从INI文件中读取数据}
var
status:integer;
inifile:TIniFile;
filename:String;
begin
filename:=extractfilepath
(application.exename)+'iniexample.ini';
inifiel:=Tinifile.create(filename);
status:=inifile.readinteger
('MainForm','Status',0);
if status< >0 then
//INI文件存在，读状态信息
case status of
1: begin
top:=inifiel.readinteger
('MainForm','Top',top);
…………
end;
2: begin
top:=100;
left:=100;
end;
3: windowstate:=wsmaximized;
end;
end;
２．保存状态
procedure TForm1.FormDestroy
(Sender:Tobject);
var
status:integer;
begin
case windowstate of
wsnormal: begin
inifile.writeinteger
('MainForm', 'Top',top);
…………
//保存状态信息
end;
wsminimized: status:=2;
wsmaximized: status:=3;
end;
inifile.writeinteger('MainForm',
'Status',status);
inifile.destroy;
end;
上述程序运行之后，生成的iniexample.ini文件格式如下：
［MainForm］
Top=60
Left=100
………
Status=1
---- 二、 使用注册表保存状态信息
---- INI文件只是为了兼容以前的应用程序而存在，Windows 95/NT使用系统注册表来代
替
INI文件，所有For Windows 95/NT的应用软件都应该使用注册表来保存状态，这也是
MicroSoft推荐的作法。Delphi提供了两个类来处理注册表。Tregistry类封装了系统注
册表。
而TRegIniFile类不但封装了注册表，还提供了一条简单的途径使现有的Windows 3.1应
用
软件升级到Windows 95/NT。TRegIniFile类提供了TIniFile类的接口，但没有使用文件
，
而是将数据保存在注册表中。文件名作为一个主键，默认建立在HKEY_CURRENT_USER
下。相应的，INI文件中的段名作为一个键建立，段中的各项数据就变为这个键下边的各
项数值。仍以上面的例子为例，如果使用TRegIniFile类，只需改动三处：
---- １．在uses列表中用registry单元代替IniFiles单元
---- ２．用TRegIniFile类代替TIniFile类
---- ３．将inifiel:=Tinifile.create(filename);改为Inifile:=TRegIniFile.Creat
e(Filename);