[Alex S]

Новая проблема с этим кодом (писал о нем несколькими сообщениями ранее).
Добавил языки в инсталлятор и тихая установка при помощи этого кода не работает.
При запуске с коротким ключом "/S" выводит окно выбора языка (чего не должно быть), жму "Ок" и дальше устанавливает тихо.
Если в функции InitializeSetup параллельно происходят еще какие-то операции (в моем случае это распаковка некоторых *.bmp во временную папку),
то при запуске с коротким ключом выводит окно выбора языка, после нажатия "Ок" и установка проходит в обычном режиме с показом всех последующих окон.

В общем так уже не работает:

[Setup]
AppName=Silent Install Key
AppVerName=Silent Install Key v 1.0
OutputBaseFilename=SilentInstallKey_setup
DefaultDirName={pf}\SilentInstallKey
CreateAppDir=no

[Languages]
Name: "english"; MessagesFile: "compiler:Languages\English.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[code]

function InitializeSetup(): Boolean;
var
i, ResultCode: Integer;
begin
for i := 1 to ParamCount do
if LowerCase(ParamStr(i)) = '/S' then
begin
Exec(ExtractFileName(ExpandConstant('{srcexe}')), '/verysilent', ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
Exit;
end;
Result := True;
end;

Прошу помощи в решении задачи...