如何强制InnoSetup创建卸载日志文件

Question

我正在使用InnoSetup来创建我的应用程序安装程序,并设置"SetupLogging = yes"标志以始终在%TEMP%目录中创建一个setup-log文件.这适用于安装过程.不幸的是,InnoSetup在卸载应用程序时不会创建这样的日志文件.

是否有标志/可能强制InnoSetup也创建卸载日志文件？

Answer 1

我已经能够让安装程序通过在"图标"部分中将"/ log"选项作为参数添加到其exe中来编写日志文件:

[Setup]
...
SetupLogging=yes
...

[Icons]
...
Name: {group}\Uninstall; Filename: {uninstallexe}; Parameters: "/log";

Answer 2

我编写了以下代码来实现@mlaan 的答案（将“/log”附加到注册表中的卸载字符串）。请注意，我只是在检查 HKLM。您可以添加行来检查 HKCU，或者也可以。

#define MyAppID "{3D97CC33-75B0-4D86-8533-B213E5FF4046}"

[Setup]
AppId={{#MyAppID}

[Code]
procedure AppendStringToRegValue(const RootKey: integer; const SubKeyName, ValueName, StringToAppend: string);
var
  OldValue: string;  
  NewValue: string;  
  RootKeyString: string;
begin
  case RootKey of
    HKLM: 
      RootKeyString := 'HKLM';
    HKCU: 
      RootKeyString := 'HKCU';
  else 
    RootKeyString := 'RootKey ' + IntToStr(RootKey);
  end;

  if RegQueryStringValue( RootKey, SubKeyName, ValueName, OldValue ) then
  begin
    NewValue := OldValue + StringToAppend
    if RegWriteStringValue( RootKey, SubKeyName, ValueName, NewValue ) then
      Log('Updated ' + RootKeyString + '\' + SubKeyName + '\' + ValueName + '. New Value = [' + NewValue + '].')
    else
      Log('Could not write to ' + RootKeyString + '\' + SubKeyName + '\' + ValueName + '. Value remains [' + OldValue + '].' )
  end
  else
    Log('Could not read from ' + RootKeyString + '\' + SubKeyName + '\' + ValueName + '.' );
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  OldValue: string;  
  NewValue: string;  
  UninstallSubKeyName:  string;
begin
  if CurStep = ssPostInstall then
  begin
    { Modify uninstall registry entries to add "/log" parameter for uninstall }
    UninstallSubKeyName  := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppID}_is1'
    AppendStringToRegValue(HKLM, UninstallSubKeyName, 'UninstallString', ' /log')
    AppendStringToRegValue(HKLM, UninstallSubKeyName, 'QuietUninstallString', ' /log')
  end;
end;

Answer 3

不可以，您必须使用 [Code] 更新 Uninstall 注册表项，以在 UninstallString 值中包含 /LOG 参数。

注册表项将为 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall(YourAppID)_is1 或 HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall(YourAppID)_is1

仅当安装成功时才在安装结束时执行此操作。例如，在 CurStepChanged 事件函数中 CurStep = ssPostInstall。