Написание инсталлятора

[A114U]

Прошу знающих людей помочь в написании инсталлятора, работающего в качестве патча.

1. Есть, например, архив 2.zip, в котором 3 папки с файлами, нужно чтобы этот архив был в ресурсах програмки и уже оттуда распаковывался по указанной пользователем папке, т.е. без архива, просто папки.
2. Также не могу сделать ProgressBar, чтоб было видно что ставится патч...
3. Как сделать чтоб по завершению установки появлялась форма "Установка завершена"?

Исходник примера программки ТУТ. Без вирусов =)

[JTG]

Как насчёт готовых решений типа InnoSetup?

[A114U]

Готовые решения, всякие программы для создания инсталляторов не подходят, всётаки лабораторка - надо всё в делфи.....

[zetrix]

Извините, бесплатно не смогу.

Самый простой вариант: используем винрар. через консоль создаём ехе-файл с нужными параметрами.

Более сложный, но зато всё сами: пишем джоинер.

[JTG]

Компонент (скачаешь под свою версию делфи)
http://www.componentace.com/download...p?editionid=12
(это некоммерческая версия, так что при запуске делфи будет показывать окно с напоминанием, но в самой программе всё ок)

- архивируешь в payload.zip нужные файлы (вместе с папками)
- делаешь файл ресурсов payload.rc с содержимым 1 RCDATA "payload.zip"
- скармливаешь его brcc32.exe в папке delphi\bin
- получаешь payload.res
- закидываешь payload.res в папку с проектом и компилишь.

в аттаче простой пример, чего будет нужно - допиши

[A114U]

JTG Спасибо за помощь, попробую сделать

[A114U]

Всё сделал, но есть проблемка - не работает ProgressBar, при нажатии на кнопку "установить" файлы устанавливаются, но из-за того что не работает ProgressBar, ощущение что программа виснет... может где есть ошибка?

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, FileCtrl, ComCtrls, ZipForge, XPMan,
  Gauges;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    ProgressBar1: TProgressBar;
    XPManifest1: TXPManifest;
    ZipForge1: TZipForge;
    procedure Image2Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure ZipForge1OverallProgress(Sender: TObject; Progress: Double;
      Operation: TZFProcessOperation; ProgressPhase: TZFProgressPhase;
      var Cancel: Boolean);
    procedure Image3Click(Sender: TObject);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
{$R PAYLOAD.RES}

procedure TForm2.CreateParams(var Params: TCreateParams);
const
  CS_DROPSHADOW = $00020000;
begin
  inherited;
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

procedure TForm2.Image2Click(Sender: TObject);
var
s:string;
begin
SelectDirectory('Укажите путь к папке','d:\ , c:\',s);
Edit1.Text:=s+'\';
end;

procedure TForm2.Image4Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Image3Click(Sender: TObject);
var archive: TResourceStream;
begin
  archive:=TResourceStream.Create(hinstance,'#1',RT_RCDATA);

  ZipForge1.OpenArchive(archive,false);
  ZipForge1.BaseDir:=Edit1.Text;
  Zipforge1.ExtractFiles('*.*');
  ZipForge1.CloseArchive;

  archive.Free;
end;

procedure TForm2.ZipForge1OverallProgress(Sender: TObject;
  Progress: Double; Operation: TZFProcessOperation;
  ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
  ProgressBar1.Position:=round(progress);
end;

end.

[JTG]

Проверь назначен ли обработчик события OnOverallProgress в ZipForge1, или процедура ZipForge1OverallProgress просто так висит

[A114U]

Сообщение от JTG

Проверь назначен ли обработчик события OnOverallProgress в ZipForge1, или процедура ZipForge1OverallProgress просто так висит

Спасибо) действительно висело просто так))) теперь всё нормально
Остался открытым ещё 1 вопрос) как всёже сделать чтобы при окончании установки появлялась форма "Установка завершена"?) Или хотяб чтобы программка просто закрывалась.