unit appprops_bom;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,
  XMLCfg,
  IniFiles
  ;


  function gAppXMLConfig(AFileName: string): TXMLConfig;
  function gAppINIConfig(AFileName: string): TIniFile;
  
implementation

function gAppXMLConfig(AFileName: string): TXMLConfig;
var
  sPath: string;
begin

  sPath := GetAppConfigDir(true)+ PathDelim + AFileName;
  Result := TXMLConfig.Create(nil);
  result.Filename := sPath;
end;

function gAppINIConfig(AFileName: string): TIniFile;
var
  sPath: string;
begin
  sPath := GetAppConfigDir(true) + PathDelim + AFileName;
  result := TIniFile.Create(AFileName);
end;

end.