Inno Setup：1年間有効なアプリケーションを作成します

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を設定する可能性が実行されます。

フォーマットにも注意してください。もしあなたが正しいとしたら、あなたはこの質問をしていないという良いチャンスがあります。