[doctor_allcome]

R.i.m.s.k.y., Спасибо!

[Nordek]

Сайт restools http://restools.hanzify.org/ лежит, инноультра сдох »

Inno Setup Ultra.

В теме Inno Setup. Прочие вопросы - из первого сообщения ещё доступны к скачиванию по прямым ссылкам файлы Inno Setup Compiler build 121216 и Inno ISCmplr Setup build 121002.
Версии ispack доступны к скачиванию отсюда (Например: ispack-5.5.1.exe и ispack-5.5.1-unicode.exe)

Версии isetup доступны к скачиванию отсюда (Например: isetup-5.5.1.exe и isetup-5.5.1-unicode.exe).

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

Nordek, это все 5.5.1
а нужно 5.5.6 минимум

[El Sanchez]

и если с новыми версиями все так плохо то как можно выкрутиться для корректного опознавания вин10 в инно версии 5,5,1ее(а) через Version: TWindowsVersion? »

R.i.m.s.k.y., и года не прошло

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

R.i.m.s.k.y., и года не прошло »

не работает BASS module с компилятором с правленным манифестом, ругается на неизвестный тип PChar
но таки мой способ будет работать и дальше, а манифест этот опять придется просить поправить

[semiono]

Помогите! Мне нужно разрешение экрана в секции [registry]

Вот тут какой-то код, но мне MsgBox не нужен, а нужна строка, например 1440x900, чтобы в реестре записать.

Скрытый текст

[code]

Код:

    function GetSystemMetrics (nIndex: Integer): Integer;
      external 'GetSystemMetrics@User32.dll stdcall setuponly';
     
    Const
        SM_CXSCREEN = 0; // The enum-value for getting the width of the cient area for a full-screen window on the primary display monitor, in pixels.
        SM_CYSCREEN = 1; // The enum-value for getting the height of the client area for a full-screen window on the primary display monitor, in pixels.
     
    function InitializeSetup(): Boolean;
      var
          hDC: Integer;
          xres: Integer;
          yres: Integer;
    begin
        xres := GetSystemMetrics(SM_CXSCREEN);
        yres := GetSystemMetrics(SM_CYSCREEN); //vertical resolution
     
        MsgBox( 'Current resolution is ' + IntToStr(xres) +
            'x' + IntToStr(yres)
    , mbInformation, MB_OK );
     
        Result := true;
    end;

[nik1967]

semiono,

пример для обычного инно

Код:

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Registry]
Root: HKLM; SubKey: SOFTWARE\MyApp; ValueType: string; ValueName: Resolution ; ValueData: {code:Res}; Flags: uninsdeletekey;

[Code]
Const
  SM_CXSCREEN = 0;
  SM_CYSCREEN = 1;

function GetSystemMetrics(nIndex: Integer): Integer; external 'GetSystemMetrics@User32.dll stdcall setuponly';     
     
function Res(S: String): String;
begin
  S:= IntToStr(GetSystemMetrics(SM_CXSCREEN))+'x'+IntToStr(GetSystemMetrics(SM_CYSCREEN));  
  Result:= S;
end;

пример для инно от китайцев (проще)

Код:

#ifndef IS_ENHANCED
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Registry]
Root: HKLM; SubKey: SOFTWARE\MyApp; ValueType: string; ValueName: Resolution ; ValueData: {code:Res}; Flags: uninsdeletekey;

[Code]      
function Res(S: String): String;
begin
  S:= IntToStr(Screen.Width)+'x'+IntToStr(Screen.Height);    
  Result:= S;
end;

[El Sanchez]

не работает BASS module с компилятором с правленным манифестом, ругается на неизвестный тип PChar »

R.i.m.s.k.y., манифест не виноват в том, что тип PChar отсутствует в Unicode-версии Inno Setup. Ну замени на AnsiString.

[semiono]

Нужно установить "дата и время создания папки" = 2001-01-01 00:00:00

SetFileTime function

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

мне нужно прописать в ярлык в параметры совместимости "runasadmin"

Насколько я помню за это отвечает ключ
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers
пишется строковое имя параметра в виде пути и параметр
C:\Program Files\7-Zip\7zFM.exe=RUNASADMIN

Скажите, пожалуйста, это правильно и работает ли оно в 8/10?