[маркузяка]

Народ, я создал репак Mirrors Edge но когда устанавливаю и запускаю игру она полностью на английском, в чем дело? »

возможно язык игры записан в реестре. я сталкивался с этим в Battlefield 2.

нужно найти нужный ключ и сделать так чтобы установщик при установке вносил его в реестр.
в моем случае это было так:

Код:

[Registry]
Root: HKLM; Subkey: "SOFTWARE\Electronic Arts\EA GAMES\Battlefield 2\"; ValueName: Language; ValueType: string; ValueData: "Russian"

[max129]

уважаемые гуру!
подскажите если не трудно,как организовать в инно такую последовательность копирования и распаковки(одного) файлов:

1. сначала устанавливается основная папка игры через инно.
2. потом уже в основную папку происходит распаковка архива(внешнего для инно я так думаю?).
3. и напоследок в папку с распакованным архивом просто кидается другая папка(наверно тоже придётся с сетупом рядом ложить?).
++++++++++++++++++++++++++
если можно,хотя бы примерчик основных моментов.
и ещё один вопросик-при использовании связки 7z,precomp,freearc-размер файла получаетя 6 гиг-так вот не страшно ли это и каким методом лучше распаковывать,ис доном или через обычный скрипт.

[R.i.m.s.k.y.]

ложить »

КЛАСТЬ!

Код:

[Files]
Source: Folder1; DestDir: {app}; BeforeInstall: ChangeCaption('Установка первой папки'); Flags: ignoreversion recursesubdirs createallsubdirs uninsrestartdelete setntfscompression restartreplace
Source: unrar.exe; Destdir: {tmp}; BeforeInstall: ChangeCaption('Копирование архива');  
Source: rar.rar; Destdir: {tmp}; BeforeInstall: ChangeCaption('Копирование архива'); AfterInstall: Unrar(ExpandConstant('{app}\2')); 
Source: Folder2; DestDir: {app}; BeforeInstall: ChangeCaption('Установка второй папки'); Flags: ignoreversion recursesubdirs createallsubdirs uninsrestartdelete setntfscompression restartreplace

[_Code]
procedure ChangeCaption(str: string);
begin
    WizardForm.StatusLabel.Caption:= str;
end;

procedure Unrar (path : string);
var res : integer;
begin
    ChangeCaption('Распаковка архива');
    Exec(ExpandConstant('{tmp}\unrar.exe'), ' x ' + ExpandConstant('{tmp}\rar.rar') + ' ' + path, ExpandConstant('{tmp}'),SW_HIDE,ewWaitUntilTerminated,res);
end;

Примерно так. unrar.exe идет вместе с архиватором Winrar и является бесплатным приложением.

размер файла получаетя 6 гиг-так вот не страшно ли это »

Я средствами инно ведьмака на 14,5 гиг упаковывал и ничего - все живы.

[Henry_Townsend]

Товарищи,у вас есть предположения,каким образом можно создать такой прогресбар?
Я вообще поначалу думал,что это даже не окно,а слайд шоу... Перепробовав кучу скриптов ответ так и не нашёл,как разместить окно в правом нижнем углу да и ещё над панелью задач?
Буду благодарен за любые советы.

[nik1967]

Henry_Townsend,

Прогресс-бар справа внизу

Код:

[_Code]
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';
 
procedure InitializeWizard();
begin
 //Выносим кнопку "Отмена" на передний план
  WizardForm.CancelButton.BringToFront;
  WizardForm.Bevel1.Hide;
end;
 
 procedure CurPageChanged(CurPageID: Integer);
 begin
  if CurPageID=wpInstalling then
   begin
    WizardForm.BorderStyle:=bsDialog;
    WizardForm.MainPanel.Visible:=False;
    WizardForm.Width:=ScaleX(320);
    WizardForm.Height:=ScaleY(91);
    WizardForm.InnerNotebook.Left:=ScaleX(7);
    WizardForm.InnerNotebook.Top:=ScaleY(7);
    WizardForm.InnerNotebook.Width:=ScaleX(300);
    WizardForm.StatusLabel.Left:=ScaleX(0);
    WizardForm.StatusLabel.Top:=ScaleY(0);
    WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
    WizardForm.FileNameLabel.Left:=ScaleX(0);
    WizardForm.FileNameLabel.Top:=ScaleY(17);
    WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
    WizardForm.ProgressGauge.Top:=ScaleY(15);
    WizardForm.ProgressGauge.Left:=ScaleX(0);
    WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
    WizardForm.CancelButton.Left:=ScaleX(122);
    WizardForm.CancelButton.Top:=ScaleY(70);
    WizardForm.Left:=GetSystemMetrics(16)-ScaleX(325);
    WizardForm.Top:=GetSystemMetrics(17)-ScaleX(68);
   end;
if CurPageID=wpFinished
 then
  begin
  WizardForm.Width:=502;{Размер окна по горизонтали}
  WizardForm.Height:=392;{Размер окна по вертикали}
  WizardForm.Position:=poScreenCenter; {Возврат в исходное состояние}
 end
end;

[Henry_Townsend]

Огромное спасибо!А то уже начал думать,что без WindowVisible никак не обойтись.

[R.i.m.s.k.y.]

Камрады, как сделать вывод надписи над прогрессбаром при деинсталляции приложения для секции UninstallRun? Для секции Run эта надпись выводится через StatusMsg: Надпись, а вот для UninstallRun этот StatusMsg никакого эффекта не оказывает.

[koler]

подскажите с помощью какого скрипта оформлять инсталлятор

[R.i.m.s.k.y.]

подскажите с помощью какого скрипта оформлять инсталлятор »

к примеру на 235 странице этого форума есть оформление инно http://forum.oszone.net/post-1487918.html#post1487918

[koler]

Цитировать »

Цитировать »

Цитировать »

да типо инно помоги пожалуйста будь как можно менять цвет фона инсталлятора вставлять картинку в инсталлятор