Inno Setup：創建一年有效的應用程序

Question

我使用新代碼測試我的軟件。

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

function InitializeSetup(): Boolean; 
var 
    ErrorCode: Integer; 
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 
    begin 
    MsgBox('Now it''s forbidden to install this program', mbError, MB_OK); 
end 
     if (MsgBox('Autocad will compulsory closed,so please save your drawings and then press OK', mbConfirmation, MB_OK) = IDOK) then 
     begin 
      ShellExec('open', 'taskkill.exe', '/f /im acad.exe','', SW_HIDE, ewNoWait, ErrorCode); 
      ShellExec('open', 'tskill.exe', ' ACAD', '', SW_HIDE, ewNoWait, ErrorCode); 
      Result := True; 
     end 
     else 
     begin 
      Result := False; 
     end; 
    end; 

的問題是設置顯示錯誤消息（現在，它被禁止安裝這個程序），但它繼續安裝。我希望它退出安裝程序。

Answer 1

當您的滿足條件滿足時，您忘記了從函數返回。

這

if not result then 
    begin 
    MsgBox('Now it''s forbidden to install this program', mbError, MB_OK); 
end 

應該是：

if not Result then 
    begin 
     MsgBox('Now it''s forbidden to install this program', mbError, MB_OK); 
     Exit; 
    end; 

沒有Exit，下列說法與重新設置Result爲 'True' 的可能性執行。

另請注意格式。如果你說得對，那麼很有可能你不會問這個問題。