[Serega]

Если HKU\SOFTWARE прописывать, то выдает ошибку при установке »

Вы пишите в HKCU\Software, т.к. именно он является реестром текущего пользователя, а в HKU\текущий пользователь\Software он будет продублирован автоматом самой системой.

[Johny777]

Serega, Gnom_aka_Lexander,
спасибо!
понял, запомнил

Sanshalay,
страница выбора компонетов появляется, если у тебя есть секция компонентов

вот тебе пример пропуска страниц через код (айди страниц выше )

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

Код:

[Setup]
AppName=Test Mouse Event
AppVersion=1.5
DefaultDirName={pf}\My Application

[Components]
Name: a; Description: описание a
Name: b; Description: описание b
Name: c; Description: описание cGoshaPolo, 

[  Code]
function  ShouldSkipPage(PageID: Integer): Boolean;  
begin
  case
    PageID of
      wpSelectComponents: Result := True;
      wpSelectDir: Result := True;
      wpWelcome: Result := True;
      wpReady: Result := True;
  end;
end;

скрываем все станицы в этом примере, но появится страница готовности. Её не скроешь

другой вариант как сказал GoshaPolo через секцию [Setup] (читай справку)
•DisableDirPage
•DisableFinishedPage
•DisableProgramGroupPage
•DisableReadyMemo
•DisableReadyPage
•DisableStartupPrompt
•DisableWelcomePage

[R.i.m.s.k.y.]

Serega, спасибо, но меня интересовал не MSGBox а алгоритм сравнения числа 50.6 с VersionMS и VersionLS
Т.е. в пакете версия 50.6, getVersionNumber возвращает VersionMS=50 и VersionLS=327680
Как узнать что версия в пакете новее?

[Gnom_aka_Lexander]

R.i.m.s.k.y., если я правильно понял, то так:

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

Код:

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

[*code]
function InitializeSetup(): Boolean;
var
  VersionMS, VersionLS: Cardinal;
  Float : Extended;
  s : string;
begin
  Float := 6.7601;
  if GetVersionNumbers(ExpandConstant('{sys}\shell32.dll'), VersionMS, VersionLS) then
  begin
    if StrToFloat(IntToStr(VersionMS shr 16) + '.' + IntToStr(VersionLS shr 16)) = Float then
      s := 'Версии равны'
    else
      s := 'Версии неравны';
  end else s := 'Не удалось определить версию';
    Result := MsgBox(s, mbInformation, MB_OK) = IDOK;
end;

Обрати внимание на переменную Float и ее тип.

понял, запомнил »

товй-же код, но с учетом удобства case of:

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

Код:

function  ShouldSkipPage(PageID: Integer): Boolean;  
begin
  case PageID of
      wpSelectComponents, wpSelectDir, wpWelcome, wpReady: Result := True;
  end;
end;

[R.i.m.s.k.y.]

Gnom_aka_Lexander, немного не то
мне нужно условие больше или равно, а в примере просто равно

[Gnom_aka_Lexander]

R.i.m.s.k.y., ну, дык

Код:

if StrToFloat(IntToStr(VersionMS shr 16) + '.' + IntToStr(VersionLS shr 16)) >= Float then

StrToFloat возвращает значение типа Extended и его можно любым образом сравнить с другим значением типа Extended каковым и является твое 50.6
могу только догадаться, что shr 16 приводит к десятичному значению, буду благодарен, если мне кто-нибудь объяснит работу этих приведений

[Sanshalay]

GoshaPolo, Johny777, ок. А как скрыть страницу Дополнительные задачи? wpSelectTasks = 9; Ее штатными методами скрыть не получается. А через код я не понимаю что убирать. Поможете?
Скрипт: http://clck.ru/d/zxAyJVzi19yFX

[Gnom_aka_Lexander]

Sanshalay, тебе нужно убрать родную страницу задач, или SelectTasksPage, которая создается в коде?
Если родную - то так:

Код:

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := PageID = wpSelectTasks;
end;

Если ту, которую создаешь, то так:

Код:

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := PageID = SelectTasksPage.ID;
end;

[Sanshalay]

Gnom_aka_Lexander, теперь код вот такой:

Код:

 function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if (PageID =wpSelectProgramGroup) then  Result:= True;
  Result := PageID = SelectTasksPage.ID;
end;

Задачи успешно скрылись. Но появилась страница wpSelectProgramGroup. блин. если бы код был мой я бы некогда так не делал (Не ставил эти страницы). А код не мой и поэтому приходится удалять их непонятно как. (Потому что я не понимаю, что надо в коде удалять)

[Serega]

но меня интересовал не MSGBox а алгоритм сравнения числа 50.6 с VersionMS и VersionLS »

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

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

Код:

function CompareVersion(const FileName1, FileName2: string): Integer;
{ Данная функция сравнивает версии файлов указанных в FileName1 и FileName2.
  Возвращаемые значения:
    -2: если не смогли прочитать версию любого из файлов;
    -1: FileName1 > FileName2;
     0: FileName1 = FileName2;
     1: FileName1 < FileName2; }
var
  VerMS1, VerLS1, VerMS2, VerLS2: Cardinal;
  fMS1, fLS1, fMS2, fLS2: Extended;
begin
  Result := -2;
  if GetVersionNumbers(FileName1, VerMS1, VerLS1) and
     GetVersionNumbers(FileName2, VerMS2, VerLS2) then
    begin
      fMS1 := StrToFloat(IntToStr(VerMS1 shr 16) + '.' + IntToStr(VerMS1 and $FFFF));
      fLS1 := StrToFloat(IntToStr(VerLS1 shr 16) + '.' + IntToStr(VerLS1 and $FFFF));
      fMS2 := StrToFloat(IntToStr(VerMS2 shr 16) + '.' + IntToStr(VerMS2 and $FFFF));
      fLS2 := StrToFloat(IntToStr(VerLS2 shr 16) + '.' + IntToStr(VerLS2 and $FFFF));
      case fMS1 = fMS2 of
        True:
          case fLS1 = fLS2 of
            True : Result := 0;
            False:
              case fLS1 > fLS2 of
                True : Result := -1;
                False: Result := 1;
              end;
          end;
        False:
          case fMS1 > fMS2 of
            True : Result := -1;
            False: Result := 1;
          end;
      end;
    end;
end;