Вопрос Pamaghute pajalusta relizavati vot tacoi script

asterix93

Новичок
Mne nujna delati izminenie v setup.ini vot v tacom vide kak ata relizavati?
Код:
[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;
 

Вложения

  • 1.8 KB Просмотры: 10
Сверху