[iglezz]

Единственный косяк, когда хеш равни выскакивает СМС мол программа установлена установить (ДА\НЕТ?), так что не нажми всеравно установка продолжиться. Я уже задолбался, если че - зделаю просто СМС придуприждение. Незнаю как боротся, ставлю Result := False; Exit; так она ваапще не запускается при разных хеш. »

Неудивительно. Такой неструктурированный винегрет невозможно читать.

CODE

Приводим код в порядок и сразу видим место где косяк зарыт:

Код:

function InitializeSetup(): Boolean;
var
	FileName: String; 
	CurrentVersion, MinVersion, MaxVersion: TFileVersion;

begin
	FileVersionSetI(MinVersion, 1,2,0,0);
	FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Code}') + '\Test.exe';
	if not FileExists(FileName) then begin 
		MsgBox('Установка Прекращена:' #13#13 'Файл (' + ExtractFileName(FileName) + ') не найден!', mbCriticalError, MB_OK);
		Result := False; 
		Exit;
	end;
 
	FileVersionSetF(CurrentVersion, FileName);
	if (GetSHA1OFFile(FileName) = Lowercase('AD030D5606A2DCFA75EBC425A70730F23E7F07AB')) then 
		// Здесь идёт простое присваивание True/False:
		// Result:=MsgBox('Обновление уже установлено:' #13#13 'Все равно установить?', mbInformation, MB_YESNO) = IDYES;
		// хотя в случае False надо Exit делать. Поэтому сия строчка выкидывается и 
		// вместо неё пишется:
		if MsgBox('Обновление уже установлено:' #13#13 'Все равно установить?', mbInformation, MB_YESNO) <> IDYES then begin
			Result := False;
			Exit;
		end;
	
	if FileVersionCompare(CurrentVersion, MinVersion) > -1 then
		Result := True
	else begin
		MsgBox ('Установка Прекращена!' #13#13 'Версия Установленной Программы: ' + FileVersionToStr(CurrentVersion) + #13#13 'Минимальная Версия для Обновления: ' + FileVersionToStr(MinVersion), mbCriticalError, MB_OK);
	Result := False; Exit;
	end;

	FileVersionSetI(MaxVersion, 1,4,0,0);
	FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Code}') + '\Test.exe';
	FileVersionSetF(CurrentVersion, FileName);
	
	if FileVersionCompare(CurrentVersion, MaxVersion) < 1 then
		Result := True
	else begin 
		MsgBox('Установка Прекращена!' #13#13 'Версия Установленной Программы: ' + FileVersionToStr(CurrentVersion) + #13#13 'Максимальная Версия для Обновления: ' + FileVersionToStr(MaxVersion), mbCriticalError, MB_OK);
		Result := False; 
		Exit;
	end;

end;

Напоминание №2 о форматировании:
В каталоге установленного Inno Setup есть каталог Examples. Там в примерах стоит посмотреть как надо форматировать код, чтобы у него читабельность была на таком уровне, когда структура видна беглым взглядом.

[Beavimo]

iglezz, согласен надо делать отступи.... я уже как то добил сам теперь работает как надо.... пойду дальше, хочу свою форму зделать... счас думаю как бы то область обвиденною красным залить заливкой, или вставить свой рисунок

рисунок

[Iska]

Beavimo, хотите бесплатный совет? Чем меньше Вы будете заморачиваться подобными, никому не нужными, свистоперделками рюшечками, и чем больше Вы уделите внимания функционалу и поддержке — тем будет лучше для конечного результата.

[Nordek]

Это в чём? »

В расширенной врсии, Inno у меня старой версии 5.5.1.

Скрытый текст

Пробовал 6.0.3 - Что-то совсем не проникся.
По сравнению с 6.0.2 - Расширенная Inno 5.5.1 так не уязвима к взломам/распаковке.
6.0.3 кривая, раз 5 перекомпилировал чтоб собрать пакет - Иначе на выходе готового пакета в разных местах выводило ошибку.
И т.д.
Лучше NSIS использовать чем Inno 6, ещё лучше на делфи инсталлятор писать.

[Iska]

В расширенной врсии, »

Хмм… А что за редактор-то?

Nordek, даже не знал, что уже шестая вышла.

[Nordek]

А что за редактор-то? »

Скрытый текст

ispack-5.5.1.exe и ispack-5.5.1-unicode.exe + инструкция из сообщения темы

Или информация во вложении.

даже не знал, что уже шестая вышла. »

Расширенной 6 версии не существует.

[Beavimo]

Добрый день, такая строка делает ярлык с параметром на рабочем столе:

код

Код:

[Icons]
Name: "{commondesktop}\BASE"; Filename: "C:\Program Files\BASE\BASE.bat"; Parameters:test; IconFilename: "C:\Program Files\BASE\BASE.ico"

получается в графе Обьект
Обьект: "C:\Program Files\BASE\BASE.bat" test
а как зделать чтоб было вот так
Обьект: test "C:\Program Files\BASE\BASE.bat"

[boss911]

Отключил все страницы, кроме SelectDirPage, на SelectDirPege вынес ProgressGauge (прогресс бар). Как отключить страницу установки (wpInstalling) и возможно ли? Задача оставить только SelectDirPage и прогресс бар на ней.

[El Sanchez]

Задача оставить только SelectDirPage и прогресс бар на ней. »

boss911, как-то так:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssInstall: WizardForm.SelectDirPage.Show;
  end;
end;

[habib2302]

Доброе время суток. Помогите решить проблему. Во время компиляции выпадает ошибка