inno setup打包的VSTO程序，安装时提示已经安装了版本，无法升级（实际上没有安装）

sluojianfei

开发的VSTO项目，正常可以运行，
然后使用inno setup打包的VSTO程序，打包完成后，安装时提示已经安装了版本，无法升级（实际上没有安装）。
求问这是什么原因导致的啊，有什么解决方法吗？

临沂-枸杞

iss文件里怎么写的?

临沂-枸杞

按理说默认是覆盖安装的来着

sluojianfei

临沂-枸杞 发表于 2022-4-22 18:00
iss文件里怎么写的?

iss内容如下，麻烦看下哪里有问题呢：

#define MyAppName "JOfficeDataShare"
#define MyAppVerName "JOfficeDataShare 2.0"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
VersionInfoProductName=JOfficeDataShare
DefaultDirName= "C:\ProgramData\JOfficeDataShare"     
DisableDirPage=no
DisableProgramGroupPage=yes
DefaultGroupName=JOfficeDataShare
OutputDir=.
SetupIconFile=chrome.ico
OutputBaseFilename=JOfficeDataShare
WindowShowCaption=no
DisableWelcomePage=no

[Messages]
SetupWindowTitle=JOfficeDataShare 安装向导
ClickNext=单击“下一步”继续，或单击“取消”退出安装程序。%n%n%n%n%n为确保本软件能一次安装成功，请尽可能先关闭360或者电脑管家、金山毒霸之类，然后再安装本软件。

[Languages]
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

[Icons]
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

[Files]
Source: "*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs


[Registry]
Root: HKCU; Subkey: "Software\Microsoft\JOfficeDataShare"; ValueType: string; ValueName: "SetupPath"; ValueData: {code:pathSS} ;  Flags: uninsdeletevalue

[Code]  
//此代码的功能：在出现安装界面之前弹出一个提示框，告之用户一些必要的信息
function InitializeSetup(): Boolean;
begin
  Log('InitializeSetup called');
  Result := MsgBox('友情提示:'#13'1.如果您的操作系统是Win 10或者Win 8，而且Excel是2013版或者2016版，可以直接安装“Setup.exe”。'#13'2.操作系统或者Excel不属于以上版本，请先安装“运行环境.exe”，后安装“Setup.exe”。'#13''#13'需要先装“运行环境.exe”请点“否”，然后请双击”运行环境.exe“;如果已经安装运行环境或者不需要安装运行环境请点“是”', mbConfirmation, MB_YESNO) = idYes;
  if Result = False then
end;
//此代码的功能：向注册表中写入插件信息,其中ExpandConstant('{app}')表示获取安装路径，它后面的5句代码表示写入插件信息
   function   pathSS(Param: String): string;
begin
    result:=  ExpandConstant('{app}')
     RegWriteStringValue(HKEY_CURRENT_USER,'Software\KingSoft\Office\ET\AddinsWL','JOfficeDataShare','')
     RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'Description', 'JOfficeDataShare');
     RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'FriendlyName', 'JOfficeDataShare');
     RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'LoadBehavior', 3);
     RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'Manifest',ExpandConstant('{app}')+'\JOfficeDataShare.vsto|vstolocal');
end;  
//此代码的功能：卸载插件时清除注册表痕迹
procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep );
begin
   RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Excel\Addins\JOfficeDataShare');
end;   

sluojianfei

临沂-枸杞 发表于 2022-4-22 18:00
iss文件里怎么写的?

iss如下：


#define MyAppName "JOfficeDataShare"
#define MyAppVerName "JOfficeDataShare 2.0"
                        
[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
VersionInfoProductName=JOfficeDataShare
DefaultDirName= "C:\ProgramData\JOfficeDataShare"     
DisableDirPage=no
DisableProgramGroupPage=yes
DefaultGroupName=JOfficeDataShare
OutputDir=.
SetupIconFile=chrome.ico
OutputBaseFilename=JOfficeDataShare
WindowShowCaption=no
DisableWelcomePage=no

[Messages]
SetupWindowTitle=JOfficeDataShare 安装向导
ClickNext=单击“下一步”继续，或单击“取消”退出安装程序。%n%n%n%n%n为确保本软件能一次安装成功，请尽可能先关闭360或者电脑管家、金山毒霸之类，然后再安装本软件。

[Languages]
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

[Icons]
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

[Files]
Source: "*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs


[Registry]
Root: HKCU; Subkey: "Software\Microsoft\JOfficeDataShare"; ValueType: string; ValueName: "SetupPath"; ValueData: {code:pathSS} ;  Flags: uninsdeletevalue

[Code]  
//此代码的功能：在出现安装界面之前弹出一个提示框，告之用户一些必要的信息
function InitializeSetup(): Boolean;
begin
  Log('InitializeSetup called');
  Result := MsgBox('友情提示:'#13'1.如果您的操作系统是Win 10或者Win 8，而且Excel是2013版或者2016版，可以直接安装“Setup.exe”。'#13'2.操作系统或者Excel不属于以上版本，请先安装“运行环境.exe”，后安装“Setup.exe”。'#13''#13'需要先装“运行环境.exe”请点“否”，然后请双击”运行环境.exe“;如果已经安装运行环境或者不需要安装运行环境请点“是”', mbConfirmation, MB_YESNO) = idYes;
  if Result = False then
end;
//此代码的功能：向注册表中写入插件信息,其中ExpandConstant('{app}')表示获取安装路径，它后面的5句代码表示写入插件信息
   function   pathSS(Param: String): string;
begin
    result:=  ExpandConstant('{app}')
     RegWriteStringValue(HKEY_CURRENT_USER,'Software\KingSoft\Office\ET\AddinsWL','JOfficeDataShare','')
     RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'Description', 'JOfficeDataShare');
     RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'FriendlyName', 'JOfficeDataShare');
     RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'LoadBehavior', 3);
     RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Word\Addins\JOfficeDataShare',  'Manifest',ExpandConstant('{app}')+'\JOfficeDataShare.vsto|vstolocal');
end;  
//此代码的功能：卸载插件时清除注册表痕迹
procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep );
begin
   RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Excel\Addins\JOfficeDataShare');
end;   

sluojianfei

解决了，差了一个AppId，加上就可以了！