Проверьте, что функция параметра в UninstallRun работает неправильно - PullRequest
Новая
       16

Проверьте, что функция параметра в UninstallRun работает неправильно

2 голосов
/ 06 марта 2019

Я хотел бы получить параметр из секции [Code] в секции [UninstallRun]. Я получил "не найден" в выводе отладки при установке . Я не звонил CheckGetFile() при установке ... и он не звонил GetFilePath() и CheckGetFile() при деинсталляции..ЧЕМ?
Вот мой сценарий 

[Code]
Var
  Check: Boolean;

function GetFilePath(Default: String): String;
begin
  log('GetFilePath()');
  Check := false;
  Result := '';
  { do something }
  if (Found) then
  begin
    Check := true;
    Result := TargetPath;
  end;
end;

function CheckGetFile: boolean;
begin
  if (Check) then
    begin
      log('Found File');
      Result := true;
    end;
  if (not Check) then
    begin
      log('not found');
      Result := false;
    end;
end;

[UninstallRun]
Filename: "{app}\MyApp.exe"; Parameters: "{code:GetFilePath}"; Check: CheckGetFile();

обновление 

[Code]
Var
  TargetPath: String;

function GetFilePath(): Boolean;
begin
  Result := false;
  { do something }
  if (Found) then
  begin
    TargetPath := 'C:\Windows\xxx';
    Result := true;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  ResultCode : Integer;    
begin
  if CurUninstallStep = usUninstall then
  begin
    if (GetFilePath) then
    begin
      Exec(ExpandConstant('{app}\MyApp.exe'), '/q /u' + TargetPath, '',
           SW_SHOW, ewWaitUntilTerminated, ResultCode);  
    end;
  end;
end;

1 Ответ

2 голосов
/ 06 марта 2019

Параметр Check оценивается во время установки.Вы не можете использовать его, чтобы проверить, существует ли файл во время удаления.

Вы должны использовать [Code] для этого: 

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  ResultCode : Integer;    
begin
  if CurUninstallStep = usUninstall then
  begin
    if Check then
    begin
      Exec(ExpandConstant('{app}\MyApp.exe'), '', '',
           SW_SHOW, ewWaitUntilTerminated, ResultCode);  
    end;
  end;
end;
...