Inno setup Inno安装程序-正确卸载以前的版本
我正试图使用此代码卸载以前的版本(如果已安装,也可以选择)并从控制面板卸载silent:Inno setup Inno安装程序-正确卸载以前的版本,inno-setup,Inno Setup,我正试图使用此代码卸载以前的版本(如果已安装,也可以选择)并从控制面板卸载silent: #define AppId "Program158" [code] procedure ChangeUninstallString; var sUnInstPath: String; sUnInstallString: String; begin sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\
#define AppId "Program158"
[code]
procedure ChangeUninstallString;
var
sUnInstPath: String;
sUnInstallString: String;
begin
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("AppId")}_is1');
sUnInstallString := '';
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then begin
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
RegWriteStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString + '/SILENT');
end
else begin
RegWriteStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString + '/SILENT');
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssPostInstall then begin
ChangeUninstallString;
end;
end;
function GetUninstallString: string;
var
sUnInstPath: string;
sUnInstallString: String;
begin
Result := '';
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\Program156_is1'); { Your App GUID/ID }
sUnInstallString := '';
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
Result := sUnInstallString;
end;
function IsUpgrade: Boolean;
begin
Result := (GetUninstallString() <> '');
end;
function InitializeSetup(): Boolean;
var
V: Integer;
iResultCode: Integer;
sUnInstallString: string;
begin
Result := True; { in case when no previous version is found }
if RegValueExists(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\Program156_is1', 'UninstallString') then { Your App GUID/ID }
begin
V := MsgBox(ExpandConstant('Hey! An old version of app was detected. Do you want to uninstall it?'), mbInformation, MB_YESNO); { Custom Message if App installed }
if V = IDYES then
begin
sUnInstallString := GetUninstallString();
sUnInstallString := RemoveQuotes(sUnInstallString);
Exec(ExpandConstant(sUnInstallString), '', '', SW_SHOW, ewWaitUntilTerminated, iResultCode);
Result := True; { if you want to proceed after uninstall }
{ Exit; //if you want to quit after uninstall }
end
else
Result := False; { when older version present and not uninstalled }
end;
end;
#定义AppId“Program158”
[守则]
程序字符串;
变量
sunistpath:String;
sunstallstring:String;
开始
sunistpath:=ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{{emit SetupSetting(“AppId”)}\u is1');
sUnInstallString:='';
如果不是RegQueryStringValue(HKLM、sUnInstPath、“卸载字符串”、sUnInstallString),则开始
RegQueryStringValue(HKCU、sUnInstPath、“卸载字符串”、sUnInstallString);
RegWriteStringValue(HKCU、SunistPath、'UninstallString',sUnInstallString+'/SILENT');
结束
否则开始
RegWriteStringValue(HKLM、sUnInstPath、'UninstallString',sUnInstallString+'/SILENT');
结束;
结束;
过程CurStepChanged(CurStep:TSetupStep);
开始
如果CurStep=ssPostInstall,则开始
更改字符串;
结束;
结束;
函数GetUninstallString:string;
变量
sunistpath:string;
sunstallstring:String;
开始
结果:='';
sunistpath:=ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\Program156_is1');{您的应用程序GUID/ID}
sUnInstallString:='';
如果不是RegQueryStringValue(HKLM、sUnInstPath、“卸载字符串”、sUnInstallString),则
RegQueryStringValue(HKCU、sUnInstPath、“卸载字符串”、sUnInstallString);
结果:=sunstallString;
结束;
函数为:布尔型;
开始
结果:=(GetUninstallString()“”);
结束;
函数InitializeSetup():Boolean;
变量
V:整数;
iResultCode:整数;
sunstallstring:string;
开始
结果:=真;{如果找不到以前的版本}
如果RegValueExists(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\Program156_is1','UninstallString'),则{您的应用程序GUID/ID}
开始
V:=MsgBox(ExpandConstant('嘿!检测到应用程序的旧版本。是否要卸载?')),mbInformation,MB_YESNO);{如果安装了应用程序,则自定义消息}
如果V=田园诗,那么
开始
sUnInstallString:=GetUninstallString();
sUnInstallString:=RemoveQuotes(sUnInstallString);
Exec(ExpandConstant(sUnInstallString)、“”、“”和SW_SHOW、EWWaitUnFilterminated、iResultCode);
结果:=真;{如果要在卸载后继续}
{Exit;//如果要在卸载后退出}
结束
其他的
结果:=假;{存在旧版本且未卸载时}
结束;
结束;
如果同时使用这两种思想,则此代码无法正常工作。只有当我使用代码检测以前的版本并且卸载程序运行时,它才能正常工作。如果我同时使用这两个想法(所有这些代码),如果我选择卸载以前版本的程序,卸载程序将不会运行
如何同时正确使用这两个代码?有关检测同一版本的信息,请特别参阅,无论如何,您不应该在一篇文章中提出两个不同的问题。什么是“所有这些代码”?你问题中的代码?或者你指的是我指给你的答案中的一些代码?我们知道你的代码不起作用。这就是为什么我要指出你,这正是你的问题!所以请一定要读!让我们关注卸载问题,好吗?您必须在
sunstallString:=GetUninstallString()之后替换代码代码>使用来自的代码检测同一版本,请特别参阅,无论如何,您不应该在一篇文章中问两个不同的问题。什么是“所有这些代码”?你问题中的代码?或者你指的是我指给你的答案中的一些代码?我们知道你的代码不起作用。这就是为什么我要指出你,这正是你的问题!所以请一定要读!让我们关注卸载问题,好吗?您必须在sunstallString:=GetUninstallString()之后替换代码代码>使用来自的代码