Создание инсталляторов для модпаков на базе Inno Setup

[Kotyarko_O]

А можно в деинсталляцию реализовать музыку? Типо такого "не удаляй меня!!:)"

Можно, но на хрен оно нужно?

[Andrew_Dark]

Можно, но на хрен оно нужно?

У меня тот же вопрос

[Ekspoint]

Можно, но на хрен оно нужно?

что бы весело удаляли

У меня тот же вопрос

[Kotyarko_O]

что бы весело удаляли

Делается по типу того, как и в визарде. Только в визарде используются: IniializeSetup, InitializeWizard, DeinitializeSetup; а в деинсталляции будут: InitializeUninstall, InitializeUninstallProgressForm, DeinitializeUninstall соответственно.

Edited January 14, 2015 by Kotyarko_O

[Ekspoint]

Делается по типу того, как и в визарде. Только в визарде используются: IniializeSetup, InitializeWizard, DeinitializeSetup; а в деинсталляции будут: InitializeUninstall, InitializeUninstallProgressForm, DeinitializeUninstall соответственно.

понял

[Kotyarko_O]

понял

А ещё библиотеку проигрывания (вроде, с самой музыкой) надо будет хранить в папке с деинсталлятором. В общем, так же запихнуть эти файлы в деинсталлятор, как это делается с инсталлятором, не выйдет.

 

Так что преимуществ у этой идеи нет. Одни недостатки (хранение лишних документов в папке - лишний мусор, никто и не оценит, никому и не интересно, лишний код), реализация того не стоит.

Edited January 14, 2015 by Kotyarko_O

[Ekspoint]

А ещё библиотеку проигрывания (вроде, с самой музыкой) надо будет хранить в папке с деинсталлятором. В общем, так же запихнуть эти файлы в деинсталлятор, как это делается с инсталлятором, не выйдет.

 

Так что преимуществ у этой идеи нет. Одни недостатки (хранение лишних документов в папке - лишний мусор, никто и не оценит, никому и не интересно, лишний код), реализация того не стоит.

я так ради интереса попробую :)

[AtotIK]

"Ради интереса" это делается копированием куска кода и заменой названий процедур - всё.

 

Толку от этого? (с)

[Kotyarko_O]

"Ради интереса" это делается копированием куска кода и заменой названий процедур - всё.

Разве всё?

Мне казалось, что потребуются внешние файлы (библиотека для проигрывания и сама музыка). Деинсталлятор не кушает секцию [Files] или я ошибаюсь?

Edited January 14, 2015 by Kotyarko_O

[Ekspoint]

Деинсталлятор не кушает секцию [Files] или я ошибаюсь?

не кушает

[AtotIK]

Ладно-ладно, есть нюансы, но они минимальны.

[Kotyarko_O]

Ладно-ладно, есть нюансы, но они минимальны.

Ну никто и не говорит, что это трудно в реализации. Просто это не нужно никому.

[Ekspoint]

из за чего может быть?

40 сек пройдет и вылет

Edited January 15, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫

[-zav-]

Подскажите как впихнуть ссылку вида   <a href="длииииииинная ссылка">ссылка</a>

вот сюда:

procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_SYSCOMMAND then
if Msg.wParam = Menu.Handle then
MessageBox(WizardForm.Handle, 'bla-bla-bla' +#13+ 'ССЫЛКА','О программе', MB_ICONINFORMATION);
end;

тут кому надо весь пример по Замена меню "О программе"

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
 
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
 
[_Code]
function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem:  PAnsiChar): BOOL; external '[email protected] stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external '[email protected] stdcall';
function MessageBox(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: LongWord): Integer;  external '[email protected] stdcall';
 
const
WM_SYSCOMMAND = $0112;
MF_DELETE = $200;
MF_SEPARATOR = $800;
MF_BYPOSITION = $400;
 
var
Menu: TMenuItem;
 
procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_SYSCOMMAND then
if Msg.wParam = Menu.Handle then
MessageBox(WizardForm.Handle,'bla-bla-bla','О программе', MB_ICONINFORMATION);
end;
 
procedure InitializeWizard();
begin
// попытаемя удалить родное меню 'О программе'
if not AppendMenu(GetSystemMenu(Wizardform.Handle, True), MF_DELETE, 0, SetupMessage(msgAboutSetupMenuItem)) then
WizardForm.Position:= poScreenCenter;
// создаём сепаратор
AppendMenu(GetSystemMenu(Wizardform.Handle, False), MF_SEPARATOR, 0, '');
Menu:= TMenuItem.Create(WizardForm); // создаём ссылку на менюшку
// добавляем свой пункт в системное меню 'О программе'
AppendMenu(GetSystemMenu(Wizardform.Handle, False), MF_BYPOSITION, Menu.Handle, SetupMessage(msgAboutSetupMenuItem));
Application.OnMessage:= @AppOnMessage;
end; 

Edited January 15, 2015 by -zav-

[Kotyarko_O]

Подскажите как впихнуть ссылку вида   <a href="длииииииинная ссылка">ссылка</a>

вот сюда:

procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_SYSCOMMAND then
if Msg.wParam = Menu.Handle then
MessageBox(WizardForm.Handle, 'bla-bla-bla' +#13+ 'ССЫЛКА','О программе', MB_ICONINFORMATION);
end;

Никак. Внутри мсджбокса ссылку не вставишь, нужно создавать форму, похожую на мсджбокс и делать с ней всё, что хочется.

 

из за чего может быть?

40 сек пройдет и вылет

Из-за чего-угодно. Постоянно одно и то же время проходит до вылета?

Edited January 15, 2015 by Kotyarko_O

[-zav-]

 

 

Никак. Внутри мсджбокса ссылку не вставишь, нужно создавать форму, похожую на мсджбокс и делать с ней всё, что хочется.

Пичалька. Для сообщалки "о программе" это будет слишком жирно разводить такую канитель ради ссылки...

[Kotyarko_O]

@-zav-, я сделал, но у меня там немного другое назначение. Изначально делал для интереса, а потом решил оставить.

[Ekspoint]

Никак. Внутри мсджбокса ссылку не вставишь, нужно создавать форму, похожую на мсджбокс и делать с ней всё, что хочется.

 

Из-за чего-угодно. Постоянно одно и то же время проходит до вылета?

да 

[Kotyarko_O]

да 

Тогда F8 в помощь.

[Ekspoint]

Тогда F8 в помощь.

уже нашел проблему