Написать очень маленький инсталлятор

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

Мне понравился следующий вариант: главное приложение само выполняет функции инсталлятора. Первоначально файл называется Setup.exe. При запуске под этим именем приложение устанавливает себя, после установки программа переименовывает себя и перестает быть инсталлятором.

Application.Initialize;
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
  // форма инсталлятора
  Application.CreateForm(TSetupForm, SetupForm)
else
  // форма основной программы
  Application.CreateForm(TMainForm, MainForm);
Application.Run;

Вполне очевидно, что вместо переименования можно запускать программу с различными ключами, например /INSTALL и /UNINSTALL. Я очень часто пользуюсь таким приемом, особенно в тех случаях, когда проект состоит из одного файла

Написать маленький инсталлятор, который самостоятельно выполняет функции установки программы, а после установки переименовывает себя или запускается с различными ключами для выполнения дополнительных функций.

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

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

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