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;