[Rikill]

salat, тогда убери авто-сжатие всего инсталлятора.
т.е. из секции [setup]
строчку compression и solidcompression

[valyok666]

insombia, держи

А то я пробовал мне пишет что my image не найден или что-то такое »

ты забыл в var прописать MyImage: TBitmapImage;

[insombia]

как изменить цвет текста инсталятора на зеленый?

[Rikill]

insombia,
procedure initializewizard();
begin
WizardForm.Font.Color:= clLime
end;

Rikill не пашет »

значит у вас где-то ещё указаны цвета

insombia, const Color = clLime; // procedure InitializeWizard1(); begin WizardForm.Font.Color:=color; end; procedure InitializeWizard(); begin InitializeWizard1(); end; »

это тоже самое

[insombia]

Rikill не пашет

[salat]

insombia,
const
Color = clLime; //

procedure InitializeWizard1();
begin
WizardForm.Font.Color:=color;
end;

procedure InitializeWizard();
begin
InitializeWizard1();
end;

[Gnom_aka_Lexander]

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

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

const
TfonColor = $00B1AFAE; // Цвет фона
TfontColor = $FF0F0F; // Цвет текста


procedure InitializeWizard();
begin
//-----------------------------------------
// задаем цвет, заодно
// задаем цвет всем элементам,которые нам нужны.
WizardForm.Color:=TfonColor;
WizardForm.WelcomePage.Color:=WizardForm.Color;
WizardForm.FinishedPage.Color:=WizardForm.Color;
WizardForm.InnerPage.Color:=WizardForm.Color;
WizardForm.DirEdit.Color:=WizardForm.Color;
WizardForm.ReadyMemo.Color:=WizardForm.Color;
WizardForm.MainPanel.Color:=WizardForm.Color;
//-----------------------------------------

//-----------------------------------------
// задаем глобальный шрифт
WizardForm.Font.Color:=TfontColor;
WizardForm.Font.Size:=9;
WizardForm.Font.Name:='Georgia';
WizardForm.Font.Style := [fsBold, fsItalic];

// задаем цвет всем шрифтам,которые автоматически
// не меняются со шрифтом визарда.
WizardForm.PageNameLabel.Font := WizardForm.Font;
WizardForm.WelcomeLabel1.Font := WizardForm.Font;

// возвращаем размер шрифта там, где это нужно
WizardForm.WelcomeLabel1.Font.Size:=14;
WizardForm.FinishedHeadingLabel.Font := WizardForm.Font;
WizardForm.FinishedHeadingLabel.Font.Size:=14;
//-----------------------------------------
end;

Но при этом, останутся элементы, цвет шрифта на которых, не изменить - кнопки и чекбоксы. Тут уж только скином.

[insombia]

Спасибо всем кто откликнулся но я уже сам разобрался как его поминять

[saha1010]

Есть ли у нибудь готовый скрипт инстолятора в котором при установке пользователю предлагаться ввести имя которое потом вноситься в определенное место в реестре.

[Gnom_aka_Lexander]

saha1010, Сто лет назад делал.

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

[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);
S2 := user.Text;
RegWriteStringValue(HKLM, 'Software\GSC Game World\STALKER-COP', 'InstallUserName',S2);
end;
end;