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

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

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

Недавно добавленные исходники
• Animation Loaders 877 • DeLiKaTeS Tetris (Тетрис) 5 822 • TDictionary Custom Sort 7 780 • Fast Watermark Sources 7 456 • 3D Designer 10 683 • Sik Screen Capture 8 003 • Patch Maker 8 208 • Айболит (remote control) 8 259 • ListBox Drag & Drop 7 071 • Доска для игры Реверси 100 590 • Графические эффекты 8 335 • Рисование по маске 7 710 • Перетаскивание изображений 6 313 • Canvas Drawing 6 685 • Рисование Луны 6 614 • Поворот изображения 5 756 • Рисование стержней 4 697 • Paint on Shape 3 403 • Генератор кроссвордов 4 378 • Головоломка Paletto 3 523 • Теорема Монжа об окружностях 4 332 • Пазл Numbrix 2 805 • Заборы и коммивояжеры 3 751 • Игра HIP 2 523 • Игра Go (Го) 2 522 • Симулятор лифта 2 916 • Программа укладки плитки 2 344 • Генератор лабиринта 3 084 • Проверка числового ввода 2 580 • HEX View 2 982