OpenDialog和ini文件的问题
用OpenDialog访问本机或局域网内的共享文件，将路径的名字赋给edit1；
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
end;
end;
将该路径保存在程序的根目录data.ini文件中，
myini:=Tinifile.Create( '.\data.ini ');
myini.writestring( 'zfc ', 'str ',edit1.Text);
发现data.ini文件保存在了OpenDialog所访问的目录下，没有保存在程序的根目录下，大家帮帮忙，看看这个问题怎么解决！

[解决办法]
myini:=Tinifile.Create(ExtractFilePath(application.ExeName)+ '\data.ini ');