[iglezz]

1. Beavimo, Вместо упрощения и минификации лучше выносить блоки кода в отдельные файлы и подключать их через #include. Потом проще будет править ошибки и даже просто разбираться в своём же коде спустя некоторое время.

В качестве примера:

основной скрипт

Код:

[Setup]
AppName=testApp
AppVersion=0.1
DefaultDirName={tmp}\testApp
OutputDir=.
OutputBaseFileName=testApp
PrivilegesRequired=lowest
CreateAppDir=no
Uninstallable=no

; Подключаем внешнюю библиотеку:
#include "FileVersion.iss"

[code]

function InitializeSetup(): Boolean;
var
	FileName: String;
	CurrentVersion, MinVersion: TFileVersion; // объявляем переменные
begin
	// Задаём требуемую версию:
	FileVersionSetI(MinVersion, 5, 80, 0, 0);
	// или так:
	FileVersionSetS(MinVersion, '5.80.0.0');
	
	// Имя файла:
	FileName := ExpandConstant('{src}') + '\test.exe';
	
	if Not FileExists(FileName) then begin
		MsgBox('Установка Прекращена:'#13#13 + 'Файл `' + ExtractFileName(FileName) + '` не найден', mbCriticalError, MB_OK);
		Result := False;
		Exit;
	end;
	
	// Файл существует, считываем версию:
	FileVersionSetF(CurrentVersion, FileName);
	
	// Сравниваем и решаем что делать:
	if FileVersionCompare(CurrentVersion, MinVersion) > -1 then
		Result := True
	else begin
		MsgBox('Установка Прекращена:' \
		+ #13#13'Версия файла `' + ExtractFileName(FileName) + '`: ' + FileVersionToStr(CurrentVersion) \
		+ #13#13'Требуется версия как минимум: ' + FileVersionToStr(MinVersion) \
		, mbCriticalError, MB_OK);
		Result := False;
	end;
end;

подключаемый модуль

Файл FileVersion.iss (разместить рядом с основным скриптом):

Код:

; FileVersion library version 0.1
; 
; 
; Usage:
; // Outside [code] section of .iss:
; #include "FileVersion.iss"            // add this library to your .iss
; 
; // Under `var` variable declaration block on [code] section of .iss:
; Version: TFileVersion;                    // declare variable `Version`
; 
; // Set Version:
; FileVersionSetS(Version, STRING)          // set Version from string STRING ('1.2.3.4')
; FileVersionSetI(Version, N1, N2, N3, N4)  // set Version from numbers N1, N2, N3, N4 (N1.N2.N3.N4)
; FileVersionSetS(Version, FILE)            // set Version from file FILE
; 
; // Use Version:
; FileVersionToStr(Version)                 // return 'x.x.x.x' string representation of Version
; FileVersionCompare(Version1, Version2)    // return:
;                                           // -1 if (Version1 < Version2)
;                                           //  0 if (Version1 = Version2)
;                                           //  1 if (Version1 > Version2)
; 

[code]
type
	TFileVersion = array[1..4] of Integer;


// Internal function
procedure FileVersionExtractNumber(var VersionString: String; var VersionNumber: Integer);
var
	DotPosition: Integer;
begin
	DotPosition := Pos('.', VersionString);
	if DotPosition > 0 then begin
		VersionNumber := StrToInt(Copy(VersionString, 1, DotPosition - 1));
		VersionString := Copy(VersionString, DotPosition + 1, 99);
	end	
	else begin
		VersionNumber := StrToInt(VersionString);
		VersionString := '';
	end;
end;


// Set TFileVersion from integers
procedure FileVersionSetI(var Version: TFileVersion; v1, v2, v3, v4: Integer);
begin
	Version[1] := v1;
	Version[2] := v2;
	Version[3] := v3;
	Version[4] := v4;
end;


// Set TFileVersion from string
procedure FileVersionSetS(var Version: TFileVersion; VersionString: String);
var
	i: Integer;
begin
	for i := 1 to 4 do
		FileVersionExtractNumber(VersionString, Version[i]);
end;


// Set TFileVersion from file
procedure FileVersionSetF(var Version: TFileVersion; FileName: String);
var
	VersionString: String;
begin
	GetVersionNumbersString(FileName, VersionString);
	FileVersionSetS(Version, VersionString);
end;


// Compare TFileVersions
// Return -1 if (CurrentVersion < CompareVersion)
// Return  0 if (CurrentVersion = CompareVersion)
// Return  1 if (CurrentVersion > CompareVersion)
function FileVersionCompare(CurrentVersion, CompareVersion: TFileVersion): Integer;
var
	i: Integer;
begin
	for i := 1 to 4 do
		if CurrentVersion[i] < CompareVersion[i] then begin
			Result := -1;
			Exit;
		end
		else if CurrentVersion[i] > CompareVersion[i] then begin
			Result := 1;
			Exit;
		end;
		
	Result := 0;
end;

// Return "x.x.x.x" string representation of TFileVersion
function FileVersionToStr(Version: TFileVersion): String;
var
	i: Integer;
begin
	Result := IntToStr(Version[1]);
	
	for i := 2 to 4 do
		Result := Result + '.' + IntToStr(Version[i]);
end;

// Test procedure
procedure FileVersionTestFileAgainstString(FileName, Version: String);
var
	CurrentVersion, MinVersion: TFileVersion;
	CompareResult: Integer;
begin
	FileVersionSetF(CurrentVersion, FileName);
	FileVersionSetS(MinVersion, Version);

	MsgBox('Тест файла: `' + ExtractFileName(FileName) + '`: ' \
	+ #13#13'Версия файла: '#9 + FileVersionToStr(CurrentVersion) \
	+ #13#13'Сравнить с: '#9 + FileVersionToStr(MinVersion) \
	+ #13#13'Результат: '#9 + IntToStr(FileVersionCompare(CurrentVersion, MinVersion)) \
	, mbInformation, MB_OK);
end;

В виде файлов можно скачать здесь.

2.

Когда компилируется файл.exe, в его описании всегда в конце приписка Setup, можна както от нее избавится, или написать чот своё? »

Код:

[Setup]
OutputBaseFileName=ИмяФайла ; будет скомпилировано в `ИмяФайла.exe`
VersionInfoDescription=МоёОписание ; установить Описание (FileDescription) в `МоёОписание`

[Beavimo]

iglezz, братюня ну ты и дал стране угля поборол даже такую версию 4,49,1,356.....

[Beavimo]

iglezz Немножко уменьшил код, и добавил функцию проверки максимальной версии, на которую можна установить свой апдейт, мож кому пригодится. Работает з доп. модулем и подключением через функцыю #include тыць
Файл FileVersion.iss (разместить рядом с основным скриптом), и в скрипте подключить етот файл #include "FileVersion.iss"
Вот сам скрипт

Code

#include "FileVersion.iss"

[code]
function InitializeSetup(): Boolean;
var FileName: String; CurrentVersion, MinVersion: TFileVersion; begin

// Задаём минимальную требуемую версию:
FileVersionSetI(MinVersion, 1,3,0,0);

FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Test,PATH_APPLICATION}') +'\Test.exe';

if Not FileExists(FileName) then begin
MsgBox('Установка Прекращена:' #13#13 'Файл ('+ExtractFileName(FileName)+') не найден!', mbCriticalError, MB_OK);
Result := False; Exit;
end;

FileVersionSetF(CurrentVersion, FileName);

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(MinVersion, 1,3,0,0);

FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Test,PATH_APPLICATION}') +'\Test.exe';

FileVersionSetF(CurrentVersion, FileName);

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;
end;

Счас назрел новый вопрос, я правда еще мало интересовался им, но навсяк спрошу мож кто знает ответ, перед установкой нуна сверить хешсумму SHA-1 установленного уже файла Test.exe, с хеш устанавлимоего мною файла Test.exe (я могу и зарания вбить значение хеш SHA-1 устанавлимоего Test.exe для проверки), и в случае 1=1 вывести сообщение Програма уже установлена Хотите установить (ДА\НЕТ)

Чот сочинил но пока безрезультатно

Code

function GetSHA1OfUnicodeString(const S: String): String;
var
SHA1: String;
begin
SHA1 := GetSHA1OfUnicodeString('reg:HKLM\SOFTWARE\Code,PATH_APPLICATION}\Test.exe');
if SHA1 = '9ab696a37604d665dc97134dbee44cfe70451b1a' then
begin
end
else
MsgBox('программа уже установлена' #13#13 'продлить установку', mbCriticalError, MB_YESNO);
Result:= False;
end;
end;

[iglezz]

Beavimo,
GetSHA1OfUnicodeString служит для получения хэша строки, что и отображено в названии функции, для файла надо использовать GetSHA1OfFile

[Beavimo]

iglezz, всеравно ничерта у меня не получается, инсталятор всьо время ругается, я методом перебора пробую чот сочинить, а понять как оно работает не могу, ети все (if, if not, then, begin, else, var, и другие)

code

[code]
function GetSHA1OfFile(const S: String): String;
var SHA1: String;
begin
SHA1 := GetSHA1OfFile('{reg:HKLM\SOFTWARE\Code,PATH_APPLICATION}') +'\Test.exe';
if SHA1 = '9ab696a37604d665dc97134dbee44cfe70451b1a' then
begin
Result:= True;
end
else
begin
MsgBox('что делать?', mbCriticalError, MB_OK);
Result:= False;
end;
end;

тут два варианта, или не компилируется, или устанавливается без проверки хеш сум.... может поможеш разобратся.

[iglezz]

Beavimo, "это не шахматы,здесь думать надо" © древнючий баян

Вот рабочий пример (требует для сборки файл test.exe в папке рядом со iss-скриптом):

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

Код:

; записываем в MySHA1 значение хеша из нужного файла на стадии компиляции
#define MySHA1 GetSHA1OfFile(SourcePath + '\test.exe')

[Setup]
AppName=testSHA1
OutputBaseFileName=testSHA1
AppVersion=0.1
DefaultDirName={tmp}\testApp
OutputDir=.
PrivilegesRequired=lowest
CreateAppDir=no

[Files]
Source: "test.exe"; DestDir: "{app}"

[code]

function InitializeSetup(): Boolean;
var
	FileName: String;
	SHA1: String;
begin
	// Берём файл в целевом каталоге:
	FileName := ExpandConstant('{src}') + '\test.exe';
	// Здесь пропущена проверка на FileExists
	// Считаем его хеш:
	SHA1 := GetSHA1OfFile(FileName);
	
	// Делаем сверку:
	if SHA1 = '{#MySHA1}' then
		MsgBox('OK!', mbInformation, MB_OK)
	else
		MsgBox('SAD :(', mbCriticalError, MB_OK);
	
	Result := False
end;

я методом перебора пробую чот сочинить, а понять как оно работает не могу, ети все (if, if not, then, begin, else, var, и другие) »

Учебник по Паскалю и вечер-два помогут понять, как оно работает, тут совсем базовые вещи используются.

[Beavimo]

iglezz,

code

function InitializeSetup(): Boolean;
var
FileName: String;
SHA1: String;
begin
// Берём файл в целевом каталоге:
FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Code,PATH_APPLICATION}') +'\Test.exe';
// Здесь пропущена проверка на FileExists
// Считаем его хеш:
SHA1 := GetSHA1OfFile(FileName);

// Делаем сверку:
if SHA1 = '{#MySHA1}' then
MsgBox('Программа уже Установлена.' #13#13 'Установить все равно!', mbInformation, MB_YesNo)
else
Result := False
end;

Пример работает, но програма не устанавливается, а нужно чтоб она уставливалась всегда без сообщений, а когда хеш равны выводилось смс (ДА\НЕТ), и только если пользователь нажмет (НЕТ) тогда прекратить установку. Извини что я так бузю, хочу понять как оно работает, но самому никак, нужна муза, а ты для меня как учитель (Спасибо)...

[iglezz]

Beavimo, Отписал в личку

Дальнейшее обсуждение скриптов стоит перенести в тему Скрипты Inno Setup. Помощь и советы [часть 9], а то мы что-то отвлеклись....

[Beavimo]

iglezz, понял

iglezz,
Чот не могу отправить тебе в личку смс.
Извиняюсь а где можно тестировать ети примери, есть какаянить среда?

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

Uses crt;
Var
a,b,v,t,u,i : Integer;
begin
Writeln ('Введите первую пару чисел:');
Write ('Первое число:');
Readln (a);
Write ('Второе число:');
Readln (b);
v:=a+b;
Writeln ('Введите вторую пару чисел:');
Write ('Первое число:');
Readln (t);
Write ('Второе число:');
Readln (u);
i:=t+u;
if (v=i) then Writeln ('Они равны.');
if (v>i) then Writeln ('Сумма первой пары чисел больше суммы второй.');
if (v<i) then Writeln ('Сумма второй пары чисел больше суммы второй.');
end.

чтобы сразу наглядно видить результат?

[iglezz]

Beavimo, Это сюда - Программирование и базы данных

Личку чистить надо, тогда будет отправляться -- лимит сообщений

Скачай и установи http://pascalabc.net
Потом прекращаем здесь оффтопить