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

[Rikill]

Shegorat, прости я дурак, не то, имел ввиду такую штуку которая реагирует на звук

Спойлер: Скрин

 

[Avengerz13]

Rikill, это называется спектр а не эквалайзер. Эквалайзер это регулятор громкости звука разных частот.

 

[DaRKdemoN]

имел ввиду такую штуку которая реагирует на звук

Спектроанализатор называется
А вообще для таких вопросов есть отличная справка и примеры (там даже для асма есть, я по началу офигел ) вместе с bass.dll

Добавлено через 31 минуту
Так что тебе собственно надо - реакция на звук (Спектроанализатор как в bass-scan-thread.zip) или просто какие нибудь эффекты?

 

[David.D.Rocco]

нужна подсказка. создаю форму:

Спойлер

var f: TSetupForm;
  ...
  f:=CreateCustomForm;
  f.FormStyle:=fsStayOnTop;
  f.SetBounds(100, 100, 200, 200);
  f.Show;
  ...

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

 

[Goof]

Люди,скажите пожалуйста,как в готовый скрипт вставить модуль распаковки фри арк?и пожалуйста подробно,а то я новичёк в этом деле)Без показывания процентов и всего прочего.Чтобы он просто молча распаковался куда указано в установке и всё.

 

[nik1967]

David.D.Rocco, в папке с установленным Inno есть папка "Examples". В ней на удивление много разнообразных примеров. В частности, с твоим примером советую обратить внимание на скрипт "CodeClasses.iss".

 

[David.D.Rocco]

nik1967, знаю я про этот пример. модальная форма не нужна. мне нужно чтобы обе формы были активны...
нашел уже решение. так что отбой...

 

[Булат Зиганшин]

Goof, без всяких модулей просто выполни команду arc/unarc на распаковку

 

[Goof]

А как именно?пожалуйста поподробнее,а то я полный ноль в этом

 

[Rikill]

Друже, как сделать прогресс бар на таскбаре?

 

[Zimbo]

Ребята, что за ошибка и как исправить ?

 

[Shegorat]

Zimbo
Логично что нужно перевести ошибку
Не используй ExtreactTemporaryFileSize при деинсталляции

 

[Edison007]

Zimbo, модуль б2п не работает на деинсталляторе

 

[shidow]

Мне нужно сделать чтоб exe файлу блокировался выход в интернет. Использую для этого

Спойлер: FirewallInstallHelper

#define MyAppVerName "My Program version"
#define MyAppExeName "MyProg.exe"
#define path "{app}\MyProg.exe"

[Setup]
AppName=My Program
AppVerName=My Program version
DefaultDirName={pf}\My Program
OutputDir=.

[Files]
Source: "MyProg.exe"; DestDir: "{app}";
Source: "FirewallInstallHelper.dll"; DestDir: {app};

[UninstallDelete]
Type: files; Name: "{app}\FirewallInstallHelper.dll"

 function AddApplicationToExceptionListW(path: String; name: String): Boolean; 
 external 'AddApplicationToExceptionListW@files:FirewallInstallHelper.dll stdcall setuponly'; 
  
 function RemoveApplicationFromExceptionListW(path: String): Boolean; 
 external 'RemoveApplicationFromExceptionListW@{app}\FirewallInstallHelper.dll stdcall uninstallonly'; 
  
 procedure CurStepChanged(CurStep: TSetupStep); 
 var 
 path, name: String; 
 begin 
  
 if CurStep = ssPostInstall then 
 begin 
 path:=ExpandConstant('{#path}'); 
 name:=ExpandConstant('{#MyAppVerName}'); 
  
 AddApplicationToExceptionListW(path, name); 
 end; 
 end; 
  
 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
 var 
 path: String; 
 begin 
 if CurUninstallStep=usUninstall then 
 begin 
 path:=ExpandConstant('{#path}'); 
 RemoveApplicationFromExceptionListW(path) 
 UnloadDll(ExpandConstant('{app}\FirewallInstallHelper.dll')); 
 end; 
 end;[/SPOILER]
Но результата нет, мб я что-то не так делаю? :-[

 

[LexBell]

Но результата нет, мб я что-то не так делаю?

Эээ, а брандмауэр есть в системе? Насколько я понимаю, эта либа создает правило для брандмауэра, и если такового нет, то и результата не будет. Но здесь уже ничем не помоч, поскольку именно брандмауэр занимается допуском приложений в инет.

 

[shidow]

Эээ, а брандмауэр есть в системе?

Есть[hr] Покажи свой скрипт тогда, может, неправильно чтото делаеш. Не пример, а свой скрипт. Gnom.

Добавлено через 28 минут
В свой скрипт пока не стал добавлять. Создаю новый инстал и ставлю сверху. Результат нулевой(

Спойлер

#define MyAppName "Tropico 4
#define MyAppVersion "1.0"
#define MyAppPublisher "Kalypso Media"
#define path "{app}\Tropico4.exe"

[Setup]
AppName={#MyAppName}
AppPublisher={#MyAppPublisher}
AppVersion={#MyAppVersion}
DefaultDirName=D:\{#MyAppName}

[Files]
Source: "Tropico4.exe"; DestDir: "{app}";
Source: "FirewallInstallHelper.dll"; DestDir: {app};

 function AddApplicationToExceptionListW(path: String; name: String): Boolean;
 external 'AddApplicationToExceptionListW@files:FirewallInstallHelper.dll stdcall setuponly';

 function RemoveApplicationFromExceptionListW(path: String): Boolean;
 external 'RemoveApplicationFromExceptionListW@{app}\FirewallInstallHelper.dll stdcall uninstallonly';

 procedure CurStepChanged(CurStep: TSetupStep);
 var
 path, name: String;
 begin

 if CurStep = ssPostInstall then
 begin
 path:=ExpandConstant('{#path}');
 name:=ExpandConstant('{#MyAppVersion}');

 AddApplicationToExceptionListW(path, name);
 end;
 end;

 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
 var
 path: String;
 begin
 if CurUninstallStep=usUninstall then
 begin
 path:=ExpandConstant('{#path}');
 RemoveApplicationFromExceptionListW(path)
 UnloadDll(ExpandConstant('{app}\FirewallInstallHel per.dll'));
 end;
 end;[/SPOILER]

 

[LexBell]

shidow, Каким образом определяеш нулевость результата? Просто я вижу, что у тебя один файл, и не факт, что именно его нужно блокировать.

 

[shidow]

Каким образом определяеш нулевость результата?

Запускаю игру, появляется Launcher при выключенном инете сразу запускается игра.

Просто я вижу, что у тебя один файл, и не факт, что именно его нужно блокировать.

Возможно, пробовал еще с одним файлом, и в итоге опять ничего не поучилось. Конечно мб надо еще какой-нибудь файл но это вряд ли

 

[alexa1995]

именно его нужно блокировать.

смотрел через сетевые подключения в ноде..
Мб это разрабы специально так сделали?

 

[shidow]

Теперь знаю какой файл нужно блокировать. Остался один вопрос как