Question

这里是current problem：
在this solution之后使用命令行参数执行卸载字符串：
以下是我们以无效代码形式提供的内容：

const MAX_PATH = 260;
function GetUninstallString(): TArrayOfString;
var
  sUnInstPath: String;
  sUnInstallString: String;
  sUnInstallStringPrm: String;

begin
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppName}');
sUnInstallString := '';
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);

if sUnInstallString = '' Then
Begin
sUnInstPath := ExpandConstant('Software\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppName}');
RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString);
End;
if sUnInstallString <> '' Then
Begin
sUnInstallStringPrm:= copy(sUnInstallString, pos(' ', sUnInstallString) + 1, MAX_PATH);
MsgBox(sUnInstallStringPrm, mbInformation, MB_OK);
Delete(sUnInstallString, pos(' ', sUnInstallString), MAX_PATH);
End;
Result := [sUnInstallString, UnInstallStringPrm];
end;


/////////////////////////////////////////////////////////////////////
function IsUpgrade(): Boolean;
begin
  Result := (GetUninstallString() <> '');
end;


/////////////////////////////////////////////////////////////////////
function UnInstallOldVersion(): Integer;
var
  sUnInstallString: String;
  iResultCode: Integer;
begin
// Return Values:
// 1 - uninstall string is empty
// 2 - error executing the UnInstallString
// 3 - successfully executed the UnInstallString

  // default return value
  Result := 0;

  // get the uninstall string of the old app
  sUnInstallString := GetUninstallString();
  if sUnInstallString <> '' then begin
    sUnInstallString := RemoveQuotes(sUnInstallString);
    if ShellExec('open', sUnInstallString, '','', SW_SHOW, ewWaitUntilTerminated, iResultCode) then
    Result := 3
    else
    Result := 2;
  end else
  Result := 1;
end;

/////////////////////////////////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if (CurStep=ssInstall) then
  begin
    if (IsUpgrade()) then
    begin
      UnInstallOldVersion();
    end;
  end;
end;

关于如何在此上下文中使用 GetUninstallString 的信息非常少。可能吗？
作为替代方案，不确定包含 sUnInstallString ... 的字符串数组是否可以作为上述fixture中的参数传递，尽管返回类型作为数组似乎更合适。

Answer 1

GetUninstallString在the code中使用了两次。

在IsUpgrade
和UnInstallOldVersion。

在IsUpgrade中，它仅针对非空值进行了测试。

在UnInstallOldVersion执行。

因此，让函数将整个UninstallString作为一个简单的字符串返回。

IsUpgrade就足够了。

仅在UnInstallOldVersion中对程序路径及其参数进行实际解析。

你也应该：

处理字符串中没有空格的情况（无参数）
卸载程序的路径也可以包含空格（通常情况下，卸载程序通常位于Program Files中）。

命令行参数：函数返回类型为数组？

1 个答案: