unit U_iniFile;

interface
uses
  IniFiles,SysUtils,windows,Forms;
var
 Filename:string;      //文件名
 inifstr1:string;
 inifstr2:string;
 inifstr3:string;
 inifstr4:string;
  Function IsINIFile():Boolean;  //判断InI配置文件是否存在

  procedure ReadINIFile();
//  procedure WriteINIFile();
implementation
uses U_PublicStr,U_PublicDllFunction;
//////////////////////////////////////////////////////////////////
  //读取ini文件设置参数
  //参数：
////////////////////////////////////////////////////////////////////
procedure ReadINIFile();
var
  fIniFile:Tinifile;  //配置文件名
begin
  FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC';
  fIniFile:=Tinifile.create(FileName);
  inifstr1:=fIniFile.ReadString('SERVER', 'X1', '');
  inifstr2:=fIniFile.ReadString('SERVER', 'X2', '');
  inifstr3:=fIniFile.ReadString('SERVER', 'X3', '');
  inifstr4:=fIniFile.ReadString('SERVER', 'X4', '');
  inifstr1:=trim(GetDecString(inifstr1));
  inifstr2:=trim(GetDecString(inifstr2));
  inifstr3:=trim(GetDecString(inifstr3));
  inifstr4:=trim(GetDecString(inifstr4));
  fIniFile.Free;
end;
//////////////////////////////////////////////////////////////////
  //写设置信息到INI文件
  //参数
//////////////////////////////////////////////////////////////////
{procedure WriteINIFile();
var
  fIniFile:Tinifile;  //配置文件名
begin
  //FileName:=ExtractFilePath(Application.ExeName)+'DATACLIENT.DBG';
  fIniFile:=Tinifile.create(FilePath);
  fIniFile.ReadString('SERVER', 'SERVER',trim(Server1));
  fIniFile.ReadString('SERVER', 'DTBASE',trim(DTBase1));
  fIniFile.ReadString('SERVER', 'USER',trim(User1));
  fIniFile.ReadString('SERVER', 'PASSWORD',trim(Pswd1));
  fIniFile.Free;
end;
}
//////////////////////////////////////////////////////////////////
  //判断InI文件是否存在
//////////////////////////////////////////////////////////////////
Function IsINIFile():Boolean;
begin
  FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC';
  if FileExists(FileName) then
    Result:=true
  else
    Result:=false;
end;

end.