unit appprops_bom;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,
  XMLCfg
  ;


  function gAppConfig(AFileName: string): TXMLConfig;
  
implementation

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

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

finalization;
begin

end;

end.