iogami 6 #412788 Posted November 22, 2017 (edited) здраствуйте! вопрос по версии 5.5.9 при попытке компиляции скрипта выдаёт ошибку ; Ñêðèïò ñîçäàí ÷åðåç Ìàñòåð 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 November 22, 2017 by iogami Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #412808 Posted November 22, 2017 @iogami Ошибка говорит, что берущийся языковой пакет взят от другой версии InnoSetup. Я бы предложил просто удалить этот параметр из пакета, но, предполагаю, что там есть и другие параметры, с которыми возникнет та же проблема. 1 Quote Share this post Link to post Short link Share on other sites
iogami 6 #412810 Posted November 22, 2017 17 минут назад, Kotyarko_O сказал: @iogami Ошибка говорит, что берущийся языковой пакет взят от другой версии InnoSetup. Я бы предложил просто удалить этот параметр из пакета, но, предполагаю, что там есть и другие параметры, с которыми возникнет та же проблема. благодарю. да, косяк разрабов. откатился на 5.5.1. скрипт работает. Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #414152 Posted December 6, 2017 НЕ кто не подскажет как избавиться от мерцания при перелистывание страниц заранее спс Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #414159 Posted December 6, 2017 6 hours ago, sergy2010 said: НЕ кто не подскажет как избавиться от мерцания при перелистывание страниц заранее спс Три варианта: Повысить быстродействие системы. Не запускать в режиме отладки. Оптимизировать проблемные события. Quote Share this post Link to post Short link Share on other sites
NyanDora_Mech_Tank 1 #414321 Posted December 9, 2017 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 Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #414328 Posted December 9, 2017 (edited) del Edited December 10, 2017 by Gad575 Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #414383 Posted December 10, 2017 (edited) как убрать из иконки-ярлыка этот значок кто знает подскажите заранее спс и ещё понимаю что надоел ну хотел у знающих и понимающих попросить скачку модов из сети на основе этого скрипта компонент листа юла бла бла.iss Edited December 10, 2017 by sergy2010 Quote Share this post Link to post Short link Share on other sites
Mixaill 1,740 #414508 Posted December 12, 2017 В 2017-12-10 в 16:46, sergy2010 сказал: как убрать из иконки-ярлыка этот значок кто знает подскажите заранее спс Это не иконка. Это UAC рисует щит, показывая тем самым, что приложение требует повышения прав. Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #414674 Posted December 13, 2017 19 часов назад, Mixaill сказал: Это не иконка. Это UAC рисует щит, показывая тем самым, что приложение требует повышения прав. спс Quote Share this post Link to post Short link Share on other sites
StretCh 0 #415951 Posted December 18, 2017 В 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 модпак не видит правильный путь установки. Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #416539 Posted December 22, 2017 (edited) В 18.12.2017 в 21:41, StretCh сказал: Ключ от основного клиента поменялся? Или это ключ лаунчера а не самого клиента? После установки WG Game Center модпак не видит правильный путь установки. Wargaming Game Center удаляет старый ключ реестра и записывает новый - WOT.RU.PRODUCTION Edited December 22, 2017 by Gad575 Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417644 Posted January 5, 2018 Товарищи, простите если что не так сразу) Использую код приведенный ниже для определения каталога установки клиента. И установщик упорно отказывается находить нужный каталог, в то время как протанки, вотспики и прочие - замечательно всё находят. Я уже хз куда копать... Наставьте на путь истинный, если не сложно) 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; Заранее благодарю Quote Share this post Link to post Short link Share on other sites
Lom 48 #417654 Posted January 6, 2018 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} всё прекрасно находит. НО... после переустановки винды перестает находить а вот мод-пак протанки даже после переустановки винды всё так же находит а этот нет. хз почему. Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #417662 Posted January 6, 2018 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} всё прекрасно находит. НО... после переустановки винды перестает находить а вот мод-пак протанки даже после переустановки винды всё так же находит а этот нет. хз почему. Вы оба переустановили винду, следовательно, у вас нет записей в реестре. Переустановите клиент игры установщики его найдут. 1 1 Quote Share this post Link to post Short link Share on other sites
Lom 48 #417663 Posted January 6, 2018 4 минуты назад, Gad575 сказал: Вы оба переустановили винду, следовательно, у вас нет записей в реестре. Переустановите клиент игры установщики его найдут. ну дело в том что даже переустановив винду мод-пак протанки к примеру всё равно ведь находит игру. а с этим кодом перестает находить)) Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #417664 Posted January 6, 2018 2 минуты назад, ЛОМ сказал: ну дело в том что даже переустановив винду мод-пак протанки к примеру всё равно ведь находит игру. а с этим кодом перестает находить)) В такой случае обратись к его автору, он тебе все расскажет)0) 1 Quote Share this post Link to post Short link Share on other sites
Lom 48 #417665 Posted January 6, 2018 3 минуты назад, Gad575 сказал: В такой случае обратись к его автору, он тебе все расскажет)0) ну он сюда иногда заглядывает, будем надеяться что поделится Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #417672 Posted January 6, 2018 (edited) @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 September 3, 2018 by night_dragon_on 1 Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417699 Posted January 6, 2018 3 часа назад, night_dragon_on сказал: На примере этой библиотеки покажу самый банальный и простой кусок кода: не выходит. использовал ваш кусок кода в тестовом примере скрипта из шапки и получил путь к исполняемому файлу инсталлятора+"\метка_диска" Видимо это как-то по другому должно работать или у меня руки совсем не оттуда... #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; Quote Share this post Link to post Short link Share on other sites