Программирование: WizardSetupType

Прототип

function WizardSetupType(const Description: Boolean): String;

Описание

Возвращает имя или описание типа установки, выбранного пользователем. Если параметр Description имеет значение True, то функция вернёт описание, в противном случае — имя.

Пример

procedure CurStepChanged(CurStep: TSetupStep);
var
  SetupType: String;
begin
  Log(Format('CurStepChanged %d', [CurStep]));

  if CurStep = ssInstall then
  begin
    SetupType := WizardSetupType(False);

    if SetupType = 'application' then
    begin
      Log('Установка сервера приложений');
      ApplicationServer;
    end
      else
    if SetupType = 'client' then
    begin
      Log('Установка клиента');
      Client;
    end
      else
    begin
      Log('Неизвестный тип установки: ' + SetupType);
    end;
  end;
end;