Inno Setup - ファイルが保存先に存在するかどうかを確認します。インストールが中止されない場合は、

Question

ファイルが保存先に存在するかどうかを確認する必要があります。私のプロジェクトはアップデートパッチですので、アプリケーションのメインのexeがデスティネーションにない場合、インストーラはアップデートファイルをインストールしないようにします。これどうやってするの？

誰かがWindowsレジストリを介してファイルのバージョンを確認するコードの例を挙げることはできますか？

[Files] 
Source C:\filename.exe; DestDir {app}; Flags: ignoreversion; BeforeInstall: CheckForFile; 

[code] 

procedure CheckForFile(): Boolean; 
begin 
    if (FileExists('c:\somefile.exe')) then 
    begin 
    MsgBox('File exists, install continues', mbInformation, MB_OK); 
    Result := True; 
    end 
    else 
    begin 
    MsgBox('File does not exist, install stops', mbCriticalError, MB_OK); 
    Result := False; 
    end; 
end; 

Answer 1

正しいフォルダを選択するまでユーザーに進むことはできません。

function NextButtonClick(PageId: Integer): Boolean; 
begin 
    Result := True; 
    if (PageId = wpSelectDir) and not FileExists(ExpandConstant('{app}\yourapp.exe')) then begin 
     MsgBox('YourApp does not seem to be installed in that folder. Please select the correct folder.', mbError, MB_OK); 
     Result := False; 
     exit; 
    end; 
end; 

もちろん、正しいフォルダを自動的に選ぶことをお勧めします。レジストリから正しい場所を取得します。

Answer 2

別の解決策は、InitializeSetup()次のようになります。

クレジット：Manfred

[code] 
    function InitializeSetup(): Boolean; 
    begin 
    if (FileExists(ExpandConstant('{pf}\{#MyAppName}\somefile.exe'))) then 
    begin 
     MsgBox('Installation validated', mbInformation, MB_OK); 
     Result := True; 
    end 
    else 
    begin 
     MsgBox('Abort installation', mbCriticalError, MB_OK); 
     Result := False; 
    end; 
    end;