VPF::Как создать раскрывающиеся список компонентов?

Skaner

Дата 9.11.2008, 14:03 (ссылка)

(голосов:4)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 6.2.2008

Репутация: нет
Всего: -1

Всем привет!Скажите пожалуйста как создать раскрывающиеся список дополнительных компонентов?Список я создал только получилось всё в одном списке.

вот сам код

Код


[Components]
Name: "program"; Description: "Program Files"; Types: full compact custom; Flags: fixed
Name: "help"; Description: "Help File"; Types: full
Name: "readme"; Description: "Readme File"; Types: full
Name: "readme\en"; Description: "English"; Flags: exclusive
Name: "readme\de"; Description: "German"; Flags: exclusive

[Files]
Source: "MyProg.exe"; DestDir: "{app}"; Components: program
Source: "MyProg.chm"; DestDir: "{app}"; Components: help
Source: "Readme.txt"; DestDir: "{app}"; Components: readme\en; Flags: isreadme
Source: "Readme-German.txt"; DestName: "Liesmich.txt"; DestDir: "{app}"; Components: readme\de; Flags: isreadme

Скажите пожалуйста как сделать чтобы выглядело вот так

user posted image

P.s Также есть вопрос!Как создать дополнительное окно перед установкой где нужно будет вводить специальный ключ?Подскажите пожалуйста.

Спасибо!

Akella

Дата 10.11.2008, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Skaner, ошибка в 17ой строке

pseud

Дата 10.11.2008, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Skaner @ 9.11.2008, 14:03

)

Скажите пожалуйста как создать раскрывающиеся список дополнительных компонентов?

TComboBox

Цитата(Skaner @ 9.11.2008, 14:03

)

Список я создал только получилось всё в одном списке

Создай много списков TComboBox

Цитата(Skaner @ 9.11.2008, 14:03

)

вот сам код

пойду куплю книгу по дельфи

Цитата(Skaner @ 9.11.2008, 14:03

)

Скажите пожалуйста как сделать чтобы выглядело вот так

DevExpressTreeList

Цитата(Skaner @ 9.11.2008, 14:03

)

Как создать дополнительное окно перед установкой где нужно будет вводить специальный ключ?

дополнительное окно кому и куда и что за ключ?

Цитата(Skaner @ 9.11.2008, 14:03

)

Спасибо!

Заходи еще.

Как говорится: "Какой вопрос..." smile

Это сообщение отредактировал(а) pseud - 10.11.2008, 10:28

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Bose

Дата 10.11.2008, 14:53 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Skaner, а причём тут Delphi?

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Poseidon

Дата 10.11.2008, 15:02 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Да ладно, чго выпридрались. Видно же что это Inno-скрипт. Ну да, надо было указать это конечно. А еще не в том разделе тема, но это ведь не повод так вредничать smile

Цитата(Skaner @ 9.11.2008, 14:03

)

Скажите пожалуйста как сделать чтобы выглядело вот так

Для твоего примера будет примерно так:

Код


[Types]
Name: "custom"; Description: "Custom installation"; Flags: iscustom

[Components]
Name: "Interfaces"; Description: "User Interfaces"; Types: custom
Name: "Interfaces\Modern"; Description: "Modern User In"; Types: custom
Name: "Interfaces\Default"; Description: "Default User In"; Types: custom

Цитата(Skaner @ 9.11.2008, 14:03

)

Как создать дополнительное окно перед установкой где нужно будет вводить специальный ключ?

Добавь параметр Password в секцию [Setup]. Т.е., к примеру:

Код


[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
OutputDir=userdocs:Inno Setup Examples Output
Password=1234;

Только есть одно но: используя пароль, нужно задать директиве Encryption значение yes, иначе файлы сохранятся как простой текст и получить к ним доступ не составит труда. Но при этом поддержка шифрования не включена в Inno Setup напрямую, ее следует скачать и установить отдельно. Информацию об этом можно найти на английском сайте программы в разделе Downloads.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Skaner

Дата 11.11.2008, 04:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 6.2.2008

Репутация: нет
Всего: -1

Цитата

Добавь параметр Password в секцию [Setup]

Про пароль это я знаю.Как создать окно как нпример при установке Windows,чтобы ключ вводить.

Poseidon

Дата 11.11.2008, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Skaner @ 11.11.2008, 04:40

)

Как создать окно как нпример при установке Windows,чтобы ключ вводить

Ну раз Password не устраивает, тогда ручками через секцию [CODE]. Есть там такая процедурка: InitializeWizard. Посмотри в примерах CodeClasses.iss

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

kemiisto

Дата 11.11.2008, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

Код


function CheckPassword(Password: String): Boolean;

Если в секции [Сode] будет обнаружен это обработчик, то мастер отобразит страница ввода пароля (Password page) и вызовет этот обработчик для проверки правильности ввода. Верните True, если пароль введен верно и False в ином случае. Введенный пользователем пароль передается через параметр Password.

Можно было бы написать что-нибудь типа:

Код


function CheckPassword(Password: String): Boolean;
begin
  if Password = '120885' then
    Result := True;
end;

Но тут есть одно НО! Разработчик Inno Setup настоятельно рекомендует не хранить сам пароль, а использовать сравнение по хеш-сумме. Для этого необходимо самому вычислить MD5 хеш-сумму пароля, а затем сравнить значение GetMD5OfString(Password) с этим значением. При таком подходе фактическое значение пароля остается защищенным.

Код


function CheckPassword(Password: String): Boolean;
begin
  if GetMD5OfString(Password) = '057667becf2d6f53a5cb71f24fdd11b4' then
    Result := True;
end;

Полный код примера находится в аттаче. Взял отсюда.

Это сообщение отредактировал(а) kemiisto - 11.11.2008, 17:28

Присоединённый файл ( Кол-во скачиваний: 5 )

example03.iss 0,71 Kb

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

Poseidon

Дата 11.11.2008, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

kemiisto, CheckPassword в [CODE] аналогично Password в [Setup]

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Skaner

Дата 30.11.2008, 04:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 6.2.2008

Репутация: нет
Всего: -1

Нашёл то что искал.Но не могу скомпилировать код.Выдаёт ошибку.Помогите разобраться.Комментарии и ридми на китайском.

Присоединённый файл ( Кол-во скачиваний: 3 )

Inno_ISCmplr_Setup080914.rar 505,60 Kb

Poseidon

Дата 30.11.2008, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Где ты нашел параметр ComponentsListTVStyle в [Setup]?
Флаг Collapsed в [Components] - это что?

Дальше не разбирал, не охота копаться в аброкадабре.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Skaner

Дата 30.11.2008, 22:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 6.2.2008

Репутация: нет
Всего: -1

Скрипт не мой.Скачал из интернета.Кто может написать пример скрипта раскрывающего дерева?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »