Inno Setup Platnii zacaz!!!

asterix93

Новичок
Я плачу 1000р (на webmoney), мне нужно делать изминения в файле setup.ini
1.То что я пишу на форме что бы сохранился в файле.
2.В форме отображались настойки которые сейчас в setup, что бы я смог удалить и изменить.
3.Где я не делаю изминения что бы остались так как есть в setup(без изминения),вот пример как я планирую сделать:


Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[files]
Source: "setup.ini"; DestDir: "{app}"; Flags: ignoreversion ;

[INI]
Filename: "{app}\setup.ini"; Section: Security; Key: Key; String: NickEdit1.Text;
Filename: "{app}\setup.ini"; Section: Visual; Key: Button height; String:  NickEdit2.Text;
Filename: "{app}\setup.ini"; Section: Visual; Key: Button space; String:  NickEdit3.Text;
Filename: "{app}\setup.ini"; Section: Visual; Key: Button font size; String:  NickEdit4.Text;
Filename: "{app}\setup.ini"; Section: Settings; Key: LockTime; String:  NickEdit5.Text;
Filename: "{app}\setup.ini"; Section: Settings; Key: Timeout; String:  NickEdit6.Text;

[code]
var
  NickInfo: TWizardPage;
  NickEdit1: TNewEdit;
  NickEdit2: TNewEdit;
  NickEdit3: TNewEdit;
  NickEdit4: TNewEdit;
  NickEdit5: TNewEdit;
  NickEdit6: TNewEdit;

procedure InitializeWizard();
begin
  NickInfo := CreateCustomPage(wpWelcome, '', '');
  { NewEdit1 }
  NickEdit1 := TNewEdit.Create(WizardForm);
  with NickEdit1 do
  begin
    Parent := NickInfo.Surface;
    Left := ScaleX(220);
    Top := ScaleY(16);
    Width := ScaleX(181);
    Height := ScaleY(21);
    Text := '';
  end;

  { NewEdit2 }
  NickEdit2 := TNewEdit.Create(WizardForm);
  with NickEdit2 do
  begin
    Parent := NickInfo.Surface;
    Left := ScaleX(220);
    Top := ScaleY(48);
    Width := ScaleX(181);
    Height := ScaleY(21);
    Text := '';
  end;

  { NewEdit3 }
  NickEdit3 := TNewEdit.Create(WizardForm);
  with NickEdit3 do
  begin
    Parent := NickInfo.Surface;
    Left := ScaleX(220);
    Top := ScaleY(80);
    Width := ScaleX(181);
    Height := ScaleY(21);
    Text := '';
  end;

  { NewEdit4 }
  NickEdit4 := TNewEdit.Create(WizardForm);
  with NickEdit4 do
  begin
    Parent := NickInfo.Surface;
    Left := ScaleX(220);
    Top := ScaleY(108);
    Width := ScaleX(181);
    Height := ScaleY(21);
    Text := '';
  end;

  { NewEdit5 }
  NickEdit5 := TNewEdit.Create(WizardForm);
  with NickEdit5 do
  begin
    Parent := NickInfo.Surface;
    Left := ScaleX(220);
    Top := ScaleY(136);
    Width := ScaleX(181);
    Height := ScaleY(21);
    Text := '';
  end;

  { NewEdit6 }
  NickEdit6 := TNewEdit.Create(WizardForm);
  with NickEdit6 do
  begin
    Parent := NickInfo.Surface;
    Left := ScaleX(220);
    Top := ScaleY(168);
    Width := ScaleX(181);
    Height := ScaleY(21);
    Text := '';
  end;

  NickEdit1.TabOrder := 0;
  NickEdit2.TabOrder := 1;
  NickEdit3.TabOrder := 2;
  NickEdit4.TabOrder := 3;
  NickEdit5.TabOrder := 4;
  NickEdit6.TabOrder := 5;
end;
 

Вложения

Последнее редактирование:

Shegorat

Lord of Madness
Администратор
asterix93
Уважайте других людей. Пишите на русском без транслита и ошибок. Тогда и вам помогут. Честное слово, у меня идет кровь из глаз при виде ваших сообщений.
 
Сверху