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

R3Pa4eK
в моем случае НЕ. будет работать только так:

regedit /s "C:\Program Files (x86)\Blizzard Entertainment\WarCraft III\Gateways.reg"

Не думаю, что у меня уже начинаются галлюцинации

ultimo
Parameters: /s "{app}\run.reg;"

О_о

R3Pa4eK
ах, нет же. Если написать просто "путь", то кавычек при выполнении то не будет, т.е. будет просто
regedit /s C:\Program Files (x86)\Blizzard Entertainment\WarCraft III\Gateways.reg

и ничего не сработает.

Добавлено:
если так: Parameters: /s "{app}\run.reg;"

то будет ошибка: Mismatched or misplaced quotes on parameter.

ultimo
Вывод: инно говно хД Если работает, ничего не трогай

R3Pa4eK
просто как-то странно, если иначе нельзя поставить обычные кавычки (проще то есть, а не через функцию, как я). Выглядит бредово, хотя работает

R3Pa4eK 19:43 29-08-2013
Цитата:

Вывод: инно говно хД Если работает, ничего не трогай

Ба, какие люди. Как поживает 3D инсталл?

ultimo 19:41 29-08-2013
Цитата:

если так: Parameters: /s "{app}\run.reg;"  

Код: Parameters: "/s ""{app}\run.reg""";

Shegorat

Цитата:

Ба, какие люди. Как поживает 3D инсталл?

Йоу ) ты меня немного с рикиллом перепутал И я уже сто лет в инно не заглядывал) Даже на компе она не стоит ^_^

Shegorat
Точно. Сам как-то не додумался...

Если кому-то надо... старенький модуль для проигрывания трекерной музыки в инно толковых примеров там нет, но разобраться очень легко ^_^
Скачать
VirusTotal

P.S. Update =)

R3Pa4eK

Цитата:

модуль для проигрывания трекерной музыки в инно

Спасибо. Скачал. Работает.
Но при выходе выбивает ошибку. Похоже библиотека не выгружается.

sjwrec

Цитата:

Спасибо

Всегда пожалуйста =_^


Цитата:

Но при выходе выбивает ошибку. Похоже библиотека не выгружается.

ыы.. забыл при выходе добавить IsStopXm, сек

Во, http://rghost.ru/48502276

R3Pa4eK

Да я уже сам исправил скрипт. Добавив код:

Код:
procedure DeinitializeSetup();
begin
IsStopXm();
end;

sjwrec
Угу, я обновил уже ^_^

добрый день!
подскажите пожалуйста, как избавиться от этого пункта меню, который всплывает при клике ПКМ по заголовку окна инсталяции:

версия Inno Setup QuickStart Pack (unicode) 5.5.3

AngelNet, вроде так можно:
[Code]
procedure InitializeWizard();
begin
WizardForm.Position:= poScreenCenter;
end;

innonewbie
большое спс!
---
вот бы еще узнать как избавиться от секции version info в свойствах получаемого файла.
и буду признателен если ткнёте меня в места обретания русифицированных ресурсов для установщика.
(я имею ввиду текст в окошках визарда, сам найти не смог).

AngelNet

Цитата:

вот бы еще узнать как избавиться от секции version info в свойствах получаемого файла.

А вот это точно врятли. Потому что эта опция вшита в ядро Инсталлятора. Вы можете её только поменять на свою. Например:

Код:
[Setup]
VersionInfoVersion=0.1.0.4

AngelNet, а нужно так

Код: function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem: PChar): BOOL; external 'AppendMenuA@user32.dll stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';

const
MF_DELETE = $200;

...

if not AppendMenu(GetSystemMenu(Wizardform.Handle, True), MF_DELETE, 0, SetupMessage(msgAboutSetupMenuItem)) then
WizardForm.Position:= poScreenCenter;

sergey3695
а можно пример кода под спойлер/коврик с этим?
у меня сразу же на первую строчку с функцией матерится(

AngelNet этот пример для unicde и расширеной версий кто использует ansi версию тогда надо закаментировать вот эту строчку Pchar= Pansichar; чтобы не было ошибки что это дубликат
[more][no][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
type
Pchar= Pansichar;

function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem: PChar): BOOL; external 'AppendMenuA@user32.dll stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';

const
MF_DELETE = $200;

procedure InitializeWizard();
begin
if not AppendMenu(GetSystemMenu(Wizardform.Handle, True), MF_DELETE, 0, SetupMessage(msgAboutSetupMenuItem)) then
WizardForm.Position:= poScreenCenter;
end;[/no][/more]

Доброе время суток. дайте мне пожалуйста полный скрипт на распаковку .arc архивов, учитывая выбранные компоненты.

vint56
вы знаете, ваш код не хочет компилится даже в чистом виде (сам по себе без моих добавок).
используется виртуалка XP, юникод-версия компилятора. скрин.
написал вам в пм, но время не терпит поэтому обращаюсь еще и здесь.

AngelNet
компилил на обычной версии,а не на расширенной. Весь взор на шапку!
p.s. vint56 сначало проверил код,а потом выложил. ты уж поверь.

AngelNet проверил что ты мне отправил по почте все работает тебе нужна Расширенная версия компилятора скачай InnoUltra скачать http://innoultra.ru/?page_id=70

sergey3695
А вот у меня компиллятор ругается на эту строку

PChar= Pansichar;

Дублированный идентификатор: PChar

Закомментил и все ОК

Версия: Inno Setup Compiler 5.5.1.ee1 (a) (build 121216)

Спасибо за пример.

vint56
спс, шикарная вещь!

Цитата:

А вот у меня компиллятор ругается на эту строку

[more=А так?]
Код: [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[ code]
type
#ifdef UNICODE
PChar = PAnsiChar;
#endif

function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem: PChar): BOOL; external 'AppendMenuA@user32.dll stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';

const
MF_DELETE = $200;

procedure InitializeWizard();
begin
if not AppendMenu(GetSystemMenu(Wizardform.Handle, True), MF_DELETE, 0, SetupMessage(msgAboutSetupMenuItem)) then
WizardForm.Position:= poScreenCenter;
end;

Просьба потестировать. Тест системы.
(Будет добавлен в модульный скрипт 6.2 в случае удачной проверки)

работает на 4х библиотеках:

isUtils.dll
get_hw_caps.dll
IsDXver.dll (Video DX)
GDI32 (системная)

Ссылка

Желательно отписаться в ЛС - и скинуть скрин теста.

Ошибка определения DirectX системы. На любой версии Windows будет: 9

nik1967
Учту, спасибо.

Упс ) Прокол с определением DirectX системы. А ведь сразу и не заметил.
На любой системе будет показывать DirectX 9 . У себя уже исправил.
Спасибо sergey3695 за тестирование и reg файл от Windows 8 - больше не нужно присылать.

Цитата:

На любой системе будет показывать DirectX 9

а я еще посмотрел и как-то не до этого было. у меня же 11 (бывает когда голову забьют).