D10DJkaimengwenshang/项目代码/wenshangkm/机台检验主程序可配置20201/机台检验主程序可配置2020/U_iniParam.pas

////////////////////////////////////////////////////////////////////////////////
// Դ<><D4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD>U_iniParam.pas
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>
//   ϵͳ<CFB5><CDB3><EFBFBD>ƣ<EFBFBD>
//   ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD>
//   <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD>
//       <20><><EFBFBD>ߣ<EFBFBD>
//       <20><><EFBFBD>ˣ<EFBFBD>
////////////////////////////////////////////////////////////////////////////////
unit U_iniParam;

interface
uses
  IniFiles,SysUtils,Windows;
var
  Filename:string;      //<2F>ļ<EFBFBD><C4BC><EFBFBD>
  iParam2:integer;
  bParam1:Boolean;
  bParam2:Boolean;
  gUpdateFileServer:string;
  gDllName1:string;
  gDllInt1:integer;
  gDllName2:string;
  gDllInt2:integer;
  gAutoWinForm:string;
  gLastUserName:string;
  gMachOperators:string;
  Function IsINIFile():Boolean;  //<2F>ж<EFBFBD>InI<6E><49><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
  procedure ReadINIFile();
  procedure WriteINIFile();
  procedure UpdateFileTime(FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime);
  procedure WriteTradeInspINIFile();
  procedure readTradeInspINIFile();
implementation
///////////////////////////////////////////////////////////////////
  //<2F><>ȡini<6E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
////////////////////////////////////////////////////////////////////
procedure ReadINIFile();
var
  programIni:Tinifile;  //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
begin
  FileName:=ExtractFilePath(Paramstr(0))+'RTDEVICEEXE.INI';
  programIni:=Tinifile.create(FileName);
  gAutoWinForm:=programIni.ReadString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27>Զ<EFBFBD><D4B6>򿪴<EFBFBD><F2BFAAB4><EFBFBD>','1');
  gLastUserName:=programIni.ReadString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD>˺<EFBFBD>','');
  programIni.Free;

  /////////////////////////
  try
    programIni := TIniFile.Create(Paramstr(0) + 'FileKPZ.INI');
    gDllName1 := programIni.ReadString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 'DLL<4C>ļ<EFBFBD>1','DjdMachineInsp.dll');
    gDllInt1 :=  programIni.ReadInteger('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 'DLL<4C><4C><EFBFBD>ú<EFBFBD>1',1);
  finally
    programIni.Free;
  end;
  /////////////////////////
  try
    programIni := TIniFile.Create(Paramstr(0) + 'FileKPZ.INI');
    gDllName2 := programIni.ReadString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 'DLL<4C>ļ<EFBFBD>2','DjdMachineInsp.dll');
    gDllInt2 :=  programIni.ReadInteger('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 'DLL<4C><4C><EFBFBD>ú<EFBFBD>2',1);
  finally
    programIni.Free;
  end;
end;
//////////////////////////////////////////////////////////////////
  //д<><D0B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>INI<4E>ļ<EFBFBD>
  //<2F><><EFBFBD><EFBFBD>
//////////////////////////////////////////////////////////////////
procedure WriteINIFile();
var
  programIni:Tinifile;  //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
begin
  FileName:=ExtractFilePath(Paramstr(0))+'RTDEVICEEXE.INI';
  programIni:=Tinifile.create(FileName);
  programIni.WriteString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27>Զ<EFBFBD><D4B6>򿪴<EFBFBD><F2BFAAB4><EFBFBD>',gAutoWinForm);
  if gLastUserName<>'' then
    programIni.WriteString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD>˺<EFBFBD>',gLastUserName);
  programIni.Free;
end;
//////////////////////////////////////////////////////////////////
  //<2F>ж<EFBFBD>InI<6E>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
//////////////////////////////////////////////////////////////////
 Function IsINIFile():Boolean;
 begin
   FileName:=ExtractFilePath(Paramstr(0))+'RTDEVICEEXE.INI';
   if FileExists(FileName) then
      Result:=true
   else
      Result:=false;
 end;
{-------------------------------------------------------------------------------
  <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:    UpdateFileTime
  <EFBFBD><EFBFBD><EFBFBD><EFBFBD>:      imcjs
  <EFBFBD><EFBFBD><EFBFBD><EFBFBD>:      2011.02.12
  <EFBFBD><EFBFBD><EFBFBD><EFBFBD>:      FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime
  ˵<EFBFBD><EFBFBD><EFBFBD><EFBFBD>     <EFBFBD>޸<EFBFBD>ָ<EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><EFBFBD>Ĵ<EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>䡢<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>䡢<EFBFBD>޸<EFBFBD>ʱ<EFBFBD><EFBFBD>
-------------------------------------------------------------------------------}

procedure UpdateFileTime(FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime);
var
  FileHnd : Integer;
  SysTime : TSystemTime;
  tTzi: TTimezoneInformation;
  FCreationTime, FLastAccessTime, FLastWriteTime: TFileTime;
begin
  GetTimezoneInformation(tTzi) ;
  CreationTime := CreationTime+Ttzi.Bias/1440;
  DateTimeToSystemTime(CreationTime,SysTime);
  SystemTimeToFileTime(SysTime,FCreationTime);
  //LastAccessTime := LastAccessTime + Ttzi.Bias/1440;
  //DateTimeToSystemTime(LastAccessTime,SysTime);
  //SystemTimeToFileTime(SysTime,FLastAccessTime);
  LastWriteTime := LastWriteTime + Ttzi.Bias/1440;
  DateTimeToSystemTime(LastWriteTime,SysTime);
  SystemTimeToFileTime(SysTime,FLastWriteTime);
  try
    FileHnd := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
    SetFileTime(FileHnd, @FCreationTime, nil, @FLastWriteTime);
  finally
    FileClose(FileHnd);
  end;
end;
 

//////////////////////////////////////////////////////////////////
  //д<><D0B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>INI<4E>ļ<EFBFBD>
  //<2F><><EFBFBD><EFBFBD>
//////////////////////////////////////////////////////////////////
procedure WriteTradeInspINIFile();
var
  programIni:Tinifile;  //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
begin
  FileName:=ExtractFilePath(Paramstr(0))+'TradeInspFile.INI';
  programIni:=Tinifile.create(FileName);
  programIni.WriteString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>Ա', gMachOperators);
end;
//////////////////////////////////////////////////////////////////
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>INI<4E>ļ<EFBFBD>
  //<2F><><EFBFBD><EFBFBD>
//////////////////////////////////////////////////////////////////
procedure readTradeInspINIFile();
var
  programIni:Tinifile;  //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
begin
  FileName:=ExtractFilePath(Paramstr(0))+'TradeInspFile.INI';
  programIni:=Tinifile.create(FileName);
  gMachOperators:=programIni.readString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>Ա', '');
end;

end.