[habib2302]

saurn, огромное спасибо!!!!!!

[Alloc]

saurn, Спасибо большое за ответ. Теперь все работает. Не подскажешь, может быть где то можно скачать коллекцию модулей для Inno Setup наподобие Innocallback.dll? Я знаю есть сборка очень хорошая "Inno Ultra", но к сожалению в ней почему то не работают скины... не знаю по какой причине.. хотя в предыдущих версиях помню работало все...

[saurn]

Alloc
Это не мне спасибо, а Johny777

Так в Innoultra и так собраны все необходимые библиотеки. Строго говоря, там те же самые материалы и программы, которые можно найти на просторах паутины, только собранные вместе и упакованные в инсталятор для удобства.

На счет скинов: я ими не пользуюсь, но думаю вы просто используете не ту версию библиотеки. Оная есть в двух вариантах, для ANSI и UNICODE. Какой у вас компилятор(ANSI/UNICODE) такую же версию библиотеки и надо использовать.

[Crazy Noise]

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

Благодарю!


А как можно сделать?
Если найдено одно значение а второй нет, то инсталлятор выдал сообщение и не запустился.
Если найден второе а первое нет, тоже выдал сообщение и не запустился.
Если найдены оба значения, то тоже выдал сообщение и не запустился.
Запускался бы лишь в том случае, когда эти значения были другими.

Пробовал добавлять к NetFrameWorkInstalled и MyValueData номера чтоб различались.

потом так

Код:

[*Code]
function InitializeSetup(): Boolean;
var
 NetFrameWorkInstalled, MyResult: Boolean;
 NetFrameWorkInstalled2, MyResult: Boolean;
 MyValueData: Cardinal;
 MyValueData2: Cardinal;

 begin
 begin
  if RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Adobe ARM\1.0\ARM', 'iCheckReader', MyValueData) then
   NetFrameWorkInstalled := MyValueData = $00000000;

  if not NetFrameWorkInstalled then
   Result := True else
   MyResult := MsgBox('Найден ключ $00000000', mbConfirmation, MB_OK) = idOk;
end;

begin
  if RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Acrobat Reader\11.0\Installer\Optimization', 'iCheckReader', MyValueData2) then
   NetFrameWorkInstalled2 := MyValueData2 = $00000001;

  if not NetFrameWorkInstalled2 then
   Result := True else
   MyResult := MsgBox('Найден ключ $00000001', mbConfirmation, MB_OK) = idOk;
end;
end;

и так

Код:

[*Code]
function InitializeSetup(): Boolean;
var
 NetFrameWorkInstalled, MyResult: Boolean;
 NetFrameWorkInstalled2, MyResult: Boolean;
 MyValueData: Cardinal;
 MyValueData2: Cardinal;

 begin
  if RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Adobe ARM\1.0\ARM', 'iCheckReader', MyValueData) then
   NetFrameWorkInstalled := MyValueData = $00000000;

  if not NetFrameWorkInstalled then
   Result := True else
   MyResult := MsgBox('Найден ключ $00000000', mbConfirmation, MB_OK) = idOk;


  if RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Acrobat Reader\11.0\Installer\Optimization', 'iCheckReader', MyValueData2) then
   NetFrameWorkInstalled2 := MyValueData2 = $00000001;
   
  if not NetFrameWorkInstalled2 then
   Result := True else
   MyResult := MsgBox('Найден ключ $00000001', mbConfirmation, MB_OK) = idOk;
end;

всё равно не так. Больше идей нет.

[Mailchik]

Crazy Noise,

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

Код:

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

[Code]
function InitializeSetup(): Boolean;
var
 NetFrameWorkInstalled, MyResult: Boolean;
 MyValueData, MyValueData2: Cardinal;
 begin
  if RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Adobe ARM\1.0\ARM', 'iCheckReader', MyValueData)
      and RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Acrobat Reader\11.0\Installer\Optimization', 'iCheckReader', MyValueData2) then
   NetFrameWorkInstalled := (MyValueData = $00000000) xor (MyValueData2 = $00000001);

  if NetFrameWorkInstalled then
   Result := True else
   MyResult := MsgBox('Найден ключ ' + FloatToStr(MyValueData)
     + ' & ' + FloatToStr(MyValueData2), mbConfirmation, MB_OK) = idOk;
end;

[habib2302]

я хочу задать несколько вопросов ради интереса и ради пользы.какие есть проверки например как эти not IsWin64, IsWin64 и их описание?

[Gnom_aka_Lexander]

habib2302, это не проверки. это встроенные функции. справка, раздел встроенные функции, там все с описаниями.

я про процедуру inc из Delphi. Нет ее в Inno. »

у меня эта функция там не единственная из расширенной версии инно.

[habib2302]

Gnom_aka_Lexander, в какой справке?если ты имеешь виду в русской справке,то там такого раздела нету

[Gnom_aka_Lexander]

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

[habib2302]

Gnom_aka_Lexander, нашел