[Gnom_aka_Lexander]

Есть вопрос. можно ли сделать так что бы в конце установки сделать поля: »

Как-то так:

читать дальше »

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
NewEdit1: TNewEdit;
NewEdit2: TNewEdit;
Lang: TNewComboBox;

procedure InitializeWizard();
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Name := 'Label1';
Parent := WizardForm.FinishedPage;
Caption := 'Введите ваш никнейм:';
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(136);
Width := ScaleX(115);
Height := ScaleY(13);
end;

{ Label2 }
Label2 := TLabel.Create(WizardForm);
with Label2 do
begin
Name := 'Label2';
Parent := WizardForm.FinishedPage;
Caption := 'Введите ваш клан-тег:';
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(192);
Width := ScaleX(118);
Height := ScaleY(13);
end;

{ Label3 }
Label3 := TLabel.Create(WizardForm);
with Label3 do
begin
Name := 'Label3';
Parent := WizardForm.FinishedPage;
Caption := 'Выбрите язык клиента:';
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(240);
Width := ScaleX(121);
Height := ScaleY(13);
end;

{ NewEdit1 }
NewEdit1 := TNewEdit.Create(WizardForm);
with NewEdit1 do
begin
Name := 'NewEdit1';
Parent := WizardForm.FinishedPage;
Left := ScaleX(24);
Top := ScaleY(152);
Width := ScaleX(121);
Height := ScaleY(21);
end;

{ NewEdit2 }
NewEdit2 := TNewEdit.Create(WizardForm);
with NewEdit2 do
begin
Name := 'NewEdit2';
Parent := WizardForm.FinishedPage;
Left := ScaleX(24);
Top := ScaleY(208);
Width := ScaleX(121);
Height := ScaleY(21);
end;

{ Lang }
Lang := TNewComboBox.Create(WizardForm);
with Lang do
begin
Name := 'Lang';
Parent := WizardForm.FinishedPage;
Left := ScaleX(24);
Top := ScaleY(256);
Width := ScaleX(121);
Height := ScaleY(21);
DropDownCount := 2;
MaxLength := 2;
ParentColor := True;
Text := 'Русский';
Items.Text := 'Русский' + #13#10 +
'Английский';
end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
s1,s2:String;
begin
If CurPageID=wpFinished Then
Begin
If Lang.Text = 'Русский' Then s1:=Russian else s1:=English;
SetIniString('Emulator', 'Language', s1, ExpandConstant('{app}\rev.ini'));
SetIniString('steamclient', 'PlayerName', s2, ExpandConstant('{app}\rev.ini'));
end;
Result:True;
end;

Времени нет на проверить-отладить да покорасивше сделать, но думаю, смысл понятен

[leha---83]

Лександер, Извени я новичек ругается на

PHP код:

s1,s2:String; 

[insombia]

leha---83 а что именно пишет?может просто это уже есть в скрипте

[No4noylis]

leha---83, напиши var над ними.

[leha---83]

[leha---83]

Написал var результат

[insombia]

leha---83 там же написано английский а ты туда русский паяешь

[Gugle]

Доброго времени суток!

Та же проблема с ethernet adapter, но с новой интерпретацией. Мне надо вытащить список адаптеров, но с использованием winpcap.
Проблема в том, что мне необходим порядок и название, в котором их выводит wpcap.

Сам я не силен в delphi/pascal, а посему мне не хватает мозгов переварить мануалы для написания проги. Не могу догнаться как инициализировать *.h для использования структур библиотеки. Примеры с использованием функций сторонных библиотек нашел, но как юзать структуры, которые есть в библиотеке не могу понять.
Прошу помощи гуру в реализации примерчика.

Ссылка на исходники и доки winpcap:
http://www.winpcap.org/docs/default.htm

[Qu@dr0]

Приветствую! Помогите пожалуйста!

Есть игра, запакованная в программу установки. Необходимо, чтобы перед последним окном (в котором есть единственная кнопка - "Завершить", и в которое через секцию [Run] можно вписать пункт запуска программы) в окне инсталлятора (не в отдельном окне!) появлялась форма ввода имени с надписью "Введите желаемое имя", и чтобы кнопка "Далее" не была доступна, пока не будет введёт хотя бы один символ, а введенное имя вписывалось в файл .ini секции [steamclient], параметр PlayerName=, т.е. введёшь в форму слово "Призрак" - и в файле .ini вписалось PlayerName=Призрак.

На прошлых страницах выкладывался скрипт, в котором я чуть подредактировал сообщения и файл, в который имя должно быть записано, однако он не подходит потому, что окно появляется уже после последнего окна установщика (о котором я писал в прошлом абзаце), а нужно, чтобы оно появлялось перед ним, и чтобы его размеры и оформление было такое же, как и у остальных окон установщика.
Кусок скрипта, секция [code]:

читать дальше »

[code]
var
Form: TSetupForm;

procedure ButtonClick(Sender: TObject);
begin
Form.Close;
end;

function GetNickName: string;
var
edt: TEdit;
begin
try
Form := CreateCustomForm;
with Form do
begin
ClientWidth := ScaleX(200);
ClientHeight := ScaleY(100);
Center;
Caption := 'Выбор имени игрока';
end;
with TLabel.Create(Form) do
begin
Parent := Form;
AutoSize := True;
Left := ScaleX(12);
Top := ScaleY(12);
Font.Size := 9;
Caption := 'Введите желаемое имя:';
end;
edt := TEdit.Create(Form);
with edt do
begin
Parent := Form;
SetBounds(ScaleX(10), ScaleY(35), Form.ClientWidth - ScaleX(20), ScaleY(17));
end;
with TButton.Create(Form) do
begin
Parent := Form;
SetBounds((Form.Width - Width) div 2, ScaleY(65), ScaleX(75), ScaleY(23));
Caption := 'OK';
OnClick := @ButtonClick;
end;
Form.ShowModal;
finally
Result := edt.Text;
Form.Free;
Form := nil;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
SetIniString('steamclient', 'PlayerName', GetNickName, ExpandConstant('{app}\rev.ini'))
end;

Также, если это возможно, то пусть под формой ввода имени будет пункт "Сохранить в UTF-8", на котором можно было бы поставить галочку, и если он выбран, то пусть введённое имя сохраняется в файл INI в кодировке UTF-8, не меняя при этом общую кодировку файла (ANSI).

Буду признателен за помощь!

[insombia]

как убрать выделенную область чтобы осталось только закрыть и свернуть?