Inno Setup - [code]

Question

の既定のパスを定義しています。私のアプリケーションの更新プログラムが以前に保存したインストールパスをDefaultDirNameとして取得できるように、Windowsレジストリを読み込もうとしています。

私は次のように私は、関数を呼び出す必要があることをどこかで読んだ：問題は、私は機能は以前のものを見つけられない場合には、デフォルトのパスを定義する必要があるということです

DefaultDirName="{code:GetPath}" 

。たとえば、 'C：\ MyPath'などです。だから私はこれをした：

[Code] 
function GetPath(Value: String): String; 
var 
    OrigPath: string; 
begin 
    Result := '{sd}\MyPath'; 
    if RegQueryStringValue(HKCU, 'Software\MyApp', 'PathExec', OrigPath) then 
    Result := OrigPath; 
end; 

これは動作していません。セットアップを実行すると、宛先ダイアログボックスで、「C：\ MyPath」ではなく「C：\ PathOfMySetup \ {sd} \ MyPath」になります。

"MyPath"をシステムドライブに作成するには、最初の "Result：="行で何を書きますか？

ありがとうございました。

Answer 1

パスカルスクリプトの定数は魔法のように拡張されていません。 ExpandConstant functionを使って明示的に展開する必要があります：

Result := ExpandConstant('{sd}\MyPath');