dracosha
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
function IsPreviousVersionUpdatable(): Boolean;
var
version, major, minor, build, revis: string;
begin
Result := false;
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + GetAppID('') + '_is1', 'DisplayVersion', version) then
begin
major := Copy(version, 0, Pos('.', version) - 1);
Delete(version, 1, Pos('.', version));
minor := Copy(version, 0, Pos('.', version) - 1);
Delete(version, 1, Pos('.', version));
build := Copy(version, 0, Pos('.', version) - 1);
Delete(version, 1, Pos('.', version));
revis := Copy(version, 0, Pos('.', version) - 1);
Delete(version, 1, Pos('.', version));
if CompareStr(major, ExpandConstant('{#MyAppVerMajor}')) >= 0 then
if CompareStr(minor, ExpandConstant('{#MyAppVerMinor}')) >= 0 then
if CompareStr(build, ExpandConstant('{#MyAppVerBuild}')) >= 0 then
if CompareStr(revis, ExpandConstant('{#MyAppVerRevis}')) >= 0 then
Result := true;
end;
end;
|
Господа ГУРУ! Помогите пожалуйста исправить этот код что бы получилось примерно следующее:
1. Если в системе установлена версия 0.0.5.5 то старая версия 0.0.4.4 была равна false.
2. Если в системе установлена версия 0.0.5.5 то новая версия 1.1.0.0 была равна false.
3. Если в системе установлена версия 0.0.5.5 то новая версия 0.0.6.6 была равна true.
т.е. мне хотелось бы что б при обновлении Major или Minor обновление было не доступно, а если в версии обновлены только Build и Revis, а Major и Minor не обновлялись то обновление было доступно |
