Использование Inno Setup: как правильно обработать строку UninstallString в Exec

Delphi , Программа и Интерфейс , Инсталяция

Inno Setup: Использование Exec для удаления предыдущей версии: как правильно обработать строку UninstallString

При создании установщика с помощью Inno Setup часто возникает необходимость удалить предыдущую версию приложения перед установкой новой. Для этого можно использовать функцию Exec, но иногда возникают проблемы с правильной обработкой строки UninstallString. В данной статье мы рассмотрим, как решить проблему, когда Exec не может правильно обработать строку UninstallString.

Проблема

При попытке удалить предыдущую версию приложения с помощью кода:

if Exec(UninstallString, '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
begin
  MsgBox('Предыдущая версия найдена и удалена успешно.', mbInformation, MB_OK);
end
else
begin
  MsgBox('Пожалуйста, удалите предыдущую версию этого модуля перед продолжением.', mbInformation, MB_OK);
  Result := FALSE;
end;

всегда возникает ошибка: "Имя каталога недопустимо". При этом содержимое строки UninstallString верно (например, "C:\Windows\unins000.exe"), но Exec не может правильно обработать строку.

Решение проблемы

Проблема заключается в том, что строка UninstallString содержит дополнительные кавычки, которые Exec не может обработать правильно. Чтобы решить проблему, необходимо удалить эти дополнительные кавычки перед вызовом Exec. Для этого можно использовать следующий код:

var
  UninstallString: string;
begin
  UninstallString := 'C:\Windows\unins000.exe'; // или любая другая строка UninstallString
  UninstallString := Copy(UninstallString, 2, Length(UninstallString) - 2); // удаляем дополнительные кавычки
  if Exec(UninstallString, '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
  begin
    MsgBox('Предыдущая версия найдена и удалена успешно.', mbInformation, MB_OK);
  end
  else
  begin
    MsgBox('Пожалуйста, удалите предыдущую версию этого модуля перед продолжением.', mbInformation, MB_OK);
    Result := FALSE;
  end;
end;

Пример кода на Object Pascal (Delphi)

Ниже приведен пример кода на Object Pascal (Delphi), который демонстрирует решение проблемы:

program InnoSetupExecExample;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  UninstallString: string;
  ResultCode: Integer;

begin
  UninstallString := 'C:\Windows\unins000.exe'; // или любая другая строка UninstallString
  UninstallString := Copy(UninstallString, 2, Length(UninstallString) - 2); // удаляем дополнительные кавычки
  if Exec(UninstallString, '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
  begin
    Writeln('Предыдущая версия найдена и удалена успешно.');
  end
  else
  begin
    Writeln('Пожалуйста, удалите предыдущую версию этого модуля перед продолжением.');
  end;
  Readln;
end.

Вывод

При использовании функции Exec в Inno Setup для удаления предыдущей версии приложения важно правильно обработать строку UninstallString. Если строка содержит дополнительные кавычки, необходимо удалить их перед вызовом Exec. В противном случае возникнет ошибка: "Имя каталога недопустимо". Решение проблемы заключается в удалении дополнительных кавычек из строки UninstallString перед вызовом Exec.

Создано по материалам из источника по ссылке.

Вопрос о том, как правильно обработать строку UninstallString при использовании функции Exec в Inno Setup для удаления предыдущей версии приложения перед установкой новой.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Инсталяция ::