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;