[Johny777]

nik1967,

) < '2.0.0.1' then »

так не получится (хотя было бы очень практично ! ), тк нужно сравнивать числа а не строку
Пардон я в прошлом говорил что нужно сравнивать стоки, но не знал что

допустим версия должна быть выше 2.0.0.1 и если версия ниже »

нужен подробный результат сравнения
вот накатал функцию сравнения версий, по примеру станет ясно что она возвращает и как работает:

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

Код:

const
    FILE_VERSION_STR_LEN = 7;
    
function CompareFileVersions(const AVer, BVer: String): Integer;
var
    i: Integer;
begin
    for i := 1 to FILE_VERSION_STR_LEN do
    begin
        if i and 1 = 0 then Continue; // если порядковый номер в строке чётный, то переходим к след. витку цикла, тк это точка

        Result := Ord(AVer[i]) - Ord(BVer[i]);
        if Result <> 0 then Break;
    end;
end;


procedure InitializeWizard();
var
    iResult: Integer;
begin
    iResult := CompareFileVersions('7.0.0.1', '7.0.0.0');

    if iResult = 0 then MsgBox('Same Version', mbInformation, MB_OK)
    else
    if iResult < 0 then MsgBox('AVer < BVer', mbInformation, MB_OK)
    else
    if iResult > 0 then MsgBox('AVer > BVer', mbInformation, MB_OK);
end;

PS: делал упор на быстродействие

[Shkutu]

Всем привет! Кто-нибудь знает, можно ли из инно запускать параметризованный sql скрипт (transact-sql) и как?

[Alloc]

Помогите кому не трудно разобраться с набором команд для сжатия.. Я использую следующий набор команд:

Код:

arc.exe a -ep1 -dses --dirs -s; -lc- -di -i2 -r "-hppassword" -mprecomp+srep:l512+lzma:a1:mfbt4:d176m:fb128:mc1000:lc8 data.bin packeddata\*

При установке игры, "Setup.tmp" потребляет целых 720 мб оперативной памяти.. можно как то снизить данный показатель при этом не потерять степень сжатия и скорость распаковки? Заранее спасибо

[nik1967]

так не получится (хотя было бы очень практично ! ), тк нужно сравнивать числа а не строку »

Да ладно? Прежде чем выложить, я проверил и не раз. У меня почему то работает.
У тебя же function FileVersion возвращает строку - вот я и сравниваю строковый параметр - версию файла.

[Johny777]

nik1967,
if '3.0.0.0' < '3.0.0.1' then Beep;
в натуре работает, буду знать, спасибо за знание!

даже не знал, что так можно, по старинке алгорим пишу... жесть, не задумывался о очевидном решении
те для меня сравнение строк раньше было =/<>, а можно оказывается и <, >

... ну все ж пусть будет и математическое сравнение до кучи, раз уж оно есть

[APTEM2]

Ребят Всем привет помогите решить проблему

[Mat_y]

Ух... супер... все шикарно работает...
Немного адаптировал под себя... чтобы по 100 раз в код не лазить.

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

Код:

function FileVersion(const FilePath: String): String;
var
  oFS: Variant;
begin
  oFS:= CreateOleObject('Scripting.FileSystemObject');
    try
      Result:= oFS.GetFileVersion(FilePath);
    except
  end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result:= true;

    case CurPageID of
      wpSelectDir:
      begin
        if FileExists(ExpandConstant('{app}')+'\Game.exe') then begin
          if  FileVersion(ExpandConstant('{app}')+'\Game.exe') < '{#AppVerName}.0' then begin
            MsgBoxEx(WizardForm.Handle, 'Установщик предназначен для версии {#AppVerName}', 'Файлы не подходят для данной версии', MB_OK or MB_ICONWARNING, 0, 0);
            Result:= false;
          end;
          if  FileVersion(ExpandConstant('{app}')+'\Game.exe') > '{#AppVerName}' then begin
            MsgBoxEx(WizardForm.Handle, 'Установщик предназначен для версии {#AppVerName}', 'Файлы не подходят для данной версии'', MB_OK or MB_ICONWARNING, 0, 0);
            Result:= false;
          end
      end else begin
          MsgBoxEx(WizardForm.Handle, 'Еще раз проверьте путь установки!', 'Неверно указан путь', MB_OK or MB_ICONWARNING, 0, 0);
          Result:= false;
        end;
      end;
    end;
  end;

И я опять возвращаюсь к наиболее запутанному для себя вопросу... реально ли подгружать особо крупные компоненты с ФТП, если их выберут для установки?

[Nordek]

Немного адаптировал под себя... »

Только ошибку в скрипте допустил:

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

Код:

[Code]
function FileVersion(const FilePath: String): String;
var
  oFS: Variant;
begin
  oFS:= CreateOleObject('Scripting.FileSystemObject');
    try
      Result:= oFS.GetFileVersion(FilePath);
    except
  end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result:= true;

    case CurPageID of
      wpSelectDir:
      begin
        if FileExists(ExpandConstant('{app}')+'\MyProg.exe') then begin
          if  FileVersion(ExpandConstant('{app}')+'\MyProg.exe') < '{#AppVerName}.0' then begin
            MsgBoxEx(WizardForm.Handle, 'Установщик предназначен для версии {#AppVerName}', 'Файлы не подходят для данной версии', MB_OK or MB_ICONWARNING, 0, 0);
            Result:= false;
          end;
          if  FileVersion(ExpandConstant('{app}')+'\MyProg.exe') > '{#AppVerName}' then begin
            MsgBoxEx(WizardForm.Handle, 'Установщик предназначен для версии {#AppVerName}', 'Файлы не подходят для данной версии', MB_OK or MB_ICONWARNING, 0, 0);
            Result:= false;
          end
      end else begin
          MsgBoxEx(WizardForm.Handle, 'Еще раз проверьте путь установки!', 'Неверно указан путь', MB_OK or MB_ICONWARNING, 0, 0);
          Result:= false;
        end;
      end;
    end;
  end;

[habib2302]

Доброе время суток. Я делаю репак atomic alarm clock. Проблема в том, что не срабатывает скрипт на удаление др. версий приложения при старте. Оригинальная програ установлена. Кстати. Кто то мне давал скрип (архив под название 1) он не работает

[saurn]

Кстати. Кто то мне давал скрип (архив под название 1) он не работает »

Я давал. Он работает. День другой, ошибки все те же)

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}
OutputDir=.

[Languages]
;Путь к файлу сообщений русского языка
Name: Russian; MessagesFile: compiler:Languages\Russian.isl

;Путь к файлу сообщений английского языка
Name: English; MessagesFile: compiler:Default.isl

[CustomMessages]
;Сообщение для русского языка
Russian.MsgUnins=Перед установкой необходимо удалить предыдущую версию приложения. Продолжить?

;Сообщение для английского языка
English.MsgUnins=Before installation it is necessary to remove the previous version of the app. Continue?

[Code]
function InitializeSetup(): Boolean;
begin
    MsgBox(CustomMessage('MsgUnins'), mbError, MB_OK);
end;

Проблема в том, что не срабатывает скрипт на удаление др. версий приложения при старте »

Возможно потому, что оригинальный установщик написан не на Inno (какой у этой программки оригинальный инстал я не знаю) и создает запись в реестре без иновского _is1.

Код:

Buff := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppIds[i] + '_is1,UninstallString|}'));