Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 76
Благодарности: 1

Профиль | Отправить PM | Цитировать


Nordek, когда я делаю вот так:

CODE
Код: Выделить весь код
[Components]
Name: abcd_x86; Description: KB2533623 for x86; Flags: exclusive; Check: ab_x86
Name: abcd_x64; Description: KB2533623 for x64; Flags: exclusive; Check: ab_x64


инсталлятор ругается на "ab_x86", я так понимаю в секции {Code} нужно что то сделать с этим именем...
меня мучает момент а можно ли вот тут?

CODE
Код: Выделить весь код
[Setup]
AppName=TEST 
AppVerName=TEST 
OutputDir=userdocs:..\Desktop
CreateAppDir=no
Uninstallable=no

[.code]
function WindowsVersion(Major, Minor: Integer): Boolean; var
    Version: TWindowsVersion;
  begin
    GetWindowsVersionEx(Version);
    Result:=(Version.Major=Major) and (Version.Minor=Minor);
end;

function WindowsRevVersion: Boolean;
  begin
    Result:=WindowsVersion(6,1);
end;

function InitializeSetup: Boolean;  var
    FileName: String;
  begin
      if not WindowsRevVersion then
    Result:=True
  else begin 
      If IsWin64 then
      If RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages\Package_for_KB2533623_SP1~31bf3856ad364e35~amd64~~6.1.1.2') then 
    Result:=True// Так вот надо тут поставить чекбокс напротив "Check: ab_x64"
  else
    MsgBox('Для полноценной работы  TEST  на  Windows 7'#13'  Будет установлено обновление  << KB2533623 >>'#13'После окончания установки ваш ПК перезагрузится!', mbInformation, MB_OK);       
    Result:=True 
      If not IsWin64 then
      If RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages\Package_for_KB2533623_SP1~31bf3856ad364e35~amd64~~6.1.1.2') then 
    Result:=True
  else
    MsgBox('Для полноценной работы  TEST  на  Windows 7'#13'  Будет установлено обновление  << KB2533623 >>'#13'После окончания установки ваш ПК перезагрузится!', mbInformation, MB_OK);       
    Result:=True// А вот тут поставить чекбокс напротив "Check: ab_x86". Наверное я неправильно выражаюсь, может нада говорить вызвать функцию "ab_x86"
end
end;  

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result:=(PageID=wpSelectComponents);
end;// Этот код прячет страницу компонентов

[Components]
Name: abcd_x86; Description: KB2533623 for x86; Check: ab_x86
Name: abcd_x64; Description: KB2533623 for x64; Check: ab_x64

[Files]
Source: C:\Windows6.1-KB2533623-x64.msu; DestDir: {tmp}; Flags: deleteafterinstall;
Source: C:\Windows6.1-KB2533623-x86.msu; DestDir: {tmp}; Flags: deleteafterinstall; 

[Run]
Filename: wusa.exe; Parameters: {tmp}\Windows6.1-KB2533623-x86.msu /quiet /norestart; StatusMsg: Установка KB2533623_x86; Components: abcd_x86; BeforeInstall: "Sleep(2000)"
Filename: wusa.exe; Parameters: {tmp}\Windows6.1-KB2533623-x64.msu /quiet /norestart; StatusMsg: Установка KB2533623_x64; Components: abcd_x64; BeforeInstall: "Sleep(2000)"


опять я уперся в запуск. как из секции [code] автоматически ставить флагжки на checkbox??? я просто задолбался искать пример, хотя бы один пример
все иду гулять башка взрывается. как всегда на последнем рывке я не знаю что делать

Последний раз редактировалось Beavimo, 05-02-2020 в 18:18.


Отправлено: 14:16, 05-02-2020 | #524