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

Sergey_Demchuk

Цитата:

Врет функция GetUILanguage. Возвращает значение $0409

-- думаю не врет.
http://msdn.microsoft.com/en-us/library/windows/desktop/dd374098%28v=vs.85%29.aspx

Цитата:

...On Windows Vista and later, the user UI language is the first language in the user preferred UI languages list....

т.е. начиная с Windows Vista, GetUILanguage возвращает первый из списка доступных языков пользовательского интерфейса.

Цитата:

GetUILanguage возвращает первый из списка доступных языков пользовательского интерфейса

Это можно где то в реестре посмотреть? Как же на русской винде ф-я первым языком возвращает английский?
И что в таком случае будет с мультиязычной виндой, у которой например кроме английского будет еще и русский и украинский...первым всегда будет английский, так получается?

Sergey_Demchuk -- как вариант, можешь из ключа реестра:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language
читать значение переменной Default

Всем привет. Ребята помогите найти скрипт проверки ввода данных
Сейчас она выглядит так
Код: function NextButtonClick(CurPageID: Integer): Boolean;
var
hWnd: Integer;
begin
Result:=True
if CurPageID = NewPage.ID then
begin
Result:=Edit1.Text = '11111'
Result:=Edit2.Text = '22222'
Result:=Edit3.Text = '33333'
Result:=Edit4.Text = '44444'
Result:=Edit5.Text = '55555'
if not Result then
begin
hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));
MessageBox(hwnd, 'Неверный серийный номер.', 'Ошибка!', MB_ICONINFORMATION)
Result:=False
end

demon_777

Цитата:

т.е если введены эти значения то переход на новую страницу

-- не совсем так. Переход если в последнем поле пять пятерок. Остальные значения у тебя можно сказать не проверяются вообще
Каждая часть серийника всегда 5 символов? Это могут быть только цифры? Каким еще условиям должна удовлетворять каждая часть?

Помогите пожалуйста!!!
Где нужно сменить координаты в прогресс баре, что бы его переместить???



Добавлено:
Спасибо, разобрался.

Genri


Цитата:

Каждая часть серийника всегда 5 символов?

Нет в каждой части серийника вводится по 4 символа

Цитата:

Это могут быть только цифры?

Нет не только цифры но и буквы

Цитата:

Каким еще условиям должна удовлетворять каждая часть?

Ну вот к примеру серийники будут наподобие такого
56LC-V6RA-KNP7-RJYH-FARH

Подскажите в таком вопросе. При старте инсталлятора во временную папку извлекается около 80 файлов. Инсталлятор при запуске до появления первого окна проходит много времени, от 1 мин до 5 мин. как на каком компе запустить. Как то это можно побороть? В инсталляторе файлов весом этак в 700мб, наверное при старте ищутся те временные файлы, которые надо извлечь и из-за этого тормоза такие...

файлы, которые нужны сразу, при старте инсталла, нужно указать в начале секции файлс и поставить на них флаги - Flags: solidbreak. Можно еще nocompression если дела совсем плохи.
solidbreak - будет обрывать блоки непрерывного сжатия на этих файлах, а nocompression не даст эти файлы сжимать - что тоже ускорит их распаковку.

demon_777

Цитата:

к примеру серийники будут наподобие такого
56LC-V6RA-KNP7-RJYH-FARH

-- тогда к примеру [more=так]
Код: [no]
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Code]
const
gap = 8;
MaxPartLen = 4;
var
SerialPage: TWizardPage;
SerialPart1, SerialPart2, SerialPart3, SerialPart4, SerialPart5: TNewEdit;

procedure SerialPartOnChange(Sender: TObject);
var
ln: integer;
begin
if (Length(SerialPart1.Text) = 4) and
(Length(SerialPart2.Text) = 4) and
(Length(SerialPart3.Text) = 4) and
(Length(SerialPart4.Text) = 4) and
(Length(SerialPart5.Text) = 4)
then
WizardForm.NextButton.Enabled := True
else
WizardForm.NextButton.Enabled := False;
end;


procedure CreatePages();
begin
SerialPage := CreateCustomPage(wpWelcome, 'License Information', 'Please enter Serial number, then click Next.');

SerialPart1 := TNewEdit.Create(SerialPage);
with SerialPart1 do begin
Top := SerialPage.SurfaceHeight / 2 ;
Width := ScaleX(48);
Left := (SerialPage.SurfaceWidth / 2) - (5*SerialPart1.Width + 4*gap)/2;
CharCase := ecUpperCase;
MaxLength := MaxPartLen;
Parent := SerialPage.Surface;
OnChange:= @SerialPartOnChange;
end;

SerialPart2 := TNewEdit.Create(SerialPage);
with SerialPart2 do begin
Top := SerialPart1.Top;
Left := SerialPart1.Left + SerialPart1.Width + ScaleX(gap);
Width := SerialPart1.Width;
CharCase := ecUpperCase;
MaxLength := MaxPartLen;
Parent := SerialPage.Surface;
OnChange:= @SerialPartOnChange;
end;

SerialPart3 := TNewEdit.Create(SerialPage);
with SerialPart3 do begin
Top := SerialPart2.Top;
Left := SerialPart2.Left + SerialPart2.Width + ScaleX(gap);
Width := SerialPart2.Width;
CharCase := ecUpperCase;
MaxLength := MaxPartLen;
Parent := SerialPage.Surface;
OnChange:= @SerialPartOnChange;
end;

SerialPart4 := TNewEdit.Create(SerialPage);
with SerialPart4 do begin
Top := SerialPart3.Top;
Left := SerialPart3.Left + SerialPart3.Width + ScaleX(gap);
Width := SerialPart3.Width;
CharCase := ecUpperCase;
MaxLength := MaxPartLen;
Parent := SerialPage.Surface;
OnChange:= @SerialPartOnChange;
end;

SerialPart5 := TNewEdit.Create(SerialPage);
with SerialPart5 do begin
Top := SerialPart4.Top;
Left := SerialPart4.Left + SerialPart4.Width + ScaleX(gap);
Width := SerialPart4.Width;
CharCase := ecUpperCase;
MaxLength := MaxPartLen;
Parent := SerialPage.Surface;
OnChange:= @SerialPartOnChange;
end;
end;

procedure InitializeWizard();
begin
CreatePages();
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = SerialPage.ID then
SerialPartOnChange(nil);
end;
[/no]

извините, а можно в инсталятор вставить цифровые часы с показом НН:ММ?

Цитата:

Оригинальный скрипт R.G.Catalyst, как и обещал: http://rghost.ru/35866658

Перезалейте пожалста

Здравствуйте, помогите мне пожалуйста прекрепить к этому скрипту ( http://rghost.ru/3592309 ,скрипт не мой!) лого и системные требования и что нужно сделать....и т.д.. подробнее на скрине

Благодарю всех тех кто мне поможет в создание(доработки скрипта)

Есть у кого-нибудь такой скрипт или очень похожий как на скриншотах?

Чтобы был такой же компактный и интуитивно понятный. Желательно как на скринах сразу с кнопкой "Установить" справа и кнопкой "Настройки" слева.

Karbid87
у меня есть, но написать самому не сложно.

Despofix
Не мог бы ты поделиться в ЛС? Буду благодарен.

Despofix
А можно и мне тоже данный скрипт в ЛС? Очень понравился.

Цитата:

Не мог бы ты поделиться в ЛС? Буду благодарен.

Цитата:

А можно и мне тоже данный скрипт в ЛС? Очень понравился.

А самим сделать слабо?

Edison007007
Было бы не слабо, то я бы не просил.

Помогите пожалуйста, прочитайте мой предыдущий пост.

Цитата:

Было бы не слабо, то я бы не просил.

ну если ты не можешь сделать этого, а это элементарные вещи, то забей на это дело

EGOREA1999
Держи...

Tapas77789, спасибо тебе БОЛЬШОЕ!Только жаль что неубрал пункт о программе и лого некликабельное ,Но все-равно спасибоооо!!!!!

EGOREA1999
Про меню забыл шас доделаю

вот доделал

С кликабельным лого

Здравствуйте, помогите мне пожалуйста прикрепить к этому скрипту (http://rghost.ru/36356121) FreeArc расширенный с запросом следующего диска.
Благодарю тех, кто мне поможет в доработке скрипта.

Genri, спасибо большое

парни помогите плз...

Данный инстолятор не может распаковать прекомп, всё время выдаёт ошибку

Neronk001
Роскоментируй в начале скрипта строку
precomp042

Tapas77789

Так тоже делал!

И ещё я сжимал в 038 версий! Почему он использует 040?

Neronk001
define precomp "0.42"
замени на
define precomp "0.38"