Jump to content
Korean Random
EvilAlex

Создание инсталляторов для модпаков на базе Inno Setup

Recommended Posts

здраствуйте!

вопрос по версии 5.5.9

при попытке компиляции скрипта выдаёт ошибку

 562e441f32df33bf6bee8b138d4825cf.png

 

; Ñêðèïò ñîçäàí ÷åðåç Ìàñòåð Inno Setup Script.
; ÈÑÏÎËÜÇÓÉÒÅ ÄÎÊÓÌÅÍÒÀÖÈÞ ÄËß ÏÎÄÐÎÁÍÎÑÒÅÉ ÈÑÏÎËÜÇÎÂÀÍÈß INNO SETUP!

#define MyAppName " ModPack"
#define MyAppVersion "1.0"
#define MyAppPublisher "Noname"
#define MyAppURL "http://ru.wargaming.net/clans/wot/418027/"

[Setup]
; Ïðèìå÷àíèå: Çíà÷åíèå AppId èäåíòèôèöèðóåò ýòî ïðèëîæåíèå.
; Íå èñïîëüçóéòå îäíî è òîæå çíà÷åíèå â ðàçíûõ óñòàíîâêàõ.
; (Äëÿ ãåíåðàöèè çíà÷åíèÿ GUID, íàæìèòå Èíñòðóìåíòû | Ãåíåðàöèÿ GUID.)
AppId={{75EAD2BF-3E06-4D69-9FA5-FA6BDA35966A}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName=C:\Games\World_of_Tanks\{#MyAppName}
DefaultGroupName={#MyAppName}
LicenseFile=E:\Modpack\lic.txt
InfoBeforeFile=E:\Modpack\before.txt
InfoAfterFile=E:\Modpack\after.txt
OutputDir=E:\Modpack\
OutputBaseFilename=setup-1.0
SetupIconFile=E:\Modpack\wFt32VYi_normal.ico
Compression=lzma
SolidCompression=yes

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Files]
;Source: "MODS\PRICEL\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\P;
Source: "E:\Modpack\Battle Observer (Noobool, etc)\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\BO;
Source: "E:\Modpack\Àâòîâîçâðàò ýêèïàæà\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\CAR;
Source: "E:\Modpack\Àíãàð\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\CA;
Source: "E:\Modpack\Áåëûå òðóïû\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\WDT;
Source: "E:\Modpack\Âûêëþ÷èòü òóìàí\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\NF;
Source: "E:\Modpack\Èêîíêè òàíêîâ â óøàõ\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\CI;
Source: "E:\Modpack\Êîëåñî çàãðóçêè\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\RL;
Source: "E:\Modpack\Ìîä Âèíòèê\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\EHR;
Source: "E:\Modpack\Ìîä Òûëû\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\AT;
; Ïðèìå÷àíèå: Íå èñïîëüçóéòå "Flags: ignoreversion" äëÿ ñèñòåìíûõ ôàéëîâ

[Components]
Name: KMP\BO; Description: 1. Battle Observer (Noobool, etc).;
Name: KMP\CAR; Description: 2. Àâòîâîçâðàò ýêèïàæà.;
Name: KMP\CA; Description: 3. Àíãàð.;
Name: KMP\WDT; Description: 4. Áåëûå òðóïû.;
Name: KMP\NF; Description: 5. Âûêëþ÷èòü òóìàí.;
Name: KMP\CI; Description: 6. Èêîíêè òàíêîâ â óøàõ.;
Name: KMP\RL; Description: 7. Êîëåñî çàãðóçêè.;
Name: KMP\EHR; Description: 8. Ìîä Âèíòèê.;
Name: KMP\AT; Description: 9. Ìîä Òûëû.;













на кодировку не обращайте внимания. редактор побил.

посмотрел, что за ругань в default.isl - "ToUNCPathname=Установка не может выполняться в папку по её сетевому имени. Если Вы устанавливаете в сетевую папку, Вы должны подключить её в виде сетевого диска"

но у меня никакой сетевой диск не используется. 

что это может быть?

 

Edited by iogami

Share this post


Link to post

Short link
Share on other sites

@iogami
Ошибка говорит, что берущийся языковой пакет взят от другой версии InnoSetup.

Я бы предложил просто удалить этот параметр из пакета, но, предполагаю, что там есть и другие параметры, с которыми возникнет та же проблема.

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites
17 минут назад, Kotyarko_O сказал:

@iogami
Ошибка говорит, что берущийся языковой пакет взят от другой версии InnoSetup.

Я бы предложил просто удалить этот параметр из пакета, но, предполагаю, что там есть и другие параметры, с которыми возникнет та же проблема.

благодарю. да, косяк разрабов. откатился на 5.5.1. скрипт работает.

Share this post


Link to post

Short link
Share on other sites

НЕ кто не подскажет как избавиться от мерцания при перелистывание страниц

заранее спс

Share this post


Link to post

Short link
Share on other sites
6 hours ago, sergy2010 said:

НЕ кто не подскажет как избавиться от мерцания при перелистывание страниц

заранее спс

Три варианта:

  • Повысить быстродействие системы.
  • Не запускать в режиме отладки.
  • Оптимизировать проблемные события.

Share this post


Link to post

Short link
Share on other sites

Hello, sorry for using English, but I have a question about the script.

 

Is there any English translated script? Because my computer does not supports Russian language, causing it to displays incorrectly (see attached picture).

I don't understand Russian either :swt3:

image.thumb.png.d715392ea0136d23726ee374769796d6.png

 

 

Share this post


Link to post

Short link
Share on other sites

как убрать из иконки-ярлыка этот значок кто знает подскажите

заранее спс

 

Новый точечный рисунок.png

и ещё понимаю что надоел ну хотел у знающих и понимающих попросить скачку модов из сети на основе этого скрипта компонент листа

юла бла бла.iss

Edited by sergy2010

Share this post


Link to post

Short link
Share on other sites
В 2017-12-10 в 16:46, sergy2010 сказал:

как убрать из иконки-ярлыка этот значок кто знает подскажите

заранее спс

 

Это не иконка. Это UAC рисует щит, показывая тем самым, что приложение требует повышения прав.

Share this post


Link to post

Short link
Share on other sites
19 часов назад, Mixaill сказал:

Это не иконка. Это UAC рисует щит, показывая тем самым, что приложение требует повышения прав.

спс 

Share this post


Link to post

Short link
Share on other sites
В 26.01.2015 в 15:04, Kotyarko_O сказал:

#define ClientReg "{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1"
#define TestClientReg "{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1"

А что находится на этом окне?

Скроллбар делается не для всего.

Ключ от основного клиента поменялся? Или это ключ лаунчера а не самого клиента? После установки WG Game Center модпак не видит правильный путь установки.

Share this post


Link to post

Short link
Share on other sites
В 18.12.2017 в 21:41, StretCh сказал:

Ключ от основного клиента поменялся? Или это ключ лаунчера а не самого клиента? После установки WG Game Center модпак не видит правильный путь установки.

Wargaming Game Center удаляет старый ключ реестра и записывает новый - WOT.RU.PRODUCTION

Edited by Gad575

Share this post


Link to post

Short link
Share on other sites

Товарищи, простите если что не так сразу)
Использую код приведенный ниже для определения каталога установки клиента. И установщик упорно отказывается находить нужный каталог, в то время как протанки, вотспики и прочие - замечательно всё находят. Я уже хз куда копать... Наставьте на путь истинный, если не сложно)

function WotDirNameRU(Path: String): String; // ключ для основного клиента  {1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1
begin
 if RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
  Result := ExpandConstant('C:\Games\World_of_Tanks');
end;

Заранее благодарю

Share this post


Link to post

Short link
Share on other sites
6 часов назад, D_MAN_1987 сказал:

Товарищи, простите если что не так сразу)
Использую код приведенный ниже для определения каталога установки клиента. И установщик упорно отказывается находить нужный каталог, в то время как протанки, вотспики и прочие - замечательно всё находят. Я уже хз куда копать... Наставьте на путь истинный, если не сложно)


function WotDirNameRU(Path: String): String; // ключ для основного клиента  {1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1
begin
 if RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
  Result := ExpandConstant('C:\Games\World_of_Tanks');
end;

Заранее благодарю

 

у меня такой же код единственно  еще вот это у меня дописано

[Setup]
DefaultDirName={code:WotDirNameRU}

всё прекрасно находит. НО... после переустановки винды перестает находить а вот мод-пак протанки даже после переустановки винды всё так же находит а этот нет. хз почему.

Share this post


Link to post

Short link
Share on other sites
10 часов назад, D_MAN_1987 сказал:

Товарищи, простите если что не так сразу)
Использую код приведенный ниже для определения каталога установки клиента. И установщик упорно отказывается находить нужный каталог, в то время как протанки, вотспики и прочие - замечательно всё находят. Я уже хз куда копать... Наставьте на путь истинный, если не сложно)


function WotDirNameRU(Path: String): String; // ключ для основного клиента  {1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1
begin
 if RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
  Result := ExpandConstant('C:\Games\World_of_Tanks');
end;

Заранее благодарю

 

3 часа назад, ЛОМ сказал:

 

у меня такой же код единственно  еще вот это у меня дописано


[Setup]
DefaultDirName={code:WotDirNameRU}

всё прекрасно находит. НО... после переустановки винды перестает находить а вот мод-пак протанки даже после переустановки винды всё так же находит а этот нет. хз почему.

Вы оба переустановили винду, следовательно, у вас нет записей в реестре.

Переустановите клиент игры установщики его найдут.

  • Upvote 1
  • Downvote 1

Share this post


Link to post

Short link
Share on other sites
4 минуты назад, Gad575 сказал:

Вы оба переустановили винду, следовательно, у вас нет записей в реестре.

Переустановите клиент игры установщики его найдут.

 

ну дело в том что даже переустановив винду мод-пак  протанки к примеру всё равно ведь находит игру. а с этим кодом перестает находить))

Share this post


Link to post

Short link
Share on other sites
2 минуты назад, ЛОМ сказал:

ну дело в том что даже переустановив винду мод-пак  протанки к примеру всё равно ведь находит игру. а с этим кодом перестает находить))

В такой случае обратись к его автору, он тебе все расскажет)0)

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites
3 минуты назад, Gad575 сказал:

В такой случае обратись к его автору, он тебе все расскажет)0)

 

ну он сюда иногда заглядывает, будем надеяться что поделится :blinky:

Share this post


Link to post

Short link
Share on other sites

@Gad575 @ЛОМ , библиотека "findwot.dll" для поиска клиента от Mixaill в репозитории.

Возможен поиск клиента не только в системах Windows, а так же Linux-ах с эмулятором Wine.

Список доступных функции, пример в репозитории так же имеется.

 

На примере этой библиотеки покажу простой кусок кода:

 

 

 


[Setup]
DefaultDirName={code:Get_Wot_Dir}

[Files]
Source: "findwot.dll"; DestDir: "{tmp}"; Flags: ignoreVersion dontcopy;

[Code]
function WOT_GetClientsCount(): Integer;
external 'WOT_GetClientsCount@files:findwot.dll cdecl';
function WOT_GetClientBranch(ClientIndex: Integer): Integer;
external 'WOT_GetClientBranch@files:findwot.dll cdecl';
procedure WOT_GetClientPathW(Buffer: String; BufferSize: Integer; ClientIndex: Integer);
external 'WOT_GetClientPathW@files:findwot.dll cdecl';

function Get_Wot_Dir(Param: String): String;
var
  ClientsCount, Index: Integer;
  FoundDir: String;
begin
  Result:=ExpandConstant('{sd}\Games\World_of_Tanks');
  SetLength(FoundDir, 1024);
  ClientsCount:=WOT_GetClientsCount();
  if ClientsCount > 0 then
  begin
    for Index:=0 to ClientsCount-1 do
    begin
      if WOT_GetClientBranch(Index) = 1 then
      begin
        WOT_GetClientPathW(FoundDir, Length(FoundDir)-1, Index);
        Result:=ExpandConstant(FoundDir);
      end;
    end;
  end;
end;

 

Edited by night_dragon_on
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites
3 часа назад, night_dragon_on сказал:

На примере этой библиотеки покажу самый банальный и простой кусок кода:

не выходит.

использовал ваш кусок кода в тестовом примере скрипта из шапки и получил путь к исполняемому файлу инсталлятора+"\метка_диска"

2018-01-06_163613.png.e6027b4accd0206295a414ff5e465053.png

Видимо это как-то по другому должно работать или у меня руки совсем не оттуда...

#define GameID            "{5F05CE9B-7768-490E-9A71-C6R92B4EX123}"  ;Ид инстолятора
#define MyAppName         "KPAH Mod Pack 0.8.6"                     ;Название инстоллятора
#define MyInfoVer         "2.4.124"                                 ;Версия инсталлятора
#define MyAppVer          "1.0"                                     ;Версия игры
#define MyAppPublisher    "EvilAlex"                                ;Имя компании или человека кто делал
#define MyAppURL          "http://www.koreanrandom.com"             ;Ссылка для лого

;#include "Components.iss"                                           ;Компаненты, они же моды
#include "Messages.iss"                                            ;Сообщение, надписи на кнопках и т.д.

[Setup]
AppId={{#GameID}
AppName={#MyAppName}
AppVersion={#MyAppVer}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}

//====={ Ссылки }=====\\
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}

//====={ Папка устанвки }=====\\
;DefaultDirName={pf}\{#MyAppName}
DefaultDirName={code:Get_Wot_Dir}
DefaultGroupName={#MyAppName}

//====={ Картинки }=====\\
SetupIconFile=Files\wot_ico.ico
WizardSmallImageFile=Files\img2.bmp
WizardImageFile=Files\img1.bmp

//====={ Отключение строниц }=====\\
DisableProgramGroupPage=yes

//====={ Лицензия и Фак }=====\\
LicenseFile=licensia.txt
InfoBeforeFile=faq.rtf

//====={ Папка создания и название сетапа }=====\\
OutputDir=.\Output
OutputBaseFilename=Setup

//====={ Сжатие сетапа }=====\\
InternalCompressLevel=ultra64
Compression=lzma2/ultra64
SolidCompression=true

//====={ Основные файлы сетапа }=====\\
[Files]
Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption
Source: "findwot.dll"; DestDir: "{tmp}"; Flags: ignoreVersion dontcopy;

//====={ Выбор языка }=====\\
[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl"
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"

[Code]
procedure WOT_GetClientPathW(Buffer: String; BufferSize: Integer; ClientIndex: Integer);
external 'WOT_GetClientPathW@files:findwot.dll cdecl';

function Get_Wot_Dir(Param: String): String;
var
  FoundDir: String;
begin
  SetLength(FoundDir, 1024);
  WOT_GetClientPathW(FoundDir, 1024, 0);
  if not VarIsNull(FoundDir) then
    Result:=ExpandConstant(FoundDir)
  else
    Result:=ExpandConstant('{sd}\Games\World_of_Tanks')
end;


procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
  ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure RedesignWizardForm;
var
 i: integer;
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;

begin
  ExtractTemporaryFile('logo.bmp')
  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=0
    Top:=315
    Width:=179
    Height:=46
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
  end;
  BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')
    Parent:=BtnPanel
  end;

  with WizardForm do
  begin
    Caption := ExpandConstant('{cm:Main}');
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(502);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Visible := False;
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Visible := False;
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(0);
    Width := ScaleX(502);
    Height := ScaleY(70);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    Visible := False;
  end;

  with WizardForm.PageNameLabel do
  begin
    Visible := False;
  end;

  with WizardForm.WizardBitmapImage2 do
  begin
    Width := ScaleX(502);
  end;

  with WizardForm.FinishedLabel do
  begin
    Visible := False;
  end;

  with WizardForm.FinishedHeadingLabel do
  begin
    Visible := False;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;




 

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...