Сделать установщик с Delphi

Question

В моем проекте У меня есть файлы для копирования в каталог файлов программ и создание ярлыка для одного исполняемого файла, а другое - как установка.

Я хочу сделать это в своем приложении с файлами хранилища в Пакетах, например, CAB-файлами и показать установку в индикаторе выполнения.

Сначала я думаю о оболочке msi, но некоторые пользователи сказали, что это так медленно!

Как я могу сделать это наилучшим образом?

Answer 1

Вот небольшой шаблон для начала:

unit Unit1; 

interface 

uses 
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 
    StdCtrls 
    , JwaMsi, windows // Units needed for MSI manipulation & for some type declarations 

type 

    { TForm1 } 

    TForm1 = class(TForm) 
     btnDoIt: TButton; 
     lbxMsg: TListBox; 
     procedure btnDoItClick(Sender: TObject); 
    private 
     { private declarations } 
    public 
     { public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

// Callback function 
// Here you must handle type and content of messages from MSI (see MSDN for details) 
function MSICallback(pvContext: LPVOID; iMessageType: Cardinal; szMessage: LPCSTR): Integer; stdcall; 
var 
    s: string; 
begin 
    // Convert PChar to string. Just for convenience. 
    s := szMessage; 

    // Add info about message to the ListBox 
    Form1.lbxMsg.Items.Add(Format('Type: %d, Msg: %s', [iMessageType, s])); 

    // Repaint form (may be it is not necessary) 
    Form1.Refresh; 
    Application.ProcessMessages; 

    If iMessageType = INSTALLMESSAGE_TERMINATE then 
     ShowMessage('Done'); 
end; 

{ TForm1 } 

procedure TForm1.btnDoItClick(Sender: TObject); 
begin 
    // Do not show native MSI UI 
    MsiSetInternalUI(INSTALLUILEVEL_NONE + INSTALLUILEVEL_SOURCERESONLY, nil); 

    // Set hook to MSI 
    MsiSetExternalUI(
     @MSICallback, // Callback function 
     $FFFFFFFF, // Receive all types of messages 
     nil); 

    // Install product (change path to installation package) 
    MsiInstallProduct(
     'D:\install\games\_old\corewar\nMarsFull.0.9.5.win.msi', 
     nil); 
end; 

end.