Inno Setup (создание инсталяционных пакетов). Часть 1

[Edison007]

dvd4el, кинь в личку изображения сделаю

 

[Snoopak96]

Нужна подсказка:
Как из инно выключить анимацию при перемещении окна [DragFullWindows] ?

 

[Sten]

Дайте пожалуйста отдельный код на замену стандартных чекбоксов через bmp))
как вот тут:

Спойлер

 

[LexBell]

Дайте пожалуйста отдельный код на замену стандартных чекбоксов через bmp))

WizardForm.ComponentsList.LoadBtnBmpFromFile('buttons.bmp');

готовый пример: Скачать.

 

[Sten]

Спасибо)
А вот как для одного созданного чекбокса сделать? )))[hr]
А вот это никак, данная функция работает только на чекбокслистах. Только создавать чекбокс через ботву, например.
Gnom.

 

[shidow]

Как запустить файл при нажатии на кнопку?

 

[nik1967]

shidow,

Спойлер: Пример

[Setup]
AppName=Приложение
AppVerName=Приложение
DefaultDirName={pf}\123
DirExistsWarning=no

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[_Code]
var
Button: TNewButton;
ResultCode: Integer;

procedure ButtonOnClick(Sender: TObject);
begin
  Exec(ExpandConstant('{sys}\calc.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
  
procedure InitializeWizard();
begin
Button:= TNewButton.Create(WizardForm);
  with Button do begin
    SetBounds(ScaleX(7), WizardForm.NextButton.Top, WizardForm.NextButton.Width, WizardForm.NextButton.Height);
    Caption:= 'Запустить';
    OnClick:= @ButtonOnClick;
    Parent:= WizardForm;
  end;
end;

 

[shidow]

nik1967, что-то не работает

 

[nik1967]

что-то не работает

А ты у [_Code] впереди подчёркивание убрал? В этом примере нечему не работать - простейший скрипт.

 

[Avangard]

shidow
nik1967
Запускать просто exe, bat и пр. нужно через ShellExec!

 

[shidow]

А ты у [_Code] впереди подчёркивание убрал?

Конечно убрал

 

[Edison007]

что-то не работает

какбэ работает

Запускать просто exe, bat и пр. нужно через ShellExec!

через Exec тоже можно

 

[LexBell]

какбэ работает

через Exec тоже можно

Не все. Через Exec запускаются только *.ехе - файлы. Все остальное(bat, cmd, msu и тп), запускается только через ShellExec (команда, которая ищет программу, которая запустит файл) либо через Exec, но запуская программу, которая выполнит файл, который нужно запустить, с именем этого файла в параметрах.
Пример для msu:
нужно выполнить KB917607-x86.msu с параметрами /quiet /norestart. Для Exec:
запускаем системную утилиту, которая исполняет эти пакеты: {sys}\wusa.exe - в запуске, {tmp}\KB917607-x86.msu /quiet /norestart - в параметрах. Воркдир будет место положения пакета KB917607-x86.msu, тоесть в данном случае {tmp}.
Для ShellExec:
В запуске: {tmp}\KB917607-x86.msu, в парамерах: /quiet /norestart. Но я не на 100% уверен, что второй вариант сработает. Первый вариант работает в моей сборке InnoUltra.

 

[nik1967]

dvd4el, ага, ты меня ещё учить будешь, как использовать Exec и ShellExec.

Спойлер: Из справки

Для Exec: "Executes the specified executable or batch file, using the same credentials as Setup/Uninstall. Use the ShellExec function instead if you need to launch a file that is not an executable or batch file."
Для ShellExec: "Opens the specified file or performs another action specified by Verb, using the same credentials as Setup/Uninstall. The filename can be an executable file, a document file, a folder, or a URL."

 

[LexBell]

executable or batch file,

Всетаки нужно учитывать реалии жизни Не уверен в том, как работает выполнение батников, но сталкивался с ситуацией, когда путь к системным утилитам приходилось указывать вручную, поэтому батники для перестраховки лучше тоже в ShellExec запускать. А еще лучше в екзек, параметром к cmd.exe, с указанием пути к этому cmd.exe ({sys}\cmd.exe) - на всякий случай

 

[Avangard]

Как загрузить в DirEdit свое изображение через ботву?

Как создать трак-бар через ботву, но чтобы при этом лейбы опускались-поднимались? У меня не получается повернуть кнопку (чтобы она двигалась не влево-вправо, а вверх-вниз).

 

[Atari]

Дайте пожалуйста скрипт с выбором приоритета установки на странице выбора задач

 

[Avangard]

Atari,

Спойлер: Приоритет

#define GameName "name"

[setup]
AppName={#GameName}
AppVersion=1.0
DefaultDirName={pf}\{#GameName}

const
  NORMAL_PRIORITY_CLASS           = $00000020;
  IDLE_PRIORITY_CLASS             = $00000040;
  HIGH_PRIORITY_CLASS             = $00000080;
  REALTIME_PRIORITY_CLASS         = $00000100;

function SetPriorityClass(hProcess: THandle; dwPriorityClass: DWORD): BOOL;
  external 'SetPriorityClass@kernel32';

function GetCurrentProcess: THandle;
  external 'GetCurrentProcess@kernel32';

procedure InitializeWizard();
begin
  SetPriorityClass(GetCurrentProcess, IDLE_PRIORITY_CLASS);     //установка приоритета для инсталлятора.
end;


[/SPOILER]

 

[Atari]

dvd4el, спасибо, конечно, за ответ, но код который вы выложили выше у меня есть. Я всего лишь хотел добавить туда возможность выбора уровня приоритета на страницу выбора задач.

Добавлено через 1 минуту
Уже сам разобрался.

Добавлено через 37 секунд
Правильно ли я сделал?

Спойлер

[Setup]
AppName=App
AppVersion=1.0
DefaultDirName={pf}\App

 const 
 NORMAL_PRIORITY_CLASS = $00000020; 
 IDLE_PRIORITY_CLASS = $00000040; 
 HIGH_PRIORITY_CLASS = $00000080; 
 REALTIME_PRIORITY_CLASS = $00000100; 

 function SetPriorityClass(hProcess: THandle; dwPriorityClass: DWORD): BOOL; external 'SetPriorityClass@kernel32'; 
 function GetCurrentProcess: THandle; external 'GetCurrentProcess@kernel32'; 

 procedure InitializeWizard(); 
  begin
  if IsTaskSelected('Prt') then begin 
 //Дальше установка приоритета 
 SetPriorityClass(GetCurrentProcess, HIGH_PRIORITY_CLASS); 
 end;
 end;

[Languages]
Name: rus; MessagesFile: "C:\Program Files\Inno Setup 5\Languages\Russian.isl";

[Tasks]
Languages: rus; Name: Prt; Description: "Высокий приоритет установки"; 
[/SPOILER]

 

[Avangard]

Atari, правильно