[Imitri7]

insombia, ctrl+H и в первую строку пишем Setup-1a.bin а во вторую Setup-1.bin жмем заменить все

to all

наработка

PHP код:

[Files]
Source: DirBitmap.bmp; DestDir: {tmp}; Flags: dontcopy
Source: DirBitmap2.bmp; DestDir: {tmp}; Flags: dontcopy

[CustomMessages]
ru.Enter=Укажите путь до вашего Steam профиля:

[code]
Var
Label0, Label1, Label2: TLabel;
NewEdit1, NewEdit2: TNewEdit;
TestSystemButton: TNewButton;
  BitmapImage1: TBitmapImage;

procedure InitializeWizard();
begin
    WizardForm.DirBrowseButton.Top := ScaleY(44);
    WizardForm.DirEdit.Top := ScaleY(44);

    WizardForm.SelectDirBrowseLabel.Top := ScaleY(150);
    
begin
ExtractTemporaryFile('DirBitmap.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap.bmp'));
WizardForm.SelectDirBitmapImage.Width:= 32
WizardForm.SelectDirBitmapImage.Height:= 32
WizardForm.SelectDirBitmapImage.Top:= WizardForm.SelectDirBitmapImage.Top
WizardForm.SelectDirBitmapImage.Parent := WizardForm.SelectDirPage;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Name := 'BitmapImage1';
    Parent := WizardForm.SelectDirPage;
    Left := WizardForm.SelectGroupBitmapImage.Left;
    Top := WizardForm.SelectGroupBitmapImage.Top + ScaleY(30) + ScaleY(44);
    Width := ScaleX(32);
    Height := ScaleY(32);
    ExtractTemporaryFile('DirBitmap2.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap2.bmp'));
  end;

//ExtractTemporaryFile('DirBitmap2.bmp');
//WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap2.bmp'));
//WizardForm.SelectGroupBitmapImage.Width:= 32
//WizardForm.SelectGroupBitmapImage.Height:= 32
//WizardForm.SelectGroupBitmapImage.Top:= WizardForm.SelectGroupBitmapImage.Top + ScaleY(30) + ScaleY(44);
//WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectDirPage;
end;
    
with WizardForm do begin
Label0 := TLabel.Create(WizardForm);
with Label0 do begin
Name := 'Label0';
Parent := WizardForm.SelectDirPage;
Caption := ExpandConstant('{cm:Enter}');
Transparent := False;
Left := WizardForm.SelectStartMenuFolderLabel.Left
Top := WizardForm.SelectStartMenuFolderLabel.Top + ScaleY(30) + ScaleY(44);
Height := ScaleY(20);
//AutoSize := true;
end;
NewEdit1 := TNewEdit.Create(WizardForm);
with NewEdit1 do begin
Name := 'NewEdit1';
Parent := WizardForm.SelectDirPage;
Top := WizardForm.DirEdit.Top + ScaleY(30) + ScaleY(44);
Width :=  WizardForm.DirEdit.Width
Height := ScaleY(20);
Text := 'D:\Games\Steam\steamapps\steamprofile';
//Color:=clColor;
end;
NewEdit1.TabOrder := 2;
end;
    TestSystemButton := TNewButton.Create(WizardForm);
    with TestSystemButton do begin
      Parent := WizardForm.SelectDirPage;
      Caption := 'Обзор...';
      Left:= WizardForm.GroupBrowseButton.left
      Top:=WizardForm.DirEdit.Top + ScaleY(30) + ScaleY(44);
      Width:=WizardForm.GroupBrowseButton.Width
      Height:=WizardForm.GroupBrowseButton.Height
      //OnClick:=@TestSystemButtonOnClick
    end;
end; 

задача: надо сделать вторую кнопку рабочей, чтобы можно было выбирать папку и чтобы определенные компоненты туда ставились
буду рад любой помощи