99 lines
3.2 KiB
ObjectPascal
99 lines
3.2 KiB
ObjectPascal
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
// Դ<><D4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD>U_iniParam.pas
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾ <20><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>
|
|||
|
|
// ϵͳ<CFB5><CDB3><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>ͨӡȾERP<52><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵϵͳ
|
|||
|
|
// ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD>ģ<EFBFBD><C4A3>ini<6E><69><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD>ߣ<EFBFBD><DFA3>ٻ<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;
|
|||
|
|
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);
|
|||
|
|
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))+'FileUpdate.INI';
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
gUpdateFileServer:=programIni.ReadString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','');
|
|||
|
|
programIni.Free;
|
|||
|
|
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))+'FileUpdate.INI';
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
programIni.WriteString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',gUpdateFileServer);
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F>ж<EFBFBD>InI<6E>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
Function IsINIFile():Boolean;
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'FileUpdate.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;
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
end.
|