[saurn]

Костя_Антонов@fb

Код:

[Setup]
DefaultDirName={code:GetPreviousDir}

[Code]
function GetPreviousDir(AppInstallDir: String): String;
begin
  if RegKeyExists(HKLM, 'SOFTWARE\My,Program') then
  begin
    RegQueryStringValue(HKLM, 'SOFTWARE\My,Program', 'InstallLocation', AppInstallDir);
    Result := RemoveBackslash(AppInstallDir);
  end else
    Result := ExpandConstant('{pf}\My Program')
end;