真是奇怪啊！！！(50分)(50分)

1.下面这段代码在Windows2000下运行一切如我所想的，都很正常！
2.一旦放在Windows98(第二版)上运行就发生了很奇怪的现象
1>.按第一下按钮，显示正常，提示"XXX存在！"
2>.再按一下按钮，不正常了，提示"XXX不存在！"，真是很奇怪，难道是
MyIni := TIniFile.Create(sFN)；这一句没作用了吗？
3>.接下去再按都是提示"XXX不存在"，过比较长一段时间，偶尔按一下可能会提示"存在"
4>.更绝的还在后头,关掉程序，进入程序建立的Test.INI文件所在的目录，
没看到Test.Ini文件(当然了，都执行了DeleteFile命令了当然没了)
5>.这时再次运行程序，什么都不动，进入Ini文件所在目录，发现目录下既然生成了Test.Ini文件,
可是我这时根本就没按那个按钮啊！！！
3.请问这到底是什么原因？是否是Win98的BUG???
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyIni : TIniFile;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
sDir, sFN : string;
begin
sDir := ExtractFilePath(Application.ExeName);
sFN := sDir + 'Test.ini';
MyIni := TIniFile.Create(sFN);
with MyIni do
begin
WriteString('AA', 'AA', 'AA');
WriteString('AA', 'BB', 'DDD');
WriteString('BB', 'BB', 'CC');
Free;
end;
if FileExists(sFN) then
showmessage(sFN+' 存在')
else
showmessage(sFN+' 不存在');
Try
DeleteFile(sFN);
except
showmessage(sFN+'删除错误');
end;
end;

end.

把free去掉怎么样

free之前调用UpdateFile。应该就是这个问题了，你写的东西还在缓存呢。

万分感谢daiqingbo！正是这个问题！不过，很奇怪，在Win2000下不用UpdateFile，而Win98必须
加入UpdateFile，否则出错！！！