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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Я тебя инстальнул — я тебя и убью!

Мне понравился следующий вариант: главное приложение само выполняет функции инсталлятора. Первоначально файл называется 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. Я очень часто пользуюсь таким приемом, особенно в тех случаях, когда проект состоит из одного файла

{/codecitation}

Добавить комментарий