[saneksanek]

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

[Dodakaedr]

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

Ну это действительно улучшает шанс вам помочь

[saneksanek]

Dodakaedr, Лс.

[Raf-9600]

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

[sergey3695]

Raf-9600,

Код:

if GetUILanguage = $0419 then

в справке посмотри, если я правильно понял.

[Dodakaedr]

Как с помощью этого кода создать такое правило в Windows Firewall?

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
OutputDir=.

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

[Icons]
Name: {group}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}

[ code]
// Вспомогательные функции для установки Inno
// Используется для добавления / удаления программ из правил брандмауэра Windows
// Код, родом из http://news.jrsoftware.org/news/innosetup/msg43799.html

const
  NET_FW_SCOPE_ALL = 0;
  NET_FW_IP_VERSION_ANY = 2;

procedure SetFirewallException(AppName,FileName:string);
var
  FirewallObject: Variant;
  FirewallManager: Variant;
  FirewallProfile: Variant;
begin
  try
    FirewallObject := CreateOleObject('HNetCfg.FwAuthorizedApplication');
    FirewallObject.ProcessImageFileName := FileName;
    FirewallObject.Name := AppName;
    FirewallObject.Scope := NET_FW_SCOPE_ALL;
    FirewallObject.IpVersion := NET_FW_IP_VERSION_ANY;
    FirewallObject.Enabled := True;
    FirewallManager := CreateOleObject('HNetCfg.FwMgr');
    FirewallProfile := FirewallManager.LocalPolicy.CurrentProfile;
    FirewallProfile.AuthorizedApplications.Add(FirewallObject);
  except
  end;
end;

procedure RemoveFirewallException( FileName:string );
var
  FirewallManager: Variant;
  FirewallProfile: Variant;
begin
  try
    FirewallManager := CreateOleObject('HNetCfg.FwMgr');
    FirewallProfile := FirewallManager.LocalPolicy.CurrentProfile;
    FireWallProfile.AuthorizedApplications.Remove(FileName);
  except
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep=ssPostInstall then
     SetFirewallException('My Server', ExpandConstant('{app}')+'\TCPServer.exe');
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep=usPostUninstall then
     RemoveFirewallException(ExpandConstant('{app}')+'\TCPServer.exe');
end;

[diman_21Ru]

Помогите пожалуйста , не вставляется картинка ,в эти места , потом надо чтобы она сменевалась на картинки уже наводящие на моды.
Используется скрипт Source: Images\Внешний вид\3.bmp; DestName: "WizardForm.BitmapImage1.bmp"; Flags: dontcopy solidbreak , до появления функции теста картинка появлялась сейчас пропала .

[saneksanek]

diman_21Ru, Много букв и мало связи.
Если понял правильно вот держи http://rghost.ru/private/56276751/41...e24d205893aabc

[Dodakaedr]

Всем привет! Не могу понять почему не ставится картинка. Использую ботву, надо заменить стандартный WizardForm.WizardSmallBitmapImage...

Код:

ImgLoad(WizardForm.MainPanel.Handle, ExpandConstant('{tmp}\1.png'), ScaleX(0), ScaleY(0), ScaleX(160), ScaleY(50), True, True);
  ImgApplyChanges(WizardForm.MainPanel.Handle);

Спустя 5 часов 31 мин. Все разобрался)

[diman_21Ru]

Как можно добавить чистую страницу для вторых компонентов