» Inno Setup (создание инсталяционных пакетов)

de_MAX
Уже тут обсуждали добавление дополнительного прогрессбара. Пока решения не нашли

Как Изменить Текст Страницу Приветствия

Добавлено:
Как Изменить Текст МенюПриветствия

Yoldosh
А по подробней? Что значит "изменить"? Изменить текст, изменить картинку?
И что такое "Меню приветствия"?

Help !!!!!!!!! Как Изменить Текст Страницу Приветствия Зарнее Спасибо

Добавлено:
noiseless Текст Вас Приветствует Матер Установки

Victor_Dobrov

Помогите, пожалуйста, преобразовать этот скрипт [more]
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';
function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';

var
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;

procedure DeinitializeSetup();
begin
disabledesc();
end;

procedure InitializeWizard();
begin
WizardForm.ComponentsList.Height := ScaleY(181) - WizardForm.TypesCombo.Top - WizardForm.TypesCombo.Height;
WizardForm.ComponentsList.Top := WizardForm.TypesCombo.Top+24;
WizardForm.ComponentsList.Width := ScaleX(417);

InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := ScaleY(190);
InfoPanel.Left := ScaleX(0);
InfoPanel.Width := ScaleX(417);
InfoPanel.Height := ScaleY(40);
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := 'Описание';
InfoCaption.Left := ScaleX(7);
InfoCaption.Top := InfoPanel.Top - ScaleY(6);
InfoCaption.Font.Color := clActiveCaption;

Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(403);
Info.Top := ScaleY(12);
Info.Height := ScaleY(24);
Info.Caption := 'Наведите курсор мыши на компонент, чтобы прочитать его описание.';
Info.WordWrap := true;

enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
'qwe;'+
'qwerty;'+
'qwertyui;'+
'qwertyuiop;'
);
end;[/more], чтобы вместо descctrl.dll использовать возможности расширенной версии Inno Setup Compiler http://restools.hanzify.org/.

Вы мне уже давали пример скрипта на этой расширенной версии inno, но там было использование подсказки. А здесь используется дополнительная панель, что, по-моему, удобнее. Я пытался что-то сделать - ничего не получается.

Yoldosh
В папке, куда установлен INNO, находится подпапка Languages. Это локализованные тексты страничек и сообщений инсталлятора. Выбираешь язык, открываешь файл блокнотом и редактируешь.

Люди, помогите, пожалуйста. Я здесь обнаружил dll ExpeditorR'а "isjpgtobmp.dll", которая преобразует jpg в bmp. Так вот, на файлообменнике она была удалена. Помогите, скажите, где можно взять эту dll?

Добавлено:
Люди, помогите, пожалуйста. Я здесь обнаружил dll ExpeditorR'а "isjpgtobmp.dll", которая преобразует jpg в bmp. Так вот, на файлообменнике она была удалена. Помогите, скажите, где можно взять эту dll?

Все разобрался

Yoldosh, так будет проще:

[Messages]
WelcomeLabel1= заголовок
WelcomeLabel2= текст

LouisVuitton
Цитата:

Подскажите, пожалуйста, реально ли сделать что бы здесь текст был без фона, то есть поверх картинки.

Посмотри, как сделано здесь: http://victor-dobrov.narod.ru/NSIS_ImageHeader.rar

YurCompMan2
Цитата:

...вместо descctrl.dll использовать возможности расширенной версии Inno Setup Compiler

Вот пример: [more]

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe

[Types]
Name: compact; Description: Оптимальный выбор
Name: full; Description: Выбрать все компоненты
Name: deselect; Description: Сбросить все компоненты
Name: custom; Description: Пользовательский режим; Flags: iscustom

[Components]
Name: program; Description: program; Types: full compact custom; Flags: fixed
Name: help; Description: help; Types: full
Name: readme; Description: readme; Types: full
Name: readme\en; Description: en; Flags: exclusive
Name: readme\ru; Description: ru; Flags: exclusive

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

[CustomMessages]
ru.desc=Наведите курсор мыши на компонент, чтобы прочитать его описание.

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Components: program
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Components: help

[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe

[Code]
var
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;
Descriptions: String;
CompHints: array of String;

Function StringToArray(Text, Cut: String): array of String; var t, i, k: Integer; Begin    { создать массив из текста}
SetArrayLength(Result, 0);
Repeat SetArrayLength(Result, GetArrayLength(Result) + 1); t:= 1; k:= Pos(Cut, Text);
if k > 0 then t:= Length(Cut) else k:= Pos(#10, Text); i:= GetArrayLength(Result) - 1;
if k > 0 then begin Result[i]:= Copy(Text, 1, k - 1); Text:= Copy(Text, k + t, Length(Text)) end else begin Result[i]:= Text; SetLength(Text, 0) end;
Until Length(Text) = 0;
End;

Procedure CompMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
Begin
    if (Index < 0) or (Index + 1 > GetArrayLength(CompHints)) then Info.Caption:= ExpandConstant('{cm:desc}') else Info.Caption:= CompHints[Index]
End;

procedure InitializeWizard();
begin
WizardForm.ComponentsList.Height := ScaleY(181) - WizardForm.TypesCombo.Top - WizardForm.TypesCombo.Height;
WizardForm.ComponentsList.Top := WizardForm.TypesCombo.Top+24;
WizardForm.ComponentsList.Width := ScaleX(417);
InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := ScaleY(192);
InfoPanel.Left := ScaleX(0);
InfoPanel.Width := ScaleX(417);
InfoPanel.Height := ScaleY(40);
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := 'Описание';
InfoCaption.Left := ScaleX(7);
InfoCaption.Top := InfoPanel.Top - ScaleY(6);
InfoCaption.Font.Color := clActiveCaption;
Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(403);
Info.Top := ScaleY(12);
Info.Height := ScaleY(24);
Info.WordWrap := true;
Info.Caption:= ExpandConstant('{cm:desc}')

Descriptions:=
'Основные файлы;' +
    'Файлы справки;' +
    'Файл readme;' +
    'readme на английском;' +
    'readme на русском;'
CompHints:= StringToArray(Descriptions,';')
    WizardForm.ComponentsList.OnItemMouseMove:= @CompMouseMove;
end;
[/more]

Только у этого способа есть недостатки: размер списка компонентов меньше, чем стандартный и в панель описаний входит меньше текста, чем в отдельной всплывающей подсказке.

YurCompMan2
Перезалил isjpgtobmp.dll по новой Ссылка. В архиве имеется пример показа слайд-шоу из jpg картинок, картинки меняются по процентам установки.

P.S.
На днях закончу новую dll для показа jpg,bmp,png без предварительной конвертации, плюс будут эффекты переходов из одной картинки в другую, и этой же библиотекой можно будет проигрывать практически любой звуковой файл.

Доброго здравия всем!!!
Подскажите как можно реализовать такую конструкцию в inno

Код:
type
TFunc = function (): String;

var
AFunc : TFunc;

function Demo : String;
begin
Result := 'demo';
end;


Procedure A1;
begin
if not Assigned(AFunc) then AFunc := Demo;
if AFunc() = 'Demo' then .....
end;

Victor_Dobrov
ExpeditorR

Большое спасибо.

Ребят подскажите чайнику Нужно в строковом массиве найти слово (имя файла). Есть такой код, но он ищет целую строку:

procedure searchstring;
var
flist: TArrayOfString;
fitem: String;
i:integer;
begin
LoadStringsFromFile('C:\List.txt', flist);
for i := 0 to GetArrayLength(flist)-1 do begin
fitem := flist[i]
if fitem='dcready.exe' then
MsgBox('found!', mbInformation, MB_OK);
end;
end;

В IS куча функций для работы со строковыми переменными.
В том числе для выдергивания из них путей/имен файлов etc.
Читайте стандартный мануал.

Кому интересно жители поднебесной сделали очередную версию расширенных возможностей Inno Setup 5.2.3 (ISPP 5.2.3.0) (build 090115), по мне так она намного интереснее (удобнее) оригинала, тем более что, начиная с (build 090110) багов мной замечено не было.
Качаем

Кстати, насчёт этого китайского Inno. Кто-нибудь знает простой способ сделать так, чтобы пункты в режиме TreeView были свёрнуты по умолчанию?

Diawer

Цитата:

Кому интересно жители поднебесной сделали очередную версию расширенных возможностей Inno Setup 5.2.3

А где-то можно почитать описание расширенных возможностей? (английский, русский)


Цитата:

Качаем

А зачем так сложно? Требует оригинальных файлов, на уже модифицированный inno не встает, папку куда установить нет возможности.
Проще взять с оригинала: hччp://restools.hanzify.org/inno/InnoCompiler090115_English.zip банальная распаковка и все работат.

Как вызвать автодополнение (кроме точки)?

Цитата:

Кстати, насчёт этого китайского Inno. Кто-нибудь знает простой способ сделать так, чтобы пункты в режиме TreeView были свёрнуты по умолчанию?

Флаг Collapsed для родительского компонента сворачивает его.

Привет всем, прошу проверить правильно я ассоцииирую программу с типом файла [more][Registry]
Root: HKLM; Subkey: "SOFTWARE\Classes\.ScanTailor"; ValueType: string; ValueName: ""; ValueData: "Scan Tailor File"; Flags: uninsdeletevalue
Root: HKLM; Subkey: "SOFTWARE\Classes\Scan Tailor File"; ValueType: string; ValueName: ""; ValueData: "Scan Tailor File"; Flags: uninsdeletekey
Root: HKLM; Subkey: "SOFTWARE\Classes\Scan Tailor File\DefaultIcon"; ValueType: string; ValueName: ""; ValueData: "{app}\scantailor.exe,0"
Root: HKLM; Subkey: "SOFTWARE\Classes\Scan Tailor File\shell\open\command"; ValueType: string; ValueName: ""; ValueData: """{app}\scantailor.exe"" ""%1"""
[/more]

LordVeider


Цитата:

В том числе для выдергивания из них путей/имен файлов etc.
Читайте стандартный мануал.

Нашел в хелпе функцию pos и успешно приспособил для своей задачи. Вот мой код

procedure searchstring;
var
flist: TArrayOfString;
fitem: String;
i:integer;
begin
LoadStringsFromFile('C:\List.txt', flist);
for i := 0 to GetArrayLength(flist)-1 do begin
fitem := flist[i]
if Pos('dcready.exe',fitem) <> 0 then
MsgBox('found!', mbInformation, MB_OK)
else
MsgBox('not found!', mbInformation, MB_OK)
end;
end;

но проблема в следующем: сообщений выскакивает столько, сколько строк + совпадений. Как изменить код, чтоб это происходило только 1 раз?

Привет.
Как сделать чтобы в одном случае из [Files] файл копировался в одно место, а в другом в другое. Например если винда 64х разрядная то в програм файлс, если нет то просто на диск с:

Sig666
Странно, что такие вопросы задаются здесь. Лучше найти форум по Pascal / Delphi и задавать там. Там больше людей смогут помочь.

А свой код мог бы и так [more=переписать]
Код:
procedure searchstring;
var
    flist: TArrayOfString;
    fitem: String;
    i:integer;
    found: boolean;
begin
    found := false;
    LoadStringsFromFile('C:\List.txt', flist);
    for i := 0 to GetArrayLength(flist)-1 do begin
        fitem := flist[i]
        if Pos('dcready.exe',fitem) <> 0 then
        begin
            found := true;
            break;
        end;
    end;
    
    if found then
        msgbox( 'Found', mbinformation, MB_OK )
    else
        msgbox( 'Not Found', mbinformation, MB_OK );
end;

SortM
Все обыскал - никак не могу найти. Может ссылкой поможешь?

Как можно отменить установку если произошла ошибка в CurStepChanged?

т.е.

Код:
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then begin
If AlarmFunc then begin
{здесь должен быть некоторый код, который отменит установку.}
(*
WizardForm.close;
abort;
этот код не отменяет устновку :(
*)
end;
end
end;

Dimika

Так вроде:


Код: [Files]
Source: "Файлы 32\*"; DestDir: "{sd}\Bin32"; Check: "not Is64BitInstallMode";
Source: "Файлы 64\*"; DestDir: "{pf64}\Bin64"; Check: "Is64BitInstallMode";

Don_Juan
А если этих условий несколько
Можно как-нибудь вставить функцию, которая возвращала быть путь, в DestDir?

Dimika

Можно поподробнее?.. Какие условия и что кого должно возвращать?

vserd
Я вам уже ответил.
Хорошо, [more=повторюсь][Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program

[Code]
function NextButtonClick(CurPage: Integer): Boolean;
var
ResultCode: Integer;
begin
Result:=True;
if CurPage=14 then
If (FileSearch('Program.exe', ExpandConstant('{pf}'))='') then
Exec(ExpandConstant('{uninstallexe}'), '/verysilent', ExpandConstant('{app}'), SW_HIDE, ewNoWait, ResultCode);
end; [/more]...
Вместо проверки на присутствие файла, поставьте проверку вашего условия.

Ребят, помогите, пожалуйста, с этим кодом.
В общем, после удаление программы остаётся папка с файлами которую трогать не надо. А с использованием этого кода он эту папку видит и удаляет. Так вот можно как-нибудь папку скрыть, чтобы этот код пост удаления её не видел?


Код: [code]

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if ( CurUninstallStep = usPostUninstall ) then
If DirExists(ExpandConstant('{app}') + '')
then
if MsgBox('Удалить файлы не входящие в пакет установки игры?', mbConfirmation, mb_YesNo) = idYes then
begin
DelTree(ExpandConstant('{app}')+ '', True, True, True);
end;
end;