Inno設置和DefaultDirName

Question

是否有某種方法可以通過代碼來設置DefaultDirName，取決於用戶對installtion的某些決定？

讓我評論： 我有一些代碼是建立兩個不同的系統（使用不同的interops/ocx的和這樣的東西）。我的輸入文件存儲在兩個目錄輸入\ A和輸入\ B。 我希望兩個系統只有一個設置文件。

在安裝文件中，我使用CreateInputOptionPage和2個選項來確定要安裝哪些文件（在每個文件上使用Check）。這工作正常。

但我也有一些ShellExec完成設置，目前使用{app}來例如註冊一些.Net類和ShellExec以取消註冊InitializeUninstall上的.Net類（也使用{app}）

安裝程序必須在兩個不同位置安裝軟件（取決於用戶的選擇（例如，c：\因此，在將文件複製到系統之前，有一些指定DefaultDirName的方法，因此我可以在安裝和卸載時使用相同的ShellExec？我可以當然在installtation上爲兩個系統添加相同的ShellExec並使用if來檢查要註冊哪些文件（取決於用戶選擇），但在卸載時我不會有這些信息（用戶選擇），所以我不能註銷.Net類。

謝謝

Answer 1

如果需要更改安裝文件夾中的DefaultDirName已初始化之後，這是爲我工作得很好：

procedure CurPageChanged(CurPageID: Integer); 
begin 
    { updates the install path depending on the install type or the entered suffix } 
    if CurPageID = wpSelectDir then begin 
    WizardForm.DirEdit.Text := ExpandConstant('{pf}') + '\MyAppName' + GetAppSuffix(''); 
    end; 
end; 

乾杯 克里斯

Answer 2

在您的CreateInputOptionPage代碼部分中，您可能可以設置一個值，然後在下面的代碼片段中使用該值。我沒有測試過，但它可能工作。

[Setup] 
DefaultDirName={code:getpath} 

[Code] 
function GetPath(Default: string): string; 
begin 

if (CreateInputOptionPageValue1) then 
Result := ExpandConstant({sd}) + '\path1'; 
else 
Result := ExpandConstant({sd}) + '\path2'; 
end;