Программа - инсталлятор для трудоголиков

1. Назначение программы.
   
   Программа помогает пользователям инсталлировать Ваше программное обеспечение, а также - удалить его со своего компьютера.
   Пользователь выбирает устройство и папку для установки, а распаковку архива в заданной папке производит инсталлятор. В реестр Windows записывается дата и время инсталляции, а также путь к папке программы. Этот путь используется при удалении программы.
   В комплекте Делфи7 есть инсталлятор - Install Shield, однако возможности этой бесплатной версии ограничены.
   
   
2. Настройка инсталлятора для инсталляции конкретного программного обеспечения. (на примере TxtPlayer, описанного здесь)
   
   
   • Копируем нужные файлы проекта в корневую папку какого-либо устройства (например, D:\).
     
     
   • Если для архивации файлов используем RAR, то в папке WinRAR создаем файл arx.lst, содержащий:
     D:\TxtPlayer.exe
     D:\PlayHLP.htm
     D:\Test1.txt
     D:\styles.css
     D:\text1.gif
     D:\text2.gif
     то есть список этих файлов, копированных в корневую папку.
     
     
   • Создаем rar-архив, содержащий эти файлы в архиве arxiv.rar - при помощи команды:
     rar a arxiv @arx.lst
     
     
   • Преобразуем этот архив в самораспаковывающийся - при помощи команды:
     rar sWinCon.SFX arxiv.rar
     Получаю самораспаковывающийся arxiv.exe
     
     
   • Создаю ресурс для включения в инсталлятор. (О создании ресурсов см здесь). Конкретно:
     Создаю файл arxiv.rc, содержащий :
     ARXIV EXEFILE ARXIV.EXE
     Далее при помощи команды:
     brcc32.exe arxiv.rc
     Получаю arxiv.RES
     В главный модуль проекта (UnMain1.pas) включаю этот ресурс:

     implementation uses unGetDir, unMsg, UnInstal;
     {$R *.dfm}
     {$R arxiv.RES}

     
     
   • В этот же модуль (UnMain1.pas) включаю описания:

     const
       k0 = 'SOFTWARE';  //имя ключа: HKEY_LOCAL_MACHINE\SOFTWARE
       KeyPath = 'PathToProg';  //имя ключа - путь к папке программы
       KeyDaTime = 'dattim';    //имя ключа - время регистрации
       KeyFirm = 'Winni_Puhia77'; //имя фирмы
       KeyProduct = 'TxtPlayer';  //имя продукта
       CisloFilov = 6;    //количество файлов в упаковке
       FiList: array [1..CisloFilov] of string = // имена файлов проекта
       ('TxtPlayer.exe',
       'PlayHLP.htm',
       'Test1.txt',
       'styles.css',
       'text2.gif',
       'text1.gif');
       ArxName = 'ARXIV.EXE'; // имя самораспаковывающегося архива
       ExeName = 'TXTPLAYER'; // имя исполняемого файла проекта. (без .exe)
                              // оно же + '.lnk'- имя ярлыка
      {кроме того - проверьте, соответствует ли строка
       ExtractRes('EXEFILE', 'ARXIV',papka + '\' + ArxName);
       из UnInstall.Inst содержимому Вашего файла arxiv.rc (исходное:)
       ARXIV EXEFILE ARXIV.EXE
      }

   • Чтобы перестроить инсталлятор на инсталляцию другой программы, нужно заменить эти данные.