在自定义布局页面上选择图像文件，然后将文件复制到安装文件夹

Question

我的目标是让用户使用此安装程序，插入您的名字，选择语言并设置自定义参数。这样就完成了。但我需要的是用户选择一个图像将其作为头像放在应用程序中，这就是用户选择图像然后将文件复制到应用程序文件夹的原因。

这样的事情：

这是我的代码，如果有人可以帮助我会非常感激：

[Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
procedure RedesignWizardForm;
begin
  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(350);
    Width := ScaleX(150);
    Height := ScaleY(57);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    Width := ScaleX(309);
  end;

  with WizardForm.PageNameLabel do
  begin
    Width := ScaleX(293);
  end;

{ ReservationBegin }
  // This part is for you. Add your specialized code here.

{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

var
  NameEdit: TNewEdit;
  ParametresEdit: TNewEdit;
  LanguageCombo: TNewComboBox;
  LanguageNames: TStringList;

function ConvertLanguageName(const Value: string): string;
var
  I: Integer;
  WideCharCode: Word;
begin
  Result := '';
  I := 1;
  while I <= Length(Value) do
  begin
    if Value[I] = '<' then
    begin
      WideCharCode := StrToInt('$' + Copy(Value, I + 1, 4));
      I := I + 6;
    end
    else
    begin
      WideCharCode := Ord(Value[I]);
      I := I + 1;
    end;
    SetLength(Result, Length(Result) + 1);
    Result[Length(Result)] := Chr(WideCharCode);
  end;
end;

function GetLanguageName(const Value: string): string;
begin
  Result := LanguageNames[LanguageCombo.ItemIndex];
end;

function GetPlayerName(const Value: string): string;
begin
  Result := NameEdit.Text;
end;

function GetParametres(const Value: string): string;
begin
  Result := ParametresEdit.Text;
end;

procedure InitializeWizard;
var
  PlayerSettingsPage: TWizardPage;
  NameLabel: TLabel;
  LanguageLabel: TLabel;
  ParaLabel: TLabel;
  Info1Label: TLabel;
  Info2Label: TLabel;
  Info3Label: TLabel;
  Info4Label: TLabel;
  Info5Label: TLabel;
  Info6Label: TLabel;

  begin
  RedesignWizardForm;
  PlayerSettingsPage := CreateCustomPage(wpSelectComponents, 'Ingrese Datos', 'Informacón del juego');

  NameLabel := TLabel.Create(WizardForm);
  NameLabel.Parent := PlayerSettingsPage.Surface;
  NameLabel.Left := 0;
  NameLabel.Top := 0;
  NameLabel.Font.Style := [fsBold];
  NameLabel.Caption := 'Nombre';
  NameEdit := TNewEdit.Create(WizardForm);
  NameEdit.Parent := PlayerSettingsPage.Surface;
  NameEdit.Left := 0;
  NameEdit.Top := NameLabel.Top + NameLabel.Height + 4;
  NameEdit.Width := 180;

  ParaLabel := TLabel.Create(WizardForm);
  ParaLabel.Parent := PlayerSettingsPage.Surface;
  ParaLabel.Left := 0;
  ParaLabel.Top := 100;
  ParaLabel.Font.Style := [fsBold];
  ParaLabel.Caption := 'Parametros de Left 4 Dead 2';
  ParametresEdit := TNewEdit.Create(WizardForm);
  ParametresEdit.Parent := PlayerSettingsPage.Surface;
  ParametresEdit.Left := 0;
  ParametresEdit.Top := ParaLabel.Top + ParaLabel.Height + 4;
  ParametresEdit.Width := 180;

  Info1Label := TLabel.Create(WizardForm);
  Info1Label.Parent := PlayerSettingsPage.Surface;
  Info1Label.Left := 190;
  Info1Label.Top := 15;
  Info1Label.Font.Style := [fsBold];
  Info1Label.Caption := 'Introduzca su Nombre que se mostrara';

  Info2Label := TLabel.Create(WizardForm);
  Info2Label.Parent := PlayerSettingsPage.Surface;
  Info2Label.Left := 190;
  Info2Label.Top := 30;
  Info2Label.Font.Style := [fsBold];  
  Info2Label.Caption := 'en el juego';

  Info3Label := TLabel.Create(WizardForm);
  Info3Label.Parent := PlayerSettingsPage.Surface;
  Info3Label.Left := 190;
  Info3Label.Top := 65;
  Info3Label.Font.Style := [fsBold]; 
  Info3Label.Caption := 'Selecciona tu Idioma';


  Info4Label := TLabel.Create(WizardForm);
  Info4Label.Parent := PlayerSettingsPage.Surface;
  Info4Label.Left := 190;
  Info4Label.Top := 120;
  Info4Label.Font.Style := [fsBold];  
  Info4Label.Caption := '-console: Muestra la consola';

  Info5Label := TLabel.Create(WizardForm);
  Info5Label.Parent := PlayerSettingsPage.Surface;
  Info5Label.Left := 190;
  Info5Label.Top := 135;
  Info5Label.Font.Style := [fsBold]; 
  Info5Label.Caption := '-novid: Salta el intro del juego';

  Info6Label := TLabel.Create(WizardForm);
  Info6Label.Parent := PlayerSettingsPage.Surface;
  Info6Label.Left := 190;
  Info6Label.Top := 150;
  Info6Label.Font.Style := [fsBold];  
  Info6Label.Caption := '-sw: Fuerza al juego en modo ventana';

  LanguageNames := TStringList.Create;
  #sub AddLanguageInternalNames
    #define GetLanguageInternalName(str S) \
      Local[0] = Copy(S, Pos("Name:", S) + Len("Name:")), \
      Local[1] = Copy(Local[0], Pos("""", Local[0]) + 1), \
      Copy(Local[1], 1, Pos("""", Local[1]) - 1)
    #emit '  LanguageNames.Add(''' + GetLanguageInternalName(LanguageList[LanguageIndex]) + ''');'
  #endsub
  #for {LanguageIndex = 0; LanguageIndex < LanguageCount; LanguageIndex++} AddLanguageInternalNames

  LanguageLabel := TLabel.Create(WizardForm);
  LanguageLabel.Parent := PlayerSettingsPage.Surface;
  LanguageLabel.Left := 0;
  LanguageLabel.Top := NameEdit.Top + NameEdit.Height + 8;
  LanguageLabel.Font.Style := [fsBold];
  LanguageLabel.Caption := 'Lenguaje';
  LanguageCombo := TNewComboBox.Create(WizardForm);
  LanguageCombo.Parent := PlayerSettingsPage.Surface;
  LanguageCombo.Left := 0;
  LanguageCombo.Top := LanguageLabel.Top + LanguageLabel.Height + 4;
  LanguageCombo.Width := NameEdit.Width;
  LanguageCombo.Style := csDropDownList;
  #sub AddLanguageDisplayNames
    #define GetLanguageDisplayName(str S) \
      ReadIni(S, "LangOptions", "LanguageName")
    #define GetLanguageFile(str S) \
      Local[0] = Copy(S, Pos("MessagesFile:", S) + Len("MessagesFile:")), \
      Local[1] = Copy(Local[0], Pos("""", Local[0]) + 1), \
      StringChange(Copy(Local[1], 1, Pos("""", Local[1]) - 1), "compiler:", CompilerPath)
    #expr LanguageName = GetLanguageDisplayName(GetLanguageFile(LanguageList[LanguageIndex]))
    #emit '  LanguageCombo.Items.Add(ConvertLanguageName(''' + LanguageName + '''));'
  #endsub
  #for {LanguageIndex = 0; LanguageIndex < LanguageCount; LanguageIndex++} AddLanguageDisplayNames
  LanguageCombo.ItemIndex := LanguageNames.IndexOf(ActiveLanguage);
end;

procedure DeinitializeSetup;
begin
  LanguageNames.Free;
end;

我的代码目前生成此页面：

Answer 1

最简单的方法是使用TInputFileWizardPage创建的CreateInputFilePage function。没有什么可以阻止您将自定义控件添加到＆＃34;输入文件＆＃34;页。您只需要改变自动添加的＆＃34;文件输入的布局＆＃34;控件。

您还需要更改PlayerSettingsPage变量的类型并将其设置为全局，以便您可以访问用户在InitializeWizard函数之外输入的值。

{ global variables }
var
  PlayerSettingsPage: TInputFileWizardPage;
  AvatarIndex: Integer;

procedure InitializeWizard;
var
  Delta: Integer;
  ... { your other variables but not the PlayerSettingsPage }
begin
  PlayerSettingsPage :=
    CreateInputFilePage(wpSelectComponents, 'Ingrese Datos', 'Informacon del juego', '');

  { Your existing code }

  AvatarIndex :=
    PlayerSettingsPage.Add('Avatar:', 'Image files|*.png;*.jpg;*.jpeg;*.gif|All files|*.*', '.jpg');                                   
  Delta :=
    ParametresEdit.Top + ParametresEdit.Height + 32 - PlayerSettingsPage.PromptLabels[AvatarIndex].Top;

  PlayerSettingsPage.PromptLabels[AvatarIndex].Top := PlayerSettingsPage.PromptLabels[AvatarIndex].Top + Delta;
  PlayerSettingsPage.Edits[AvatarIndex].Top := PlayerSettingsPage.Edits[AvatarIndex].Top + Delta;
  PlayerSettingsPage.Buttons[AvatarIndex].Top := PlayerSettingsPage.Buttons[AvatarIndex].Top + Delta;
end;

然后在CurStepChanged(ssPostInstall)：

中安装所选的头像

procedure CurStepChanged(CurStep: TSetupStep);
var
  AvatarSource: string;
  AvatarDest: string;
begin
  if CurStep = ssPostInstall then
  begin
    AvatarSource := PlayerSettingsPage.Edits[AvatarIndex].Text;
    AvatarDest := ExpandConstant('{app}\' + ExtractFileName(AvatarSource));
    Log(Format('Installing avatar from "%s" to "%s"', [AvatarSource, AvatarDest]));
    if FileCopy(AvatarSource, AvatarDest, False) then
    begin
      Log('Avatar installer');
    end
      else
    begin
      Log('Error installing avatar');
    end;
  end;
end;