Copyrights

How to create ZDLL module installer on InnoSetup

Before installer creation we must define main installer goals. In case ZDLL module installer we must to do:

1. Let to user select one of available MiniM server installed.
2. If this server is not running, run one.
3. Copy into /bin subdirectory appropriate zdll file and utility routine if one exists.
4. Make routine import if one exists.

Sample of [Setup] section filling:

[Setup]
AppName=MiniM ZDLL module for NTLM autorization
AppVerName=MiniM ZDLL NTLM module
OutputBaseFilename=setup-zntlm
DefaultDirName={pf}\MiniM
DefaultGroupName=MiniM
AppPublisher=Eugene Karataev
AppPublisherURL=http://karataev.nm.ru
AllowNoIcons=yes
OutputDir=W:\MiniM\zdll\install
Compression=lzma
SolidCompression=yes
Uninstallable = no

[Files]
Source: "w:\MiniM\bin\zntlm.dll"; DestDir: "{app}\bin"
Source: "w:\MiniM\zdll\zntlm\%ntlm.rou"; DestDir: "{app}\bin"

In the [CustomMessages] we create special constant strings:

[CustomMessages]
SelectInstanceCaption=Select available MiniM instance to install to
SelectInstanceDescription=

[Code]
var
  lblInstance: TLabel;
  lbInstanceList: TListBox;
  InstallName: String;

procedure SelectInstance_Activate(Page: TWizardPage);
begin
  lbInstanceList.ItemIndex := -1;
  WizardForm.NextButton.Enabled := False;
end;

function SelectInstance_ShouldSkipPage(Page: TWizardPage): Boolean;
begin
  Result := False;
end;

function SelectInstance_BackButtonClick(Page: TWizardPage): Boolean;
begin
  Result := True;
end;

function SelectInstance_NextButtonClick(Page: TWizardPage): Boolean;
begin
  Result := True;
end;

procedure SelectInstance_CancelButtonClick(Page: TWizardPage; var Cancel, 
Confirm: Boolean);
begin
end;

procedure SelectInstance_Click( Sender: TObject);
var
  Index: Integer;
  Dir: String;
  Group: String;
begin
  Index := lbInstanceList.ItemIndex;
  if Index = - 1 then
  begin
    WizardForm.NextButton.Enabled := False;
  end
  else
  begin
    InstallName := lbInstanceList.Items.Strings[ Index];
    InstallName := Copy( InstallName, 1, Pos( ' ', InstallName) - 1);
    RegQueryStringValue( HKEY_LOCAL_MACHINE,
      'SOFTWARE\MiniM Group\MiniM\Instance\' + 
      InstallName, 'Directory', Dir);
    WizardForm.DirBrowseButton.Visible := False;
    WizardForm.DirEdit.Enabled := False;
    WizardForm.DirEdit.Text := Dir;
    RegQueryStringValue( HKEY_LOCAL_MACHINE,
      'SOFTWARE\MiniM Group\MiniM\Instance\' + 
      InstallName, 'Group', Group);
    WizardForm.GroupEdit.Text := Group;
    WizardForm.NextButton.Enabled := True;
  end;
end;

function SelectInstance_CreatePage(PreviousPageId: Integer): Integer;
var
  Page: TWizardPage;
  Names: TArrayOfString;
  I: Integer;
  Ver: String;
begin
  Page := CreateCustomPage(
    PreviousPageId,
    ExpandConstant('{cm:SelectInstanceCaption}'),
    ExpandConstant('{cm:SelectInstanceDescription}')
  );

  { lblInstance }
  lblInstance := TLabel.Create(Page);
  with lblInstance do
  begin
    Parent := Page.Surface;
    Left := ScaleX(16);
    Top := ScaleY(8);
    Width := ScaleX(150);
    Height := ScaleY(13);
    Caption := 'Select available MiniM instance:';
  end;

  { lbInstanceList }
  lbInstanceList := TListBox.Create(Page);
  with lbInstanceList do
  begin
    Parent := Page.Surface;
    Left := ScaleX(24);
    Top := ScaleY(24);
    Width := ScaleX(321);
    Height := ScaleY(201);
    TabOrder := 0;
    OnClick := @SelectInstance_Click;
  end;

  // заполняем список перечнем имеющихся инсталляций
  RegGetSubkeyNames( HKEY_LOCAL_MACHINE,
    'SOFTWARE\MiniM Group\MiniM\Instance', Names);
  for I := 0 to GetArrayLength(Names)-1 do
  begin
    RegQueryStringValue( HKEY_LOCAL_MACHINE,
      'SOFTWARE\MiniM Group\MiniM\Instance\' + 
      Names[ I], 'Version', Ver);
    lbInstanceList.Items.Add( Names[ I] + 
      '          (ver. ' + Ver + ')');
  end;

  lbInstanceList.ItemIndex := -1;

  with Page do
  begin
    OnActivate := @SelectInstance_Activate;
    OnShouldSkipPage := @SelectInstance_ShouldSkipPage;
    OnBackButtonClick := @SelectInstance_BackButtonClick;
    OnNextButtonClick := @SelectInstance_NextButtonClick;
    OnCancelButtonClick := @SelectInstance_CancelButtonClick;
  end;

  Result := Page.ID;
end;

procedure InitializeWizard();
begin
  SelectInstance_CreatePage(wpWelcome);
end;

procedure SelectInstance_Activate(Page: TWizardPage);
begin
  lbInstanceList.ItemIndex := -1;
  WizardForm.NextButton.Enabled := False;
end;

  if Index = - 1 then
  begin
    WizardForm.NextButton.Enabled := False;
  end
  else
  begin
    ...
    WizardForm.NextButton.Enabled := True;
  end;

    
    WizardForm.DirBrowseButton.Visible := False;
    WizardForm.DirEdit.Enabled := False;
    WizardForm.DirEdit.Text := Dir;

procedure CurStepChanged(CurStep: TSetupStep);
var
  AppDir: String;
  ErrorCode: Integer;
begin
  if CurStep = ssPostInstall then
  begin
    AppDir := ExpandConstant('{app}');
    // start mnmsvc.exe
    ShellExec( 'open', 'net', 
      'start "MiniM Service for ' + InstallName, AppDir + '\bin',
      SW_HIDE, ewWaitUntilTerminated, ErrorCode);
    // import routines
    ShellExec( 'open', AppDir + 
      '\bin\minim.exe', 
      '-x "zn \"%sys"" d imp^boot0(\"%ntlm.rou\")" -h', 
      AppDir + '\bin',
      SW_SHOW, ewWaitUntilTerminated, ErrorCode);
  end;
end;

So, we use the following key steps to craete installer:

• Create custom installer page
• Cancel default installation directory usage
• Add into post-install step server running using net start
• Add into post-install step routine import in the same order as used by MiniM installer.

After installation we have in the /bin subdirectory the dll file which is used as ZDLL module and a rou file, which can be used later to import again. This rou file can be deleted by your opinion.

Additionally installer can install other files, such as documentation, samples, additional scripts on the other languages.