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

#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本文出自 “学无止境” 博客，请务必保留此出处http://dqk1985.blog.51cto.com/1005868/223469