1 
[Code]
type
  TSystemTime = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;

procedure GetLocalTime(var lpSystemTime: TSystemTime);  external 'GetLocalTime@kernel32.dll';

function DateToInt(ATime: TSystemTime): Cardinal;
begin
  //Converts dates to a integer with the format YYYYMMDD, 
  //which is easy to understand and directly comparable
  Result := ATime.wYear * 10000 + aTime.wMonth * 100 + aTime.wDay;
end;


function InitializeSetup(): Boolean;
var
  LocTime: TSystemTime;
begin
  GetLocalTime(LocTime);
  if DateToInt(LocTime) > 20121001 then //(10/1/2012)
  begin
    Result := False;
    MsgBox('Now it''s forbidden to install this program', mbError, MB_OK);
  end;
end;

这就是我需要的吗，一个有有效期的安装程序。我添加了这段代码：它在日期过去并给出消息时工作，但在日期有效时不启动安装程序。

给出消息：InitializeSetup 返回 False；中止。得到 EAbort 异常。取消初始化设置。***设置退出代码：1

你能帮助我吗？谢谢

4

2 回答 2

3

当 InitializeSetup 存在于您的脚本中时，结果的默认值为false，即如果您希望安装程序继续，您必须将结果值显式设置为true。

我还建议您简化代码并使用内置的日期例程GetDateTimeString。以下代码应该可以完成这项工作。希望这可以帮助。

[Code] 

const MY_EXPIRY_DATE_STR = '20131112'; //Date format: yyyymmdd

function InitializeSetup(): Boolean;
begin
  //If current date exceeds MY_EXPIRY_DATE_STR then return false and exit Installer.
  result := CompareStr(GetDateTimeString('yyyymmdd', #0,#0), MY_EXPIRY_DATE_STR) <= 0;

  if not result then
    MsgBox('Now it''s forbidden to install this program', mbError, MB_OK);
end;
于 2013-11-12T21:31:42.087 回答
1

在 IDE 中运行设置时，您将收到该消息，并且InitializeSetup()事件函数返回 false。这不会影响编译的设置。

于 2013-11-13T14:39:10.717 回答