[Mat_y]

Можно читать дальше » Код: Код: [setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf} OutputDir=. VersionInfoVersion=1.0.0.3 [ code] function FileVersion(FilePath:string):string; // версия файла var oFS: Variant; begin oFS := CreateOleObject('Scripting.FileSystemObject'); Result := oFS.GetFileVersion(FilePath); end; procedure InitializeWizard(); begin if FileExists(ExpandConstant('{src}\setup.exe')) then MsgBox(FileVersion(ExpandConstant('{src}\setup.exe')), mbInformation, MB_OK); end; »

Так.. что-то я не догнал... а в каком тут месте проверяется версия файла? И как сделать так, чтобы сообщение о неверной версии проверяемого файла выскакивало при нажатии кнопки кнопки далее... ну как тут:

читать дальше »

Код:

///////////ПРОВЕРЯЕМ ПРАВИЛЬНОСТЬ ДИРЕКТОРИИ/////////////////////
function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result := True;

    case CurPageID of
        wpSelectDir:
        begin
            Result := FileExists(ExpandConstant('{app}')+'\GameName.exe');
            if not Result then MsgBoxEx(WizardForm.Handle, 'По данному пути игра не найдена! Еще раз проверьте путь установки!', 'Неверно указан путь к игре', MB_OK or MB_ICONWARNING, 0, 0);
        end;
    end;
  end;
////////////////////////////////////////////////////////////////////