Скрипты Inno Setup. Помощь и советы [часть 8]

[Dodakaedr]

Rhianarkipom,
удалите [Messages]
ButtonNext=Install

[ZVSRus]

Помогите исправить кнопку на странице приветствия (WelcomePage) вместо "Install" должно быть "Next"
procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WizardForm.NextButton.Caption:= 'Далее'
end;
end;
end;

[292944028]

del

[Rhianarkipom]

Код:
procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WizardForm.NextButton.Caption:= 'Далее'
end;
end;
end; »

Если удалить секцию [Messages] вместо "Install" становиться "Next"
Извините меня, не полностью вопрос вчера описал

Вопрос:
На странице приветствия должна быть кнопка "Next", где выбор папки там должна быть кнопка "Install"
Вот этот код полностью игнорирует: WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall) - Установщик будет мультиязычный (несколько языков)

Помогите пожалуйста мне сделать


#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{07BF4756-493A-4A92-8C99-65465807D1B5}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

DisableDirPage=yes
DisableProgramGroupPage=yes
DisableReadyMemo=yes
DisableReadyPage=yes
DisableStartupPrompt=yes
DisableWelcomePage=no
DisableFinishedPage=no

[Messages]
ButtonNext=Install

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Code]
var
MainPage : TWizardPage;
edtFolderToInstall : TEdit;
InstallLocation : String;

procedure BrowseClick(Sender : TObject);
var
Dir : String;
begin
Dir := edtFolderToInstall.Text;
if BrowseForFolder('Select Folder',Dir,false) then
edtFolderToInstall.Text := Dir;
end;

procedure InitializeWizard();
var
lblFolderToInstall : TLabel;
btnFolderToInstall : TButton;

begin
MainPage := CreateCustomPage(wpWelcome,'Select Destination Location','Where should {#MyAppName} be installed ?');
lblFolderToInstall := TLabel.Create(MainPage);
lblFolderToInstall.Parent := MainPage.Surface;
lblFolderToInstall.Top := 10;
lblFolderToInstall.Left := 10;
lblFolderToInstall.Caption := 'If you would like to select a different folder, Click Browse.'

edtFolderToInstall := TEdit.Create(MainPage);
edtFolderToInstall.Parent := MainPage.Surface;

edtFolderToInstall.Top := 40;
edtFolderToInstall.Left := 7;
edtFolderToInstall.Width := 321;
edtFolderToInstall.Text := WizardDirValue;

btnFolderToInstall := TButton.Create(MainPage);
btnFolderToInstall.Parent := MainPage.Surface;
btnFolderToInstall.Top := 38;
btnFolderToInstall.Left := 340;
btnfolderToInstall.Caption := 'Browse...';
btnFolderToInstall.OnClick := @BrowseClick;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WizardForm.NextButton.Caption:= 'Next >';
end;
end;
end;

[Dodakaedr]

На странице приветствия должна быть кнопка "Next", где выбор папки там должна быть кнопка "Install" »
#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{07BF4756-493A-4A92-8C99-65465807D1B5}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

DisableDirPage=yes
DisableProgramGroupPage=yes
DisableReadyMemo=yes
DisableReadyPage=yes
DisableStartupPrompt=yes
DisableWelcomePage=no
DisableFinishedPage=no

[languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl;
Name: eng; MessagesFile: compiler:Languages\English.isl;

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[code]
var
MainPage : TWizardPage;
edtFolderToInstall : TEdit;
InstallLocation : String;

procedure BrowseClick(Sender : TObject);
var
Dir : String;
begin
Dir := edtFolderToInstall.Text;
if BrowseForFolder('Select Folder',Dir,false) then
edtFolderToInstall.Text := Dir;
end;

procedure InitializeWizard();
var
lblFolderToInstall : TLabel;
btnFolderToInstall : TButton;

begin
MainPage := CreateCustomPage(wpWelcome,'Select Destination Location','Where should {#MyAppName} be installed ?');
lblFolderToInstall := TLabel.Create(MainPage);
lblFolderToInstall.Parent := MainPage.Surface;
lblFolderToInstall.Top := 10;
lblFolderToInstall.Left := 10;
lblFolderToInstall.Caption := 'If you would like to select a different folder, Click Browse.'

edtFolderToInstall := TEdit.Create(MainPage);
edtFolderToInstall.Parent := MainPage.Surface;

edtFolderToInstall.Top := 40;
edtFolderToInstall.Left := 7;
edtFolderToInstall.Width := 321;
edtFolderToInstall.Text := WizardDirValue;

btnFolderToInstall := TButton.Create(MainPage);
btnFolderToInstall.Parent := MainPage.Surface;
btnFolderToInstall.Top := 38;
btnFolderToInstall.Left := 340;
btnfolderToInstall.Caption := 'Browse...';
btnFolderToInstall.OnClick := @BrowseClick;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
MainPage.ID:
begin
WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
end;
end;
end;

[Rhianarkipom]

Как создать Label в окне выбора папки, и сменить заголовок окна "Обзор папок" ?

[nik1967]

Rhianarkipom, не понятно и не информативно.

[Rhianarkipom]

Rhianarkipom, не понятно и не информативно »

Я имел ввиду : Нужно сделать как на скриншоте

Смотрите скриншот!
http://forum.oszone.net/attachment.php?attachmentid=137898&d=1467633076


; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{56AC41C4-C68E-4E95-89A2-98EBF2F72921}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DisableWelcomePage=no
DisableReadyMemo=yes
DisableReadyPage=yes
DisableFinishedPage=no
DisableDirPage=yes
DisableStartupPrompt=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
;Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";

[Code]
var
MainPage : TWizardPage;
edtFolderToInstall : TEdit;
InstallLocation : String;

procedure BrowseClick(Sender : TObject);
var
Dir : String;
begin
Dir := edtFolderToInstall.Text;
if BrowseForFolder('Select а folder in the list below, then click OK.',Dir,false) then
edtFolderToInstall.Text := Dir;
end;

procedure InitializeWizard();
var
lblFolderToInstall : TLabel;
btnFolderToInstall : TButton;

begin
MainPage := CreateCustomPage(wpWelcome,'Select Destination Location','Where should {#MyAppName} be installed ?');
lblFolderToInstall := TLabel.Create(MainPage);
lblFolderToInstall.Parent := MainPage.Surface;
lblFolderToInstall.Top := 10;
lblFolderToInstall.Left := 10;
lblFolderToInstall.Caption := 'If you would like to select a different folder, Click Browse.'

edtFolderToInstall := TEdit.Create(MainPage);
edtFolderToInstall.Parent := MainPage.Surface;

edtFolderToInstall.Top := 40;
edtFolderToInstall.Left := 7;
edtFolderToInstall.Width := 321;
edtFolderToInstall.Text := WizardDirValue;

btnFolderToInstall := TButton.Create(MainPage);
btnFolderToInstall.Parent := MainPage.Surface;
btnFolderToInstall.Top := 38;
btnFolderToInstall.Left := 340;
btnfolderToInstall.Caption := 'Browse...';
btnFolderToInstall.OnClick := @BrowseClick;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
MainPage.ID:
begin
WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
end;
end;
end;

[vadjliss]

как закрепить ярлык на панели задач

[ZVSRus]

как закрепить ярлык на панели задач

Пример от saurn

#define MyAppName "MyProg"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{C3296BC8-00E4-4112-A1FB-4E710F84662C}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: "C:\Program Files (x86)\Inno Setup v.5.5.1\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[ Code]
const
LOAD_LIBRARY_AS_DATAFILE = $2;

#define A = (Defined UNICODE) ? "W" : "A"

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to executable file
// IsPin......: False - unpin from TaskBar, True - pin to TaskBar
var
hInst: THandle;
buf: array [0..255] of Char;
i, res: Integer;
strLnk, strVerb: String;
objShell, colVerbs: Variant;
begin
Result := False;
if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit; { below Windows 7 }

{ String resources }
if IsPin then
begin
if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
begin
while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
end;
res := 5386; { Pin to Tas&kbar }
end else res := 5387; { Unpin from Tas&kbar }

{ Load string resource }
hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
if hInst <> 0 then
try
for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
try
objShell := CreateOleObject('Shell.Application');
colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
begin
colVerbs.Item[i].DoIt;
Result := True;
Break;
end;
except
Exit;
end;
finally
FreeDLL(hInst);
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
r: integer;
begin
case CurStep of
ssPostInstall:
begin
PinToTaskbar(ExpandConstant('{app}\MyProg.exe'), True);
end;
end;
end;

Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

{ UnPin }
begin
case CurUninstallStep of
usUninstall: PinToTaskbar( ExpandConstant( '{app}\MyProg.exe' ), False );
end;
end;

[Nordek]

Как создать Label в окне выбора папки, и сменить заголовок окна "Обзор папок" ? »Не понятно. Вам на странице SelectDirPage под DirEdit нужно окно для выбора месторасположения установки?

#define AppName "My Program"

[Setup]
AppName={#AppName}
AppVersion=1.5
DefaultDirName={pf}\{#AppName}
DefaultGroupName={#AppName}

[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[Code]
var
WTV_Window: TFolderTreeView;

procedure WTV_WindowChange(Sender: TObject);
begin
WizardForm.DirEdit.Text:=AddBackslash(WTV_Window.Directory) + '{#AppName}'
end;

procedure InitializeWizard();
begin
WTV_Window := TFolderTreeView.Create(WizardForm);
with WTV_Window do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0), ScaleY(96), ScaleX(417), ScaleY(113));
OnChange := @WTV_WindowChange;
end;
end;

[vadjliss]

ребята подскажите как сделать что бы компонент был включен как на скрине у меня стоят компоненты через Tasks
http://fs5.directupload.net/images/160710/of5aipyb.png

[vint56]

vadjliss,

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup

[Tasks]
Name: ProgFiles; Description: Program Files
Name: HelpFile; Description: Help File
Name: ReadmeFile; Description: Readme File
Name: ReadmeFile\1; Description: English; Flags: exclusive
Name: ReadmeFile\2; Description: German; Flags: exclusive

[Icons]
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
//Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectTasks then
begin
WizardForm.TasksList.Checked[0] := True;
WizardForm.TasksList.Checked[3] := True;
WizardForm.TasksList.ItemEnabled[0] := False;
WizardForm.TasksList.TreeViewStyle := True;
WizardForm.TasksList.ShowLines := True;
end;
end;

[vadjliss]

У меня вот так
#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup

[Files]
Source: soft\Microsoft Visual C++.exe; DestDir: {tmp}; Tasks: fbrinst; Flags: deleteafterinstall
Source: soft\NET Framework 4.5.2(онлайн-установка).exe; DestDir: {tmp}; Tasks: aaa; Flags: deleteafterinstall
Source: soft\NET Framework 4.6(онлайн-установка).exe; DestDir: {tmp}; Tasks: ddd; Flags: deleteafterinstall
Source: soft\DirectX (онлайн-установка).exe; DestDir: {tmp}; Tasks: bbb; Flags: deleteafterinstall


[Tasks]
Name: fbrinst; Description: "Microsoft Visual C++"
Name: aaa; Description: "NET Framework 4.5.2(онлайн-установка)"
Name: ddd; Description: "NET Framework 4.6(онлайн-установка)"
Name: bbb; Description: "DirectX (онлайн-установка)"

[Run]
Filename: {tmp}\Microsoft Visual C++.exe; Description: "Launch Firebird Setup"; Tasks: fbrinst
Filename: {tmp}\NET Framework 4.5.2(онлайн-установка).exe; Description: "Launch Firebird Setup"; Tasks: aaa
Filename: {tmp}\NET Framework 4.6(онлайн-установка).exe; Description: "Launch Firebird Setup"; Tasks: ddd
Filename: {tmp}\DirectX (онлайн-установка).exe; Description: "Launch Firebird Setup"; Tasks: bbb

[Nordek]

vadjliss, #define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup

[Files]
Source: soft\Microsoft Visual C++.exe; DestDir: {tmp}; Tasks: fbrinst; Flags: deleteafterinstall
Source: soft\NET Framework 4.5.2(онлайн-установка).exe; DestDir: {tmp}; Tasks: aaa; Flags: deleteafterinstall
Source: soft\NET Framework 4.6(онлайн-установка).exe; DestDir: {tmp}; Tasks: ddd; Flags: deleteafterinstall
Source: soft\DirectX (онлайн-установка).exe; DestDir: {tmp}; Tasks: bbb; Flags: deleteafterinstall

[Tasks]
Name: fbrinst; Description: Microsoft Visual C++
Name: aaa; Description: NET Framework 4.5.2(онлайн-установка)
Name: ddd; Description: NET Framework 4.6(онлайн-установка)
Name: bbb; Description: DirectX (онлайн-установка)

[Run]
Filename: {tmp}\Microsoft Visual C++.exe; Description: Launch Firebird Setup; Tasks: fbrinst
Filename: {tmp}\NET Framework 4.5.2(онлайн-установка).exe; Description: Launch Firebird Setup; Tasks: aaa
Filename: {tmp}\NET Framework 4.6(онлайн-установка).exe; Description: Launch Firebird Setup; Tasks: ddd
Filename: {tmp}\DirectX (онлайн-установка).exe; Description: Launch Firebird Setup; Tasks: bbb

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectTasks then
begin
WizardForm.TasksList.Checked[0] := True;
WizardForm.TasksList.ItemEnabled[0] := False;
WizardForm.TasksList.Checked[2] := True;
WizardForm.TasksList.ItemEnabled[2] := False;
end;
end;
Также обратите внимание на сообщение #1613, коллега vint56 поправил пример.

vadjliss, Пользуйтесь тегом для оформления кодов Inno Setup.

[Bajuyngaonau]

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{C5AD9121-9AE4-48DB-9913-539017B5EF4D}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DisableWelcomePage=no
DisableReadyMemo=yes
DisableReadyPage=yes

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

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon


[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID = wpSelectDir) or (CurPageID = wpReady) then
WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall)
else if (CurPageID = wpFinished) then
WizardForm.NextButton.Caption := SetupMessage(msgButtonFinish)
else
WizardForm.NextButton.Caption := SetupMessage(msgButtonNext);
end;

const
MF_BYCOMMAND = $00000000;
MF_BYPOSITION = $00000400;

type
HMENU = THandle;

function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';
function DeleteMenu(hMenu: HMENU; uPosition, uFlags: UINT): BOOL; external 'DeleteMenu@user32.dll stdcall';
function GetMenuItemCount(hMenu: HMENU): Integer; external 'GetMenuItemCount@user32.dll stdcall';

procedure InitializeWizard;
var
SystemMenu: HMENU;
begin
SystemMenu := GetSystemMenu(WizardForm.Handle, False);
DeleteMenu(SystemMenu, 9999, MF_BYCOMMAND);
DeleteMenu(SystemMenu, GetMenuItemCount(SystemMenu)-1, MF_BYPOSITION);
end;



Куда лучше вставить эту строку : WizardForm.SelectDirBrowseLabel.Caption:= 'To continue, click Install. If you would like to select a different folder, click Browse.'; ?

P.S
Знаю что можно использовать секцию [Messages], но мне нужно чтобы было в секции [Code]

[ZVSRus]

Куда лучше вставить эту строку
Вставьте после begin в procedure InitializeWizard;

[Bajuyngaonau]

Вставьте после begin в procedure InitializeWizard; »

Спасибо, в таком случаи буду использовать секцию [Message] от нужны чтобы не мешать код :) :

А не скажите как сделать чтобы этот код был юникодным (Преобразовать из ANSI в Unicode) ?

[ZVSRus]

А не скажите как сделать чтобы этот код был юникодным (Преобразовать из ANSI в Unicode) ?
У меня ANSI. Как преобразовать ANSI в Unicode не знаю, так-как данные действия меня не интересовали.

[Nordek]

как сделать чтобы этот код был юникодным »Используете AkelPad (http://akelpad.sourceforge.net/ru/download.php).
"C:\Program Files\AkelPad\AkelPad.exe" /OpenFile("Input_ISScript.iss", 1251) /SaveFile("Output_ISScript.iss", 65001, 1) /Quit

А не скажите как сделать чтобы этот код был юникодным (Преобразовать из ANSI в Unicode) ? »Опять от вас пользователей никакой информации.
Выдавая предложение "Преобразовать из ANSI в Unicode", какую цель преследуете?
Если для галочки, то данное действие вам ненужно т.к программа Inno версии Ansi не понимает Unicode - иначе в Inno на выходе вместо этого (http://i6.imageban.ru/out/2016/07/14/9f55c92ac88ad8a60c60b097ce06e17f.png), получите вот это (http://i4.imageban.ru/out/2016/07/14/c0239f24b4f575a3e852075a73beb4fa.png).