// =====================================================
//
//   miniLA_win - INI file routines
//
//   (c) miniLA Team
//
// =====================================================
//
// This is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2, or (at your option)
// any later version.
//
// This software is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this package; see the file COPYING.  If not, write to
// the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
// Boston, MA 02111-1307, USA.

unit uINIfile;

interface

uses Forms, SysUtils, INIFiles;

procedure OpenINIFile;
procedure CloseINIFile;

var
   INIFile : TIniFile;

//******************************************************************************
//******************************************************************************
//******************************************************************************

implementation

//=================================================================
procedure OpenINIFile;
//=================================================================
var	Path	: string;
begin
   Path := ExtractFilePath(Application.ExeName);
   INIFile := TIniFile.Create(Path + 'minila.ini');
end;


//=================================================================
procedure CloseINIFile;
//=================================================================
begin
   INIFile.Free;
end;

end.