1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

DLL Is-All.dll Обновленный пример

Библиотека добавляет дополнительные функции в Inno Setup

  1. MCV MCV

    Ветеран

    Регистрация:
    10 окт 2015
    Сообщения:
    33
    Симпатии:
    11
    Пол:
    Мужской
    Пользователь MCV разместил новый ресурс:

    Is-All.dll - Библиотека добавляет дополнительные функции в Inno Setup

    Узнать больше об этом ресурсе...
     
    Simorq, Andreo Fadio и agent555 нравится это.
  2. Ветеран

    Регистрация:
    17 сен 2016
    Сообщения:
    63
    Симпатии:
    7
    MCV, Hello, can you tell me pls, song name?
    All what need it add that code in my script, and it will work, right?
    [​IMG]
     
    Последнее редактирование: 28 июл 2018
  3. MCV MCV

    Ветеран

    Регистрация:
    10 окт 2015
    Сообщения:
    33
    Симпатии:
    11
    Пол:
    Мужской
    Песня принадлежит Aimer - Ninelie

    Пример обновлен, чтобы показать использование функций брандмауэра
     
    Andreo Fadio, sergey3695 и agent555 нравится это.
  4. Ветеран Модератор

    Регистрация:
    26 июн 2011
    Сообщения:
    1.184
    Симпатии:
    757
    agent555,
    Код (Inno):
    [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;
     
    agent555 нравится это.
  5. MCV MCV

    Ветеран

    Регистрация:
    10 окт 2015
    Сообщения:
    33
    Симпатии:
    11
    Пол:
    Мужской
    Попробуйте эту версию и расскажите мне, как это происходит, кроме того, я хотел бы знать, какая у вас операционная система.
    Try this version and tell me how it goes, additionally I would like to know what operating system you have.
     

    Вложения:

  6. Ветеран

    Регистрация:
    17 сен 2016
    Сообщения:
    63
    Симпатии:
    7
    MCV, Now works perfect! Windows 7 X64. Thank you! you're rock
    [​IMG] [​IMG] [​IMG]
     
  7. MCV MCV

    Ветеран

    Регистрация:
    10 окт 2015
    Сообщения:
    33
    Симпатии:
    11
    Пол:
    Мужской
    Очень хорошо, я обновлю библиотеку.
    Благодать для поддержки вашего развития.
     
    agent555 нравится это.
  8. MCV MCV

    Ветеран

    Регистрация:
    10 окт 2015
    Сообщения:
    33
    Симпатии:
    11
    Пол:
    Мужской
    agent555 нравится это.

Поделиться этой страницей