[BlackSelf]

JohnDes

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[code]
var
  Edit: TEdit;
  s: String;
  
procedure InitializeWizard();
begin
Edit:=TEdit.Create(WizardForm);
Edit.Left:=WizardForm.DirEdit.Left;
Edit.Top:=WizardForm.DirEdit.Top + ScaleY(40);
Edit.Width:=WizardForm.DirEdit.Width;
Edit.Height:=WizardForm.DirEdit.Height;
Edit.AutoSize:=False;
Edit.Parent:=WizardForm.SelectDirPage;
Edit.Text:='Data';
s:=Edit.Text;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  ini: string;
begin
  Result:= True;
  if CurPageID = wpSelectDir then begin
    if Edit.Text=s then
      MsgBox('Значение не изменено.', mbInformation, MB_OK);
    end;
  ini:=ExpandConstant('{userdocs}\file.ini');
  SaveStringToFile(ini, Edit.Text, False);
end;