Inno Setup. Сделайте за меня

[nik1967]

Vovka, плохо искал, значит. Потому, что было обсуждение.
Пример изменения Hosts-файла

[SOURCE="inno"]//файл host, теоретически, может располагаться где угодно.
//И если ты внесешь изменения в файл, который расположен в {win}\system32\drivers\etc -
//не факт, что эти изменения будут работать.
//Путь к реально используемому файлу прописывается в реестре в параметре
//HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\DataBasePath
//(и это верно как для Win32, так и для Win64)

var
HostFile: TStringList;
begin
HostFile := TStringList.Create;
try
with HostFile do
begin
LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
Add('127.0.0.1 static3.cdn.ubi.com');
Add('127.0.0.1 ubisoft-orbit.s3.amazonaws.com');
Add('127.0.0.1 onlineconfigservice.ubi.com');
Add('127.0.0.1 orbitservice.ubi.com');
Add('127.0.0.1 ubisoft-orbit-savegames.s3.amazonaws.com');
SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
end;
finally
HostFile.free;
end;
end;[/SOURCE]

 

[avatar]

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

Необходимо добавить в скрипт проигрывание музыки.
Пробовал сам, но не выходит у меня объединение секции

, не хватает знаний.

Если не затруднит кого то из знающих людей - добавьте, пожалуйста.
Желающим помочь предоставлю всю информацию в ПМ.
Готов выразить благодарность материально, если не будет слишком дорого.


Вот шапка скрипта.
[spoiler]
[IMG]http://s2.ipicture.ru/uploads/20130528/aWG4mSzy.jpg[/IMG]
[/spoiler]
[spoiler]
[IMG]http://s2.ipicture.ru/uploads/20130528/pU3uYGq2.jpg[/IMG]
[/spoiler]

 

[andrey_167]

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

Необходимо добавить в скрипт проигрывание музыки.
Пробовал сам, но не выходит у меня объединение секции

, не хватает знаний.

Если не затруднит кого то из знающих людей - добавьте, пожалуйста.
Желающим помочь предоставлю всю информацию в ПМ.
Готов выразить благодарность материально, если не будет слишком дорого.


Вот шапка скрипта.
[spoiler]
[IMG]http://s2.ipicture.ru/uploads/20130528/aWG4mSzy.jpg[/IMG]
[/spoiler]
[spoiler]
[IMG]http://s2.ipicture.ru/uploads/20130528/pU3uYGq2.jpg[/IMG]
[/spoiler][/QUOTE]
скрипт в лс кидай зделаем

 

[Djinn]

Всем привет !!можно зделать в этом скрипте чтобы верхняя полоска bevel1 была снизу верхней картинки (чтобы отображалась по верх SelectDirPage

 

[Adil]

Djinn, Ты хочешь что бы было так?

 

[Djinn]

Djinn, Ты хочешь что бы было так?

Да именно так(чтото я в редакторе форм ненашол как это зделать

 

[Adil]

Djinn вот
(но лучше сделать с нуля)

 

[iShadow89]

Всем привет! Нубу нужна ваша помощь, есть скрипт с фриарком, распаковывает файлы в папку с игрой, нужно сделать чтобы деинсталлятор удалял только те файлы что распаковались, кто может помочь?)

 

[Mailchik]

iShadow89, накидал пример. код...

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[b][[/b]code]
function ISDirEmpty(Dir: string): boolean;
var
 sRec: TFindRec;
 i: Integer;
begin
 Result := False;
 FindFirst(AddBackslash(Dir) + '*', sRec);
 for i := 1 to 2 do
  if (sRec.Name = '.') or (sRec.Name = '..') then
   Result := FindNext(sRec) <> True;
 FindClose(sRec);
end;

procedure GetAllFiles(Path: string; strList: TStringList);
var
 sRec: TFindRec;
 isFound: boolean;
begin
 isFound := FindFirst(Path + '\*.*', sRec);
 while isFound do begin
  if (sRec.Name <> '.') and (sRec.Name <> '..') then begin
   if (sRec.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then
    GetAllFiles(Path + '\' + sRec.Name, strList);
    strList.Add(Path + '\' + sRec.Name);
  end;
  Application.ProcessMessages;
  isFound := FindNext(sRec);
 end;
 strList.SaveToFile(ExpandConstant('{app}\_list.txt'));
 FindClose(sRec);
end;

procedure DeleteFiles(ListFile: string);
var
 sList: TStringList;
 i: integer;
begin
 sList := TStringList.Create;
 sList.LoadFromFile(ListFile);
 for i := 0 to sList.Count - 1 do
  DeleteFile(sList.Strings[i]);
 sList.Free;
end;

procedure CurPageChanged(CurPageID : integer);
var
 sList: TStringList;
begin
  case CurPageID of
   wpFinished: begin
    sList := TStringList.Create;
    GetAllFiles(ExpandConstant('{app}'), sList);
    sList.Free;
   end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 case CurUninstallStep of
  usDone: begin
   DeleteFiles(ExpandConstant('{app}\_list.txt'));
   DeleteFile(ExpandConstant('{app}\_list.txt'));
   if ISDirEmpty(ExpandConstant('{app}')) then
    RemoveDir(ExpandConstant('{app}'));
  end;
 end;
end;

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

 

[koryakin2zhenya]

Помогите сделать два выбора игры

Всем привет!
У меня проблема не как не могу сделать выбор установки игры Metro 2033 или Metro Last Light
Как мне сделать выбор установки как выбор языка только будет выбор игр.
Сорь что немного школотенско.

 

[sergey3695]

koryakin2zhenya, мне чето твой вопрос не понятен. Разъясни что именно надо.

 

[Mickey1s]

sergey3695, насколько я понял он хочет чтоб в инсталляторе был выбор установки игры (метро2033 или ласт найт) через компоненты.

 

[sergey3695]

Mickey1s, ну тогда можно и автораном воспользоваться.

 

[koryakin2zhenya]

sergey3695, Мне нужно сделать за место выбора языка выбор игр!

 

[Mailchik]

koryakin2zhenya, пример...

#define Game1 "Metro 2033"
#define Game2 "Metro Last Light"

[Setup]
AppName={code:GetAppName}
AppVersion=1.5
DefaultDirName={pf}\{code:GetAppName}
UsePreviousLanguage=no
BitmapResource={#Game1}:compiler:WizModernImage.bmp|{#Game2}:compiler:WizModernImage-IS.bmp

[B][[/B]Code]
var
 Form1: TSetupForm;
 CancelButton, OKButton: TButton;
 Label1: TLabel;
 ComboBox1: TComboBox;
 GameName: string;

procedure ComboBox1OnChange(Sender: TObject);
begin
 GameName := TComboBox(Sender).Items[TComboBox(Sender).ItemIndex];
end;

function GetAppName(s: string): string;
begin
 Result := GameName;
end;

procedure GameSelect();
begin
 Form1 := CreateCustomForm();
 try
 with Form1 do begin
  ClientWidth :=  ScaleX(350);
  ClientHeight := ScaleY(150);
  Caption := 'Выберите игру';
  BorderStyle := bsSingle;
  Position := poScreenCenter;
 end;

 Label1 := TLabel.Create(Form1);
 with Label1 do begin
  SetBounds(ScaleX(10), ScaleY(10), Form1.ClientWidth - ScaleX(20), ScaleY(32));
  AutoSize := False;
  Alignment := taCenter;
  WordWrap := True;
  Font.Size := 10;
  Caption := 'Пожалуйста, выберите игру, которую вы хотите установить и нажмите "OK".';
  Parent := Form1;
 end;

 ComboBox1 := TComboBox.Create(Form1);
 with ComboBox1 do begin
  Parent := Form1;
  SetBounds((Form1.ClientWidth div 2) - ScaleX(80), ScaleY(50), ScaleX(160), Height);
  Style := csDropDownList;
  Items.Text := '{#Game1}' + #13#10 + '{#Game2}';
  ItemIndex := 0;
  OnChange := @ComboBox1OnChange;
  OnChange(ComboBox1);
 end;

 CancelButton := TButton.Create(Form1);
 with CancelButton do begin
  Parent := Form1;
  SetBounds((Form1.ClientWidth div 2) - ScaleX(40), Form1.ClientHeight - ScaleY(30), ScaleX(80), ScaleY(25));
  Caption := 'Отмена';
  ModalResult := mrCancel;
  Cancel := True;
 end;

 OKButton := TButton.Create(Form1);
 with OKButton do begin
  Parent := Form1;
  SetBounds((Form1.ClientWidth div 2) - ScaleX(40), Form1.ClientHeight - ScaleY(60), ScaleX(80), ScaleY(25));
  Caption := 'OK';
  ModalResult := mrOk;
  Cancel := True;
 end;

 Form1.ShowModal();
 finally
  Form1.Free();
 end;
end;

function InitializeSetup: boolean;
begin
 GameSelect;
 if Form1.ModalResult = mrOk then
  Result := True else Result := false;
end;

procedure InitializeWizard;
begin
 case GameName of
  '{#Game1}': WizardForm.WizardBitmapImage.Bitmap.LoadFromResourceName(HInstance, '_IS_{#Game1}');
  '{#Game2}': WizardForm.WizardBitmapImage.Bitmap.LoadFromResourceName(HInstance, '_IS_{#Game2}');
 end;
end;

 

[koryakin2zhenya]

Mailchik, Спасибо, но поясни как сделать например два разных дизайна?
Мне нужно например для Метро 2033 инсталл как PDA - S.T.A.L.K.E.R.
Ну для Метро last light стандартный например.
Мне помогут?
Mickey1s, Правильно понял, дайте этот вариант!
И настройку через исдон.

 

[koryakin2zhenya]

/del

 

[Snoopak96]

Правильно понял, дайте этот вариант!
И настройку через исдон.

Сударь вам тут ни кто не обязан - возьмите да сами сделайте, не умеете так ждите.

 

[MAKS_MAFIA]

Помогите пожалуйста. Пытаюсь сделать инсталлятор 2 дня. Для профи дело 10 минутное. Хочу сделать наподобие такого.
http://www.mediafire.com/download/rkp41l049ip03lo
Вот мои файлы:
http://rghost.ru/private/46877261/0a503dcc2f874b2ec66819234c0a4ad7

 

[andrey_167]

Помогите пожалуйста. Пытаюсь сделать инсталлятор 2 дня. Для профи дело 10 минутное. Хочу сделать наподобие такого.
http://www.mediafire.com/download/rkp41l049ip03lo
Вот мои файлы:
http://rghost.ru/private/46877261/0a503dcc2f874b2ec66819234c0a4ad7

если я тебя провильно понял то както так будет http://rghost.ru/46884459