[gosnitsse]

Nordek, El Sanchez, спасибо вам за помощь, я благодаря вам понял какие ключи в реестр в случае чего писать, реально спасибо вам за огромнейшую помощь и за терпение меня аутиста)))) я вам очень многим обязан, я понимаю что до вашего интелекта мне далеко, что я вам помочь подобным не с могу, но всё равно - просите у меня что угодно, денег ну по 500 каждому сброшу чтоб не обидно было, я правда благодарен.

P.S: не в обиду но всё же открывайте полные курсы и гайды чтобы обучать ребят бесплатно или за деньги решайте сами, ваши видосики на ютубе очень помогут у меня последний вопрос остался, вот есть репаки от ХАТТАБА, От МЕХАННИКОВ а так же есть вот реально красиво оформленные другие репаки, к примеру фат гирл и хаттаб, вот на какой программе они делали это??? не подскажите ещё более топовую прогу???? где клепают они. Вы уж обучайте так кого-нибудь, если вдруг в случае вашей смерти так сказать уже всё... не будет больше таких светлых умов. Спасибо вам ребятки. Можно ну и ещё 1 вопрос, при выборе языка если нажать отмену, то выскакивает ошибка и установщик без диспетчера задач уже не убрать, что делать с этим? ВСЁ ЧТО БЫЛО СКАЗАНО МНОЙ - НЕ В ОБИДУ.

[gosnitsse]

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

[Nordek]

курсы и гайды чтобы обучать»

Справки, Примеры, Руководства, Скрипты, Программы в первом сообщении.

реально красиво оформленные другие репаки »

Inno хоть и ограничен, тем не менее можно многое сделать в Inno от простых до сложных.

Форум » Ресурсы

Несколько примеров:

R.G. Catalyst (GOG) 1.0
R.G. ReCoding 1.0
R.G. Игроманы 1.1 (16042014)
Dead Space 3
Splinter Cell Blacklist
Metro 2033
Need for Speed: The Run 1.0
Need for Speed: Hot Pursuit 1.5
Need for Speed: ProStreet 1.1
Need For Speed Underground 2 + ISDone 0.5 1.2
Call of Duty Ghosts
King's Bounty - The Legend 2015-03-23
PDA - S.T.A.L.K.E.R. 1.1b
Diablo 3 Install 1.5.8
Kaspersky Anti-Virus 1.0.0.3
Opera Software Installer 1.0
Adobe Flash Installer 1.0

выцепить ключи реестра которая игра требует? »

RegistryChangesView
RegFromApp
Примеры мониторинга системного реестра

[nik1967]

Можно ну и ещё 1 вопрос, при выборе языка если нажать отмену, то выскакивает ошибка и установщик без диспетчера задач уже не убрать, что делать с этим? »

Без полного скрипта сложно советовать.

[Nordek]

то выскакивает ошибка и установщик без диспетчера задач уже не убрать »

Вы когда скомпилировали, после компиляции - Продолжите, запускайте инсталлятор там же для проверки (Учитывайте, что если у вас установлена программа которую облачаете в инсталлятор - Вносимые данные инсталлятором заменятся исходные, от чего ранее установленная программа станет непригодной для дальнейшего использования).
Когда последует вывод ошибки, и после продолжения инсталлятор не завершится - Просто продолжите нажав (Обвёл красным) эту кнопку (Учитывайте, что это на время тестирования):

- Ошибка проигнорируется и инсталлятор будет завершён.
Далее смотрите ответ от nik1967.

[gosnitsse]

Спасибо

[Beavimo]

Добрый день!
Может у когото есть пример для добавления правила в Брандмауэр Windows, потому как все ссылки на примеры битые? Нужно заблокировать устанавливаемой программе доступ в интернет, относительно выбраного пути при установке. Пока что пользую такой пример блокирует вход через хост, ну тогда на сайт не зайти.

CODE

Код:

function InitializeSetup(): Boolean;
 begin
  if FileExists(ExpandConstant('{sys}\drivers\etc\hosts')) then
   begin
    Result:= True;
     end
    else begin
   SaveStringToFile(ExpandConstant('{sys}\drivers\etc\hosts'),'', False) 
  Result:= True;
 end
end;

procedure CurStepChanged(CurStep: TSetupStep);
 var
  HostFile: TStringList;
   begin
    HostFile := TStringList.Create;
     try
      with HostFile do
       if CurStep = ssPostInstall then
      begin
       LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
      if IndexOf('127.0.0.1 www.test.com') = -1 then 
     Add('127.0.0.1 www.test.com');
    SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
   end;
  finally
 HostFile.free;
end
end;

[nik1967]

Beavimo, у меня такой код завалялся.

Добавить в исключения брандмаура

Код:

#define Exe "ashsnap.exe"

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Code]         
procedure CurStepChanged(CurStep: TSetupStep);
var
  RC: integer;
  SIn,SOut: String;
begin
  if CurStep = ssDone then begin    
    SIn:= ' advfirewall firewall add rule name=ashsnapinst dir=in action=block program='+ExpandConstant('"{app}\{#Exe}"')+' enable=yes';
    SOut:= ' advfirewall firewall add rule name=ashsnapinst dir=out action=block program='+ExpandConstant('"{app}\{#Exe}"')+' enable=yes';
    Exec('netsh', SIn, '', SW_HIDE, ewWaitUntilTerminated, RC);
    Exec('netsh', SOut, '', SW_HIDE, ewWaitUntilTerminated, RC);
  end;
end;

[Beavimo]

nik1967, большое спасибо робит. как бы теперь его отучить не создавать правило повторно, ссылаясь на name=ashsnapinst?

[Beavimo]

Может кто подскажет как проще реализовать задуманное. Есть батник, перед запуском программы он удаляет ветку реестра, и файл, но ярлык для батника не крепится на панель задач. Как зделать программу (.exe) которая бы удаляла ветку реестра, и некий файл который имеет конкретный путь, а потом запустила бы другую программу, и дела бы это в скритом режыме.
(bat to exe) не предлагать там одни вирусы, может на PascalABCNET можна реализовать задуманое?