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

если не заполняем эту директиву, то компилятор будет считать, что инсталлятор рассчитан на 32-х битную систему »

На вин7-64 если не стоит директива ArchitecturesInstallIn64BitMode=x64 - не заносятся параметры в реестр

Код:

к примеру 
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\GNU\ffdshow; ValueType: string; ValueName: pth; ValueData: {app}\FFDShow; Flags: uninsdeletevalue deletevalue; Check: IsWin64; Components: ffd
Root: HKLM; SubKey: SOFTWARE\GNU\ffdshow64; ValueType: string; ValueName: pth; ValueData: {app}\FFDShow64; Flags: uninsdeletevalue deletevalue; Check: IsWin64; Components: ffd
причем не срабатывает даже 
Check: IsWin64; Filename: {syswow64}\reg.exe; Parameters: /f add SOFTWARE\Wow6432Node\GNU\ffdshow /v pth /t REG_SZ /d {app}\FFDShow; StatusMsg: Регистрация RimPack; Components: ffd; Flags: runhidden waituntilterminated
Check: IsWin64; Filename: {syswow64}\reg.exe; Parameters: /f add HKLM\SOFTWARE\GNU\ffdshow64 /v pth /t REG_SZ /d {app}\FFDShow64; StatusMsg: Регистрация RimPack; Components: ffd; Flags: runhidden waituntilterminated
ключей

ставлю ArchitecturesInstallIn64BitMode=x64 - заносятся и без reg import
Отсюда и вопрос возник - как с такой директивой дистр чувствует себя на 32битных ОС. Habetdin уже ответил - нормально.
Ибо без нее на 64 битной ОС весьма хреново.

[Diesel123denpda]

R.i.m.s.k.y. спасибо за такой ответ, но я имел в виду, чтобы инсталлятор при проверке версии через реестр выдавал ошибку о не совпадении версий или предлагал удалить старую версию.

И ещё, народ помогите разобраться вот с этим кодом, подкиньте пример! Заранее спасибо!

[code]

Код:

  
function InitializeSetup(): Boolean;  
var    
   ResultCode: Integer;    
   s, ResultStr:string;  
begin  
Result:=True;  
If not RegKeyExists(HKLM, 'SOFTWARE\GSC Game World\STALKER-SHOC\')   
   then  
begin   
 MsgBox('S.T.A.L.K.E.R Тени Чернобыля v 1.0005 не установлен или установлен неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok);   
 Result:=False;   
end    
 else     
  begin    
 If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\','UninstallString', ResultStr)  
then
    begin
    If ResultStr<>''
  then
    begin
     ResultStr:=RemoveQuotes(ResultStr);    if MsgBox('Программа установки обнаружила уже установленную программу ранней версии.' #13#13 'Вы желаете предварительно удалить ее?', mbInformation, MB_YESNO) = idYes
  then
    if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
  then
    MsgBox('Ошибка удаления. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
  end;
  end;
  end;
  end;

[dracosha]

И снова здравствуйте!
Опять назрел вопрос:

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

Код:

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 не обновлялись то обновление было доступно
Serega, помоги пожалуйста?

[semiono]

Есть ли возможность InnoSetup узнать размеры экрана десктопа текущего?

[nik1967]

R.i.m.s.k.y.,
А не пробовал без "Wow6432Node" в строке реестра? Не знаю, у кого как, а у меня винда сама закидывает в реестре куда надо.
к примеру

Код:

  
Root: HKLM; SubKey: SOFTWARE\GNU\ffdshow; ValueType: string; ValueName: pth; ValueData: {app}\FFDShow; Flags: uninsdeletevalue deletevalue; Check: not IsWin64; Components: ffd 
Root: HKLM; SubKey: SOFTWARE\GNU\ffdshow64; ValueType: string; ValueName: pth; ValueData: {app}\FFDShow64; Flags: uninsdeletevalue deletevalue; Check: IsWin64; Components: ffd

[nik1967]

semiono,

DisplayRes

Код:

[Setup]
AppName=DisplayResoltution
AppVerName=DisplayResoltution
DefaultDirName=DisplayResoltution
DisableStartupPrompt=true
Uninstallable=false
InternalCompressLevel=none
Compression=none

[_Code]
//functions to get BPP & resolution

//
// prototype for ISX 3.X
//
function DeleteDC(hDC: Integer): Integer; external 'DeleteDC@GDI32 stdcall';
function CreateDC(lpDriverName, lpDeviceName, lpOutput: String; lpInitData: Integer): Integer; external 'CreateDCA@GDI32 stdcall';
function GetDeviceCaps(hDC, nIndex: Integer): Integer; external 'GetDeviceCaps@GDI32 stdcall';

Const
    HORZRES = 8;    //horizontal resolution
    VERTRES = 10;   //vertical resolution
    BITSPIXEL = 12; //bits per pixel
    PLANES = 14;    //number of planes (color depth=bits_per_pixel*number_of_planes)

function InitializeSetup(): Boolean;
  var xres, yres, bpp, pl, tmp: Integer;
      hDC: Integer;
begin
    //get resolution & BPP
    hDC := CreateDC('DISPLAY', '', '', 0);
    pl := GetDeviceCaps(hDC, PLANES);
    bpp := GetDeviceCaps(hDC, BITSPIXEL);
    xres := GetDeviceCaps(hDC, HORZRES); //horizontal resolution
    yres := GetDeviceCaps(hDC, VERTRES); //vertical resolution
//    tmp := DeleteDC(hDC);
    bpp := pl * bpp;   //color depth

  	MsgBox( 'Current resolution is ' + IntToStr(xres) +
  		'x' + IntToStr(yres) +
  		' and color depth is ' + IntToStr( bpp )
  		, mbInformation, MB_OK );

    Result := false;
end;

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

А не пробовал без "Wow6432Node" »

Нет, не пробовал, попробую

[nik1967]

R.i.m.s.k.y.,
И ещё обрати внимание на Check: not IsWin64 для x32 и Check: IsWin64 для x64.

[Serega]

что б при обновлении Major или Minor обновление было не доступно, а если в версии обновлены только Build и Revis, а Major и Minor не обновлялись то обновление было доступно »

Если я правильно понял, то так:

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

Код:

const
  MyAppVerMajor = 1;
  MyAppVerMinor = 2;
  MyAppVerBuild = 3;
  MyAppVerRevis = 4;

function IsPreviousVersionUpdatable(): Boolean;
var
  version: string;
  major, minor, build, revis: Integer;
begin
  Result := False;
  if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + GetAppID('') + '_is1', 'DisplayVersion', version) then
    begin
      major := StrToInt(Copy(version, 1, Pos('.', version) - 1));
      Delete(version, 1, Pos('.', version));

      minor := StrToInt(Copy(version, 1, Pos('.', version) - 1));
      Delete(version, 1, Pos('.', version));

      build := StrToInt(Copy(version, 1, Pos('.', version) - 1));
      Delete(version, 1, Pos('.', version));

      revis := StrToInt(Copy(version, 1, Pos('.', version) - 1));
      Delete(version, 1, Pos('.', version));
      
      if (major <= MyAppVerMajor) and (minor <= MyAppVerMinor) then
        Result:= (build < MyAppVerBuild) or (revis < MyAppVerRevis);
    end;
end;

Сразу замечание по коду, строка начинается с 1, а массивы обычно с 0, т.е.:

major := Copy(version, 0, Pos('.', version) - 1); »

грубейшая ошибка, копировать можно только с первого символа!

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

И ещё обрати внимание на Check: not IsWin64 для x32 и Check: IsWin64 для x64 »

Первым делом расставил, думал этим и ограничится дело.