Inno Setup中的事件

标签：time   var   inno   result   无法安装   boolean   ack   nbsp   round   

// 窗口事件

procedure InitializeWizard();    //载入窗口事件

procedure DeinitializeSetup();  //退出程序后事件     
begin
　　showmessage(‘执行‘);
end;

//函数

function InitializeSetup(): Boolean; // 判断日期
var Str: String ; Di : Integer ;
begin
Str := GetDateTimeString(‘yyyy/mm/dd‘, ‘0‘, ‘:‘);
Di:=StrToInt(Str);
if Di>2020012023 then
begin
　　ShowMessage (‘无法安装‘);
　　result := false;
end
else
begin
result := true;
end
end;

Inno Setup中的事件

标签：time   var   inno   result   无法安装   boolean   ack   nbsp   round   

原文地址：https://www.cnblogs.com/vov5601/p/13844566.html