Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Как написать маленький инсталлятор ?

Как написать маленький инсталлятор ?

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

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

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru