ISS脚本根据语言切换不同的侧边栏图片

[Files]

Source: ".\res\GUI\Image\ModemSetupImage.bmp"; Flags: dontcopy
Source: ".\res\GUI\Image\ModemSetupSmallImage.bmp"; Flags: dontcopy

[Languages]

Name: en; MessagesFile: .\res\lang\Beeline_en.isl
Name: ru; MessagesFile: .\res\lang\Beeline_ru.isl

[Code]

procedure InitializeWizard;
var
  FileName: string;
  ResultLan: String;
begin

  ResultLan := ExpandConstant('{language}');
  if ResultLan = 'en' then
    FileName := 'ModemSetupSmallImage.bmp'
  else
    FileName := 'ModemSetupImage.bmp';

  ExtractTemporaryFile(FileName);
  WizardForm.WizardBitmapImage.Bitmap.LoadFromFile(
    ExpandConstant('{tmp}\' + FileName));

  WizardForm.WizardSmallBitmapImage.Bitmap.LoadFromFile(
    ExpandConstant('{tmp}\' + FileName));
end;