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

[Ekspoint 2,122]

как можно добавить инсталлятор в исключения брандмауера? что то найти не могу

[-zav- 188]

как можно добавить инсталлятор в исключения брандмауера? что то найти не могу

Где то видел код запуска от имени администратора, думаю должно помочь.

[Ekspoint 2,122]

Где то видел код запуска от имени администратора, думаю должно помочь.

да это я знаю в секции setup задается 

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

[akey 35]

да это я знаю в секции setup задается 

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

в факе есть про это, глянте...

@Kotyarko_O, Спасибо за разъяснения!

Ещё вопрос. Существует ли возможность как то отслеживать установку модпака? Или Вариант блокирования установки из вне? То есть, кто либо поставил мод пак, активировал, и всё на этом... больше ни кто не может воспользоваться. Такое вообще возможно?

[Ekspoint 2,122]

Ещё вопрос. Существует ли возможность как то отслеживать установку модпака? Или Вариант блокирования установки из вне? То есть, кто либо поставил мод пак, активировал, и всё на этом... больше ни кто не может воспользоваться. Такое вообще возможно?

я что то такое где то писал или видел, вроде можно 

но нужно сервак иметь вроде 

[Kotyarko_O 1,906]

 

 

Ещё вопрос. Существует ли возможность как то отслеживать установку модпака? Или Вариант блокирования установки из вне? То есть, кто либо поставил мод пак, активировал, и всё на этом... больше ни кто не может воспользоваться. Такое вообще возможно?

Да, возможно.

[Ekspoint 2,122]

Да, возможно.

пример имеется?

[akey 35]

Да, возможно.

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

Как быть с этим?

у меня в препроцессоре такая процедура есть...

[Ekspoint 2,122]

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

Как быть с этим?

у меня в препроцессоре такая процедура есть...

я ждал этого :)

procedure CreateLogModsChanged(CurStep: TSetupStep);
begin
   If CurStep=ssInstall then
begin
  CreateDir(ExpandConstant('{app}\{#MyAppName}'));
  DeleteFile(ExpandConstant('{app}\{#MyAppName}\{#LogMods}'));
  CreateLogMods;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
CreateLogModsChanged(CurStep);
end;

суть понял?

[akey 35]

я ждал этого :)

procedure CreateLogModsChanged(CurStep: TSetupStep);
begin
   If CurStep=ssInstall then
begin
  CreateDir(ExpandConstant('{app}\{#MyAppName}'));
  DeleteFile(ExpandConstant('{app}\{#MyAppName}\{#LogMods}'));
  CreateLogMods;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
CreateLogModsChanged(CurStep);
end;

суть понял?

Вот код... что не так, потому как ошибка та же...

function CreateLogMods: Boolean;
var
  I: Integer;
  FileName, DateTime: String;
begin
  Result:=True;
  DateTime:=GetDateTimeString('dd/mm/yyyy  hh:nn', '-', '-');
  FileName:=ExpandConstant('{app}\{#PACK}\{#LogMods}');
//----------------------------------------------------------------------------------------------\\
    For I:=0 to WizardForm.ComponentsList.Items.Count - 1 do
         If WizardForm.ComponentsList.Checked[I] then
    begin
         SaveStringToFile(FileName, '{#LogMods} ' + WizardForm.ComponentsList.ItemCaption[I] + #13#10, True);
      end;
end;
procedure CreateLogModsChanged(CurStep: TSetupStep);
begin
   If CurStep=ssInstall then
begin
  CreateDir(ExpandConstant('{app}\{#PACK}'));
  DeleteFile(ExpandConstant('{app}\{#PACK}\{#LogMods}'));
  CreateLogMods;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
CreateLogModsChanged(CurStep);
end;

[Ekspoint 2,122]

 

Вот код... что не так, потому как ошибка та же...

function CreateLogMods: Boolean;
var
  I: Integer;
  FileName, DateTime: String;
begin
  Result:=True;
  DateTime:=GetDateTimeString('dd/mm/yyyy  hh:nn', '-', '-');
  FileName:=ExpandConstant('{app}\{#PACK}\{#LogMods}');
//----------------------------------------------------------------------------------------------\\
    For I:=0 to WizardForm.ComponentsList.Items.Count - 1 do
         If WizardForm.ComponentsList.Checked[I] then
    begin
         SaveStringToFile(FileName, '{#LogMods} ' + WizardForm.ComponentsList.ItemCaption[I] + #13#10, True);
      end;
end;
procedure CreateLogModsChanged(CurStep: TSetupStep);
begin
   If CurStep=ssInstall then
begin
  CreateDir(ExpandConstant('{app}\{#PACK}'));
  DeleteFile(ExpandConstant('{app}\{#PACK}\{#LogMods}'));
  CreateLogMods;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
CreateLogModsChanged(CurStep);
end;

тут все верно ты у себя найди еще 

procedure CurStepChanged(CurStep: TSetupStep);
begin
....
.....
....
end;

найди свой и в него впиши 

CreateLogModsChanged(CurStep);

проще свой скрипт скинь 

[akey 35]

 

проще свой скрипт скинь 

в личных. Спасибо заранее...

[Andrew_Dark 8]

procedure DeletModpakChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
  begin
   FileCopy(ExpandConstant('{app}\{#MyAppName}\backup\paths.xml'), ExpandConstant('{app}\paths.xml'), False);
   DelTree(ExpandConstant('{app}\{#MyAppName}'), True, True, True);
   DelTree(ExpandConstant('{app}\res_mods'), True, True, True);
   CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;

 

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
DeletModpakChanged(CurUninstallStep); {удаление модпака}
end;

 

 

Что тут в коде не так, что он срабатывает, но не создаёт папку "res_mods\имя патча"? Остальное работает.

Edited July 20, 2015 by Darksoul

[Kotyarko_O 1,906]

 

 

Что тут в коде не так

procedure DeletModpakChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
  begin
   FileCopy(ExpandConstant('{app}\{#MyAppName}\backup\paths.xml'), ExpandConstant('{app}\paths.xml'), False);
   DelTree(ExpandConstant('{app}\{#MyAppName}'), True, True, True);
   DelTree(ExpandConstant('{app}\res_mods'), True, True, True);
   CreateDir(ExpandConstant('{app}\res_mods'));
   CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;

[licimer 1]

Народ напомните как включить запоминание ранее установленных модов?... когда повторно перестанавливаешь модпак.

Edited July 20, 2015 by licimer

[Andrew_Dark 8]

procedure DeletModpakChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
  begin
   FileCopy(ExpandConstant('{app}\{#MyAppName}\backup\paths.xml'), ExpandConstant('{app}\paths.xml'), False);
   DelTree(ExpandConstant('{app}\{#MyAppName}'), True, True, True);
   DelTree(ExpandConstant('{app}\res_mods'), True, True, True);
   CreateDir(ExpandConstant('{app}\res_mods'));
   CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;

Спс, дружище, совсем забыл.

[Kotyarko_O 1,906]

Народ напомните как включить запоминание ранее установленных модов?... когда повторно перестанавливаешь модпак.

Для основной страницы компонентов достаточно включить создание деинсталлятора. И положение компонентов будет запоминаться, пока он есть.

[licimer 1]

Для основной страницы компонентов достаточно включить создание деинсталлятора. И положение компонентов будет запоминаться, пока он есть.

Да было такое. И при чем работало. Но в какой то момент перестало. После того как обновил сборку. Но самое интересное просто добавил модов, картинок и описание. В самом коде не ковырялся даже. 

В чем может быть причина?

 

И еще вопрос. Подскажите как растянуть по горизонтали строчку куда  вписывается путь установки игры. 

 

 

а то обрублено смотрится

Edited July 20, 2015 by licimer

[Ekspoint 2,122]

Спс, дружище, совсем забыл.

опять тупим 

 

И еще вопрос. Подскажите как растянуть по горизонтали строчку куда  вписывается путь установки игры. 

 

а то обрублено смотрится

в редакторе фор 

для компонентов можно сделать как и создание лога установки 

[Kotyarko_O 1,906]

Да было такое. И при чем работало. Но в какой то момент перестало. После того как обновил сборку. Но самое интересное просто добавил модов, картинок и описание. В самом коде не ковырялся даже. 

В чем может быть причина?

Значит всё-таки что-то делал, вплоть до нового типа установки. Вспоминай.

 

И еще вопрос. Подскажите как растянуть по горизонтали строчку куда  вписывается путь установки игры.

WizardForm.DirEdit.Width
WizardForm.DirBrowseButton.Width