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

iTASmania_Inc

Цитата:

2) Отключить кнопку минимализация инсталятора?

[Code]
procedure InitializeWizard();
begin
WizardForm.BorderIcons:=[biSystemMenu]
end;

Sampron
СПАСИБО!

Цитата:

[Code]
procedure InitializeWizard();
begin
WizardForm.BorderIcons:=[biSystemMenu]
end;

Всего?

iTASmania_Inc

Цитата:

1) Задать параметр Allways on top?

А ты уверен?

Код:
Const
HWND_TOP = 0;
HWND_TOPMOST = -1;
HWND_NOTOPMOST = -2;
SWP_NOSIZE = $1;
SWP_NOMOVE = $2;
SWP_NOZORDER = $4;
SWP_NOREDRAW = $8;
SWP_NOACTIVATE = $10;
SWP_FRAMECHANGED = $20;
SWP_SHOWWINDOW = $40;
SWP_HIDEWINDOW = $80;
SWP_NOCOPYBITS = $100;
SWP_NOOWNERZORDER = $200;
SWP_DRAWFRAME = SWP_FRAMECHANGED;
SWP_NOREPOSITION = SWP_NOOWNERZORDER;

function SetWindowPos(hWnd, hWndInsertAfter,
X, Y, cx, cy, wFlags: Longint):Boolean;
external 'SetWindowPos@user32.dll stdcall';

procedure InitializeWizard;
begin
SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
end;

Sero

Цитата:

А ты уверен?

Теперь нет!

Добавлено:
Но, все равно СПАСИБО!!!

iTASmania_Inc
Мне тоже хотелось сделать его Always on top, но последствие какие

Sero
А я больше хотел кнопку Свернуть убрать - последствия тоже нехорошие: rtf-ка слетела и страница компонентов глючит!

iTASmania_Inc

Цитата:

последствия тоже нехорошие: rtf-ка слетела и страница компонентов глючит!

Тоже жуть!

Sero

Цитата:

Тоже жуть!

Ну нет - последствий от Allways on top покруче будут! На мой взгляд!

Люди! а как можно поставить для WizardForm собственный шрифт?

Sero
[Code]
procedure InitializeWizard;
begin
WizardForm.Font.Name:='Courier New'
end;

Sampron

Цитата:

procedure InitializeWizard;
begin
WizardForm.Font.Name:='Courier New'
end;

Это я знаю,но у меня есть шрифт TTF. Как его поставить на WizardForm&

Ребята, а чё за фигня со скинам?
ехешик выдает ошибку 64:26
Cannot read an encrypted file before the key has been set.
Я так пологаю что чтото читается перед запуском, а оно закриптовано.
Как побороть?

Unc1e

Цитата:

Вопрос к обладателям Windows Vista. Что нужно написать в скрипте, чтобы добавлялся ярлык к установленной игре в папке «Игры»? Чтобы рейтинг ESRB и индекс производительности правильно отображались.

Простого и тривиального способа нету даже для MSI, но подробно всё описано в MSDN по адресу:
_ttp://msdn2.microsoft.com/en-us/library/ms687258.aspx
А в Direct X SDK есть пример приложения которая может выполнить интеграцию игры в WGE и есть программа которая позволяет собрать Dll файл для интеграции.

megarom

Цитата:

Я так пологаю что чтото читается перед запуском, а оно закриптовано.
Как побороть?

Ты прав! в секции Files поставь флаг noencryption если есть флаг dontcopy.

Sero
Флаг действует на все файлы или только на строку где dontcopy.
Мне нужно все криптованное. А этот флаг стоит только где подгрузка картинок кнопок.

Stratege
СПAСИБО за ссылочку!!!

Sero

Цитата:

Это я знаю,но у меня есть шрифт TTF. Как его поставить на WizardForm&

Дело в том что инно устанавливает шрифты после установки.
Но если ты хочешь чтоб отображался твой шрифт то как вариант можно сделать так:
Сначала создай сайлент-инсталл шрифта:

[Setup]
AppName=AppName
AppVerName=AppVerName
CreateAppDir=False
DisableProgramGroupPage=True
UsePreviousGroup=False
AppendDefaultGroupName=False
DisableFinishedPage=True
DisableReadyPage=True
Uninstallable=False
OutputBaseFilename=font

[Files]
Source: ZOMBI.TTF; DestDir: {fonts}; FontInstall: Ds Zombie Cyr; Flags: onlyifdoesntexist uninsneveruninstall

[Code]
procedure InitializeWizard();
begin
WizardForm.Hide
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpWelcome then
begin
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0)
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0)
end
end;


Потом создавай свой инсталл и включай в него инсталл шрифта:

[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\AppName

[Files]
Source: font.exe; DestDir: {tmp}; Flags: dontcopy

[Code]
Function InitializeSetup(): Boolean;
var
Res: Integer;
begin
ExtractTemporaryFile('font.exe')
Exec(ExpandConstant('{tmp}\font.exe'),'','',SW_SHOWNORMAL,ewWaitUntilTerminated,Res)
Result:=True
end;

procedure InitializeWizard();
begin
WizardForm.Font.Name:='Ds Zombie Cyr'
end;

Цитата:

Флаг действует на все файлы или только на строку где dontcopy.

Он действует на все файлы!
Дай список файлов.

Sampron
Лучше чем ничего! Спасибо!

Sero

Цитата:

Дай список файлов.

Source: {#ButtonImage}; DestDir: {tmp}; Flags: dontcopy (Это из примера)
Source: TMP\*.*; DestDir: {app}\db (это мои и нужно криптование)

megarom
Попробуй так:
Source: {#ButtonImage}; DestDir: {tmp}; Flags: dontcopy noencryption
Source: TMP\*.*; DestDir: {app}\db

Sampron
Спасибо, так у меня получилось, вопрос в том криптуются ли остальные файлы?
И есть ли описалово на все эти флаги и язык?

megarom
Все остальные файлы криптуются.
Описание читай в русской справке в шапке.

А можно ли сделать пакетное задание для инно?
Ну например брать из файла строки и вставлять в файл ридми и с сам скрипт.
А на выходе куча дистрибутивчиков с идивидуальными ридми и паролями.

Ребята, заранее извиняюсь за повторение. Скачал скрипт MusicButton для воспроизведения mp3 файлов при стандартном оформлении инсталлятора. Большая просьба выложите такой скрипт, но уже для воспроизведения трекерных модулей. Буду очень благодарен.

Maks150988
Я уже выкладывал! Вроде бы...
http://data.cod.ru/1138589130
Там две текстуры музыкальных кнопок, выбирай любую!

Добавлено:
Собственно в форум
Покапался в старых сообщениях и нашёл скрипт от Genri, в котором он писал, что можно наложить на инсталлятор параметр Transparent! А можно наложить и на MessageBox'ы?
Или это фантастика?

Цитата:

Или это фантастика?

Нуууууу да!

Sero

Цитата:

Нуууууу да!

Злой ты, не мог обнадёжить!

iTASmania_Inc
Цитата:

нашёл скрипт от Genri, в котором он писал, что можно наложить на инсталлятор параметр Transparent

-- линк дай.

Genri
http://forum.ru-board.com/topic.cgi?forum=5&topic=23235&start=240
Пользуясь твоей добротой, хотелось бы совсем оборзеть и спросить, а можно на инсталлятор наложить Always on top, чтоб только сообщения не перекрывались инсталлом, а то без Transparent не сразу разберёшь

iTASmania_Inc
Цитата:

можно на инсталлятор наложить Always on top, чтоб только сообщения не перекрывались инсталлом

-- приемлемого способа я не знаю. Через хуки можно, через внешний таймер и FindWindowEx. Но это все слишком трудоемко. Частично можно решить [more=таким]
Код:
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Code]
Const
HWND_TOP = 0;
HWND_TOPMOST = -1;
HWND_NOTOPMOST = -2;
SWP_NOSIZE = $1;
SWP_NOMOVE = $2;
SWP_NOZORDER = $4;
SWP_NOREDRAW = $8;
SWP_NOACTIVATE = $10;
SWP_FRAMECHANGED = $20;
SWP_SHOWWINDOW = $40;
SWP_HIDEWINDOW = $80;
SWP_NOCOPYBITS = $100;
SWP_NOOWNERZORDER = $200;
SWP_DRAWFRAME = SWP_FRAMECHANGED;
SWP_NOREPOSITION = SWP_NOOWNERZORDER;

function SetWindowPos(hWnd, hWndInsertAfter,
X, Y, cx, cy, wFlags: Longint):Boolean;
external 'SetWindowPos@user32.dll stdcall';

procedure DirOnClick(Sender: TObject);
var
res: Boolean;
UserSelectDir: String;
begin
UserSelectDir:= WizardForm.DirEdit.Text;
res:= BrowseForFolder('Выберите папку из списка и нажмите «ОК»', UserSelectDir, True);
if res then
begin
WizardForm.DirEdit.Text:= UserSelectDir;
end;
end;

procedure InitializeWizard;
begin
WizardForm.DirBrowseButton.OnClick:= @DirOnClick;

SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
SetWindowPos(WizardForm.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
Confirm:= False;
Cancel:= ExitSetupMsgBox;
if Not Cancel then
SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
end;