[VinTagE]

Rikill, Эммм, Font_Classic.exe мой вариант ISFont.dll, да?
Протестировал всё работает нормально!

[Rikill]

VinTagE, да. Это твой. Тебя указать в моём посте? Он не у всех работает.

[VinTagE]

Rikill,

Тебя указать в моём посте?

Как хочешь

Он не у всех работает.

Хотя мне писали что "ISFont.dll" работает достаточно хорошо.

[Raf-9600]

значит не правильно сделал из простого инно в рестулз. »

Верно, все работает. Но проблема теперь в том, что комментариями, закрываются сведения, о необходимом месте на винчестере. Может ктонить сделать, чтоб комментарии отображались не снизу, а в виде боковушки, как при использовании DescCtrl.dll ?

[Rikill]

Raf-9600, InfoPanel и пр просто подвинь

[Edison007]

Друзья, Shegorat работает над библиотекой для правильного отображения шрифта в инсталляторе. Просим протестировать. В архиве два инсталлятора. Простой и от Shegorat. Напишите о результатах работ обеих библиотек! »

мне интересно, почему ты здесь об этом пишешь?

[Rikill]

Edison007, меня Gnom попросил распространить.

[Raf-9600]

InfoPanel и пр просто подвинь »

Да-да, все проще чем я думал. Нужно просто значения из скрипта для DescCtrl.dll, перенести в текущий

[saha1010]

Помогите пожал уста вставить 2 слова
НАд двумя строчками которые получаются в этом скрипте.
Введите желаемый ник !!!ТОЛЬКО ЦИФРАМИ или ЛАТИНСКИМИ БУКВАМИ!!
Введите любой пароль !!!ТОЛЬКО ЦИФРАМИ или ЛАТИНСКИМИ БУКВАМИ!!!

Как на рисунке .

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

; Скрипт создан через Мастер Inno Setup Script.
; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!

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

[code]
var
ISCustomPage1: TWizardPage;
key1: TNewEdit;
key2: TNewEdit;
key3: TNewEdit;
key4: TNewEdit;
user: TNewEdit;

procedure InitializeWizard();
begin
{ Creates custom wizard page }
ISCustomPage1 := CreateCustomPage(wpWelcome, 'Информация о пользователе', 'Пожалуйста, введите данные о себе.');

{ key1 }
key1 := TNewEdit.Create(WizardForm);
with key1 do
begin
Name := 'key1';

Parent := ISCustomPage1.Surface;
Left := ScaleX(48);
Top := ScaleY(136);
Width := ScaleX(65);
Height := ScaleY(21);

Text := '';
MaxLength := 4; // количество знаков
end;

{ key2 }
key2 := TNewEdit.Create(WizardForm);
with key2 do
begin
Name := 'key2';
Parent := ISCustomPage1.Surface;
Left := ScaleX(136);
Top := ScaleY(136);
Width := ScaleX(65);
Height := ScaleY(21);
Text := '';
MaxLength := 4;
end;

{ key3 }
key3 := TNewEdit.Create(WizardForm);
with key3 do
begin
Name := 'key3';
Parent := ISCustomPage1.Surface;
Left := ScaleX(224);
Top := ScaleY(136);
Width := ScaleX(65);
Height := ScaleY(21);
Text := '';
MaxLength := 4;
end;

{ key4 }
key4 := TNewEdit.Create(WizardForm);
with key4 do
begin
Name := 'key4';
Parent := ISCustomPage1.Surface;
Left := ScaleX(312);
Top := ScaleY(136);
Width := ScaleX(65);
Height := ScaleY(21);
Text := '';
MaxLength := 4;
end;




{ user }
user := TNewEdit.Create(WizardForm);
with user do
begin
Name := 'user';
Parent := ISCustomPage1.Surface;
Left := ScaleX(48);
Top := ScaleY(56);
Width := ScaleX(329);
Height := ScaleY(21);
Text := '';
end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
Var
S1, S2: String;
begin
result:=true;
if CurPageID = wpReady then begin//запись после страницы готовности.
S1 := ExpandConstant(key1.Text+'-'+key2.Text+'-'+key3.Text+'-'+key4.Text);
RegWriteStringValue(HKLM, 'Software\GSC Game World\STALKER-COP', 'InstallCDKEY', S1);
RegWriteStringValue(HKLM, 'SOFTWARE\Wow6432Node\GSC Game World\STALKER-COP', 'InstallCDKEY', S1);
S2 := user.Text;
RegWriteStringValue(HKLM, 'Software\GSC Game World\STALKER-COP', 'InstallUserName',S2);
RegWriteStringValue(HKLM, 'SOFTWARE\Wow6432Node\GSC Game World\STALKER-COP', 'InstallUserName',S2);
end;
end; "читать дальше"

[valyok666]

saha1010, так что лейблы не создать новые?