Question

我们的应用程序现在支持64位本地，因此默认情况下应安装在@Overwrite public void focusLost(FocusEvent e){ if(userDidNotEnterTextIn(firstName){ // hopefully you know how to find out... firstName.setText("Enter your name here"); // do formatting again } }目录下。出于这个原因，我们设置了这两个指令：

C:\Program Files

到目前为止，这没有任何问题！

问题是，当我们的产品仍然只有32位时，我们确实安装了很多产品，因此正确安装在ArchitecturesInstallIn64BitMode=x64 DefaultDirName={pf}\{#ProductName}下面。

通常，Inno Setup会检测到现有的安装并使用相同的安装路径（如果找到）。但是，当从32位模式更改为64位模式时，这似乎不起作用 - 可能是因为现在使用了不同的卸载注册表项。

是否还有办法告诉Inno安装程序使用现有的32位安装路径，如果已经安装了应用程序（执行更新），并且如果是新安装，则仅使用64位安装路径？ / p>

Answer 1

我认为你不能让Inno Setup自动为你做这件事。

但是，在初始化安装程序时，您可以将32位注册表项复制到64位，所有Inno安装程序都可以找到它。当然，如果安装被取消，则必须回滚副本。

#define AppId "My Program"

[Setup]
AppId={#AppId}
DefaultDirName={pf}\My Program
ArchitecturesInstallIn64BitMode=x64

[Code]

const
  UninstallKey = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#AppId}_is1';

var
  Rollback64Key: Boolean;
  RootKey32: Integer;
  RootKey64: Integer;

procedure Copy32BitUninstallKeyTo64bit;
var
  I: Integer;
  ValueNames: TArrayOfString;
  ValueName: string;
  ValueStr: string;
  ValueDWord: Cardinal;
  Success: Boolean;
begin
  if RegKeyExists(HKCU64, UninstallKey) or
     RegKeyExists(HKLM64, UninstallKey) then
  begin
    Log('64-bit uninstall key found, leaving as it is');
  end
    else
  begin
    if RegKeyExists(HKCU32, UninstallKey) then
    begin
      Log('32-bit HKCU uninstall key found, will copy it to the 64-bit key');
      RootKey32 := HKCU32;
      RootKey64 := HKCU64;
    end
      else
    if RegKeyExists(HKLM32, UninstallKey) then
    begin
      Log('32-bit HKLM uninstall key found, will copy it to the 64-bit key');
      RootKey32 := HKLM32;
      RootKey64 := HKLM64;
    end
      else
    begin
      Log('No 32-bit uninstall key found');
      RootKey32 := 0;
      RootKey64 := 0;
    end;

    if RootKey32 <> 0 then
    begin
      if not RegGetValueNames(RootKey32, UninstallKey, ValueNames) then
      begin
        Log('Cannot list 32-bit uninstall key values');
      end
        else
      begin
        I := 0;
        Success := True;
        while (I < GetArrayLength(ValueNames)) and Success do
        begin
          ValueName := ValueNames[I];
          if RegQueryStringValue(RootKey32, UninstallKey, ValueName, ValueStr) then
          begin
            if not RegWriteStringValue(RootKey64, UninstallKey, ValueName, ValueStr) then
            begin
              Log(Format('Error copying "%s" string value', [ValueName]));
              Success := False;
            end
              else
            begin
              Log(Format('Copied "%s" string value', [ValueName]));
            end;
          end
            else
          if RegQueryDWordValue(RootKey32, UninstallKey, ValueName, ValueDWord) then
          begin
            if not RegWriteDWordValue(RootKey64, UninstallKey, ValueName, ValueDWord) then
            begin
              Log(Format('Error copying "%s" dword value', [ValueName]));
              Success := False;
            end
              else
            begin
              Log(Format('Copied "%s" dword value', [ValueName]));
            end;
          end
            else
          begin
            { All uninstall values written by Inno Setup are either string or dword }
            Log(Format('Value "%s" is neither string nor dword', [ValueName]));
            Success := False;
          end;

          I := I + 1;
        end;

        if Success then
        begin
          Log('Copied 32-bit uninstall key to 64-bit');
          Rollback64Key := True;
        end
          else
        begin
          if not RegDeleteKeyIncludingSubkeys(RootKey64, UninstallKey) then
          begin
            Log('Failed to copy 32-bit uninstall key to 64-bit, ' +
                'and also failed to rollback the changes');
          end
            else
          begin
            Log('Failed to copy 32-bit uninstall key to 64-bit, rolled back the changes');
          end;
        end;
      end;
    end;
  end;
end;

function InitializeSetup(): Boolean;
begin
  if IsWin64 then
  begin
    Copy32BitUninstallKeyTo64bit;
  end;

  Result := True;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    if Rollback64Key then
    begin
      Log('Installation finished, removing obsolete 32-bit key');
      Rollback64Key := False;

      if not RegDeleteKeyIncludingSubkeys(RootKey32, UninstallKey) then
      begin
        Log('Failed to remove obsolete 32-bit uninstall key');
      end
        else
      begin
        Log('Removed obsolete 32-bit uninstall key');
      end;
    end;
  end;
end;

procedure DeinitializeSetup();
begin
  if Rollback64Key then
  begin
    Log('Installation cancelled, rolling back cloned 64-bit uninstall key');

    if not RegDeleteKeyIncludingSubkeys(RootKey64, UninstallKey) then
    begin
      Log('Failed to roll back cloned 64-bit uninstall key');
    end
      else
    begin
      Log('Rolled back cloned 64-bit uninstall key');
    end;
  end;
end;

（使用Unicode版Inno Setup进行测试，但也适用于Ansi版本）

Inno Setup：保留现有的32位安装路径进行升级，使用64位路径进行新安装

1 个答案: