添加到安装程序的建立日期和时间

 

#define FileIni SourcePath+" \\DateTime2INI.ini"

;exec the script that creates the ini file
#expr Exec("cscript.exe", SourcePath+" \\DateTime2INI.vbs", SourcePath )

; read infos in variables
#define BuildYear   ReadIni(FileIni , "DateTime" , "Year" )
#define BuildMonth  ReadIni(FileIni , "DateTime" , "Month" )
#define BuildDay    ReadIni(FileIni , "DateTime" , "Day" )
#define BuildHour   ReadIni(FileIni , "DateTime" , "Hour" )
#define BuildMinute ReadIni(FileIni , "DateTime" , "Minute" )
#define BuildSecond ReadIni(FileIni , "DateTime" , "Second" )

;make the Build String
#define BuildStr BuildYear+"_"+BuildMonth+"_"+BuildDay+"_"+BuildHour+"_"+BuildMinute+"_"+BuildSecond

[Setup]
AppName=OutputTimeBuild
AppVerName=OutputTimeBuild {#BuildStr}
DisableStartupPrompt=true
Uninstallable=false
CreateAppDir=false
OutputBaseFilename=setup_{#BuildStr}

 

===========================================

vbscript DateTime2INI.vbs

'create an INI file with information about date and time
'for easy access from Inno Setup PreProcessor

Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("DateTime2INI.ini", ForWriting, True)

ts.WriteLine("")
ts.WriteLine("[DateTime]")
ts.WriteLine("Year=" & Year(Now()) )
ts.WriteLine("Month=" & Month(Now()) )
ts.WriteLine("Day=" & Day(Now()) )
ts.WriteLine("Hour=" & Hour(Now()) )
ts.WriteLine("Minute=" & Minute(Now()) )
ts.WriteLine("Second=" & Second(Now()) )

ts.close
set fso = nothing
 

===========================================

sample of DateTime2INI.ini

 

[DateTime]
Year=2005
Month=11
Day=23
Hour=21
Minute=8
Second=35