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

Скрипт FIFA 12 1.01

Скрипт FIFA 12

  1. Scripters KrinkelsTeam

    Регистрация:
    16 май 2014
    Сообщения:
    12
    Симпатии:
    6
    Пользователь Krinkels Team разместил новый ресурс:

    FIFA 12 - Скрипт FIFA 12

    Узнать больше об этом ресурсе...
     
    Kaktus, Shift85, Доктор ВОВАН и 8 другим нравится это.
  2. Ветеран

    Регистрация:
    28 авг 2012
    Сообщения:
    96
    Симпатии:
    19
    Пол:
    Мужской
    Всем доброй ночи. сижу уже до 1.40 ночи = так и не понял...почему не видно папки в меню "ПУСК" . Скрипт конечно универсальный (может я что наделал?) Помогите=кто знает больше меня. Спасибо!

    Код (Text):
    ;-------------------------------------------------------------------------------------------------------------------------------;
    ;******    ****                       **                         ****                                ****                       ;
    ;  **      **                         ***                          **                                  **                       ;
    ;  **    **                                                        **                                  **                       ;
    ;  **    **      ******  ****      ******        ****  ****        **    ****      **********          **          **********   ;
    ;  **  **            ****    **        **          ****    **      **    **      **          **        **        **          ** ;
    ;  ******            **                **          **      **      **  **        **************        **          ******       ;
    ;  **    **          **                **          **      **      ******        **                    **                ****   ;
    ;  **      **        **                **          **      **      **    **      **          **        **        **          ** ;
    ;******    ****  **********        **********    ******  ******  ****      ****    **********      **********      **********   ;
    ;                                **************                                                                                 ;
    ;                                **    **    **                                                                                 ;
    ;                                      **                                                                                       ;
    ;                                      **          **********      ********      ******  **                                     ;
    ;                                      **        **          **            **      **  **  **                                   ;
    ;                                      **        **************    **********      **  **  **                                   ;
    ;                                      **        **              **        **      **  **  **                                   ;
    ;                                      **        **          **  **        **      **  **  **                                   ;
    ;                                    ******        **********      ********  **  ****  **  ****                                 ;
    ;-------------------------------------------------------------------------------------------------------------------------------;
    ;                                                                                                               Date: 01.05.2012;
    ;                                                                                                           Script version: 1.01;
    ;                                                                                                                 © KrinkelsTeam;
    ;-------------------------------------------------------------------------------------------------------------------------------;

    //===== [озу для распаковки] =====\\
    #define NeedMem "1024"

    #define NeedSize "4550"
    #define TNeedSize "4550"

    ;#define Components

    #define records

    //===== [Дополнительные библиотеки (для ISDone)] =====\\
    ;#define PrecompInside
    ;#define SrepInside
    #define facompress
    ;#define precomp "0.42"
    ;#define unrar
    ;#define XDelta
    ;#define PackZIP

    //===== [название игры] =====\\
    #define GameName "Operation Flashpoint Red River"
    //===== [версия игры] =====\\
    #define GameVersion "1.2.0.0"
    //===== [имя экзешника игры] =====\\
    #define ExeFile "RedRiverLauncher.exe"
    //===== [название группы] =====\\
    #define Company "Codemasters"
    //===== [ник репакера] =====\\
    #define RePacker "audiofeel"

    [Setup]
    AppName={#GameName}
    DefaultDirName=D:\Games\{#Company}\{#GameName}
    DefaultGroupName=audiofeel\Operation Flashpoint Red River
    ;AppVerName={#GameName} v{#GameVersion} / RePack by {#RePacker}
    VersionInfoDescription=Codemasters Software Company Limited
    VersionInfoTextVersion=1, 2, 0, 0
    VersionInfoVersion=1.2.0.0
    VersionInfoCompany=1.2.0.0
    InfoBeforeFile=Info.rtf
    ShowTasksTreeLines=true
    DisableProgramGroupPage=true
    VersionInfoCopyright=Copyright (C) 2011
    BitmapResource=FonL:Files\FonL.bmp|FonL1:Files\FonL1.bmp|WizImg:Files\WizImg.bmp|FonR:Files\FonR.bmp|Cat:Files\Cat.bmp|Btn1:Files\Btn1.bmp|Btn2:Files\Btn2.bmp
    InternalCompressLevel=ultra
    Compression=lzma/ultra
    AppPublisher=audiofeel
    AppPublisherURL=http://www.codemasters.com
    AppSupportURL=http://www.codemasters.com/
    AppUpdatesURL=http://www.flashpointgame.com/
    AppVersion=1.2.0.0
    UninstallDisplayName=Operation Flashpoint: Red River
    UninstallDisplayIcon={app}\RedRiver.exe
    SetupIconFile=icon.ico
    AlwaysUsePersonalGroup=false
    UsePreviousUserInfo=false
    UsePreviousGroup=true
    DiskSpanning=true

    [CustomMessages]
    ru.Extracted=Распаковка архивов...
    ru.Error=Ошибка распаковки!
    ru.ElapsedTime=Прошло:
    ru.RemainingTime=Осталось:
    ru.ExtractedFile=Извлекается файл:

    ru.Run=Запустить {#GameName}
    ru.Uninstall=Удалить {#GameName}
    ru.Text=Язык интерфейса:
    ru.Voice=Язык озвучки:
    ru.Russian=Русский.
    ru.English=Английский.
    ru.CreateDesktopIcon=Создать ярлык на Рабочем столе.
    ru.CreateGDFIcon=Создать ярлык в папке "ИГРЫ".
    ru.FreeSpace=Свободно места на выбранном диске...
    ru.TNeedSpace=Для распаковки требуется................
    ru.Redist=Дополнительное задачи:
    ru.GamesforWindowsLife=Установить Games for Windows Life (рекомендуется).
    ru.VCRedist=Обновить / Установить VCRedist.
    ru.StWelcome=Приветствие
    ru.StCats=Каталоги
    ru.StTasks=Задачи
    ru.StInfo=Информация
    ru.StReady=Подготовка
    ru.StInstalling=Установка
    ru.StFinished=Завершение
    ru.TB=Тб
    ru.GB=Гб
    ru.MB=Мб

    [Languages]
    Name: ru; MessagesFile: Lang\Russian.isl

    //===== [компоненты] =====\\:
    [Types]
    Name: full; Description: Полная установка; Flags: iscustom

    [Components]

    Name: GamesforWindowsLife; Description: {cm:GamesforWindowsLife}; Types: full
    Name: CreateDesktopIcon; Description: {cm:CreateDesktopIcon}; Types: full
    Name: CreateGDFIcon; Description: {cm:CreateGDFIcon}; Types: full

    [Run]
    Filename: {src}\Redist\gfwlivesetup.exe; Parameters: /silent; Flags: skipifdoesntexist; Components: GamesforWindowsLife; Check: CheckError; StatusMsg: Идёт установка Games for Windows Life
    Filename: {app}\GDFInstall.exe; Parameters: /silent redriverGDFBinary.dll; Flags: skipifdoesntexist runminimized; Components: CreateGDFIcon; Check: CheckError

    //===== [иконки] =====\\:
    [Icons]
    Name: {group}\audiofeel\Operation Flashpoint Red River; Filename: {app}\{#ExeFile}; Check: CheckError and NoIconsCheck; IconFilename: {app}\RedRiver.exe
    Name: {group}\audiofeel\Operation Flashpoint Red River; Filename: {app}\unins000.exe; Check: CheckError and NoIconsCheck; IconFilename: {app}\RedRiver.exe
    Name: {commondesktop}\{#GameName}; Filename: {app}\{#ExeFile}; Workingdir: {app}; Components: CreateDesktopIcon; Check: CheckError; IconFilename: {app}\RedRiver.exe

    [Registry]
    Root: HKLM; Subkey: SOFTWARE\Codemasters\Operation Flashpoint: Red River; ValueName: locale; ValueType: String; ValueData: 1033; MinVersion: 4.0,5.0; Flags: uninsdeletekeyifempty
    Root: HKLM; Subkey: SOFTWARE\Codemasters\Operation Flashpoint: Red River; ValueName: PATH_APPLICATION; ValueType: String; ValueData: {app}\; MinVersion: 4.0,5.0; Flags: uninsdeletekeyifempty
    Root: HKLM; Subkey: SOFTWARE\Codemasters\Operation Flashpoint: Red River; ValueName: LANGUAGE; ValueType: String; ValueData: RUS; MinVersion: 4.0,5.0; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: AuthorizedCDFPrefix; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Comments; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Contact; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: DisplayVersion; ValueData: 1.0.0003.129; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: HelpLink; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: HelpTelephone; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: InstallDate; ValueData: 20120922; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: InstallLocation; ValueData: {app}\; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: InstallSource; ValueData: {src}\; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: ModifyPath; ValueData: hex(2):4d,00,73,00,69,00,45,00,78,00,65,00,63,00,2e,00,65,00,78,00,65,00,20,00,2f,00,49,00,7b,00,34,00,33,00,34,00,44,00,30,00,38,00,33,00,45,00,2d,00,41,00,34,00,43,00,43,00,2d,00,34,00,30,00,31,00,41,00,2d,00,39,00,45,00,37,00,34,00,2d,00,36,00,32,00,31,00,30,00,30,00,30,00,30,00,33,00,38,00,31,00,30,00,31,00,7d,00,00,00; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Publisher; ValueData: Codemasters; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Readme; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Size; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: EstimatedSize; ValueData: $0000c49d; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: SystemComponent; ValueData: $00000001; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: UninstallString; ValueData: hex(2):4d,00,73,00,69,00,45,00,78,00,65,00,63,00,2e,00,65,00,78,00,65,00,20,00,2f,00,49,00,7b,00,34,00,33,00,34,00,44,00,30,00,38,00,33,00,45,00,2d,00,41,00,34,00,43,00,43,00,2d,00,34,00,30,00,31,00,41,00,2d,00,39,00,45,00,37,00,34,00,2d,00,36,00,32,00,31,00,30,00,30,00,30,00,30,00,33,00,38,00,31,00,30,00,31,00,7d,00,00,00; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: URLInfoAbout; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: URLUpdateInfo; ValueData: ; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: VersionMajor; ValueData: $00000001; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: VersionMinor; ValueData: $00000000; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: WindowsInstaller; ValueData: $00000001; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: Version; ValueData: $01000003; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: Language; ValueData: $00000419; Flags: uninsdeletekeyifempty
    Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: DisplayName; ValueData: OF: Red River; Flags: uninsdeletekeyifempty




    [UninstallDelete]
    Type: FilesAndOrDirs; Name: {app}

    [Code]

    #include "Modules\Header.iss"
    #include "Modules\ISDoneHeader.iss"

    procedure InitializeWizard();
    begin
      with WizardForm do begin
        AutoScroll := False;
        ClientHeight := ScaleY(400);
        ClientWidth := ScaleX(800);
        Font.Color:= clWhite;
        OuterNotebook.SetBounds(ScaleX(0), ScaleY(0), ScaleX(579), ScaleY(400));
        InnerNotebook.SetBounds(ScaleX(10), ScaleY(10), ScaleX(560), ScaleY(380));
        Position:= poScreenCenter;
        OnMouseMove:= @WizardLabelMove;

        for n := 0 to OuterNotebook.PageCount-1 do begin
          with TBitmapImage.Create(WizardForm) do begin
            Parent := OuterNotebook.Pages[n];
            SetBounds(0, 0, OuterNotebook.Pages[n].ClientWidth, OuterNotebook.Pages[n].ClientHeight);
            Bitmap.LoadFromResourceName(HInstance, '_IS_FonL');
          end;
          with TBitmapImage.Create(WizardForm) do begin
            Parent := OuterNotebook.Pages[n];
            SetBounds(ScaleX(40), ScaleY(79), ScaleX(520), ScaleY(190));
            Bitmap.LoadFromResourceName(HInstance, '_IS_WizImg');
          end;
        end;

        for n := 0 to InnerNotebook.PageCount-1 do begin
          with TBitmapImage.Create(WizardForm) do begin
            Parent := InnerNotebook.Pages[n];
            SetBounds(-InnerNotebook.Left, -InnerNotebook.Top, InnerNotebook.Pages[n].ClientWidth + InnerNotebook.Left, InnerNotebook.Pages[n].ClientHeight + InnerNotebook.Top);
            Bitmap.LoadFromResourceName(HInstance, '_IS_FonL1');
            Name := 'Bgnd_' + InnerNotebook.Pages[n].Name;
            OnMouseMove:= @WizardLabelMove;
          end;
        end;

        InnerPage.Color:= $272525;
        MainPanel.Color:= $585858;
        MainPanel.SetBounds(ScaleX(85), ScaleY(25), ScaleX(470), ScaleY(40));
        PageNameLabel.Font:= WizardForm.Font;
        PageNameLabel.SetBounds(ScaleX(0), ScaleY(3), ScaleX(470), ScaleY(14));
        PageDescriptionLabel.SetBounds(ScaleX(10), ScaleY(15), ScaleX(470), ScaleY(26));

        with WelcomeLabel1 do begin
          SetBounds(ScaleX(85), ScaleY(35), ScaleX(470), ScaleY(30));
          Font.Size:= 9;
          Font.Color:= clWhite;
          Color:= $585858;
        end;

        with WelcomeLabel2 do begin
          SetBounds(ScaleX(50), ScaleY(285), ScaleX(500), ScaleY(75));
          Font.Size:= 9;
          Font.Color:= clWhite;
          Color:= $585858;
        end;

        InfoBeforeClickLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(500), ScaleY(20));
        InfoBeforeMemo.SetBounds(ScaleX(40), ScaleY(110), ScaleX(497), ScaleY(230));
        InfoBeforeMemo.Color:= $272525;
        InfoBeforeMemo.TabStop:= False;

        SelectDirBrowseLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(500), ScaleY(40));
        SelectDirLabel.SetBounds(ScaleX(50), ScaleY(129), ScaleX(250), ScaleY(20));
        DirEdit.SetBounds(ScaleX(50), ScaleY(155), ScaleX(370), ScaleY(21));
        DirEdit.Color:= $272525;
        DirEdit.TabStop:=False;
        DirEdit.OnChange:= @GetFreeSpaceCaption;
        DirBrowseButton.SetBounds(ScaleX(430), ScaleY(155), ScaleX(80), ScaleY(23));
        DirBrowseButton.Font.Color:= clBlack;

        FreeSpaceLbl:= Tlabel.Create(WizardForm);
        FreeSpaceLbl.Parent:= SelectDirPage;
        FreeSpaceLbl.SetBounds(ScaleX(50), ScaleY(180), ScaleX(450), ScaleY(20));

        DiskSpaceLabel.SetBounds(ScaleX(50), ScaleY(200), ScaleX(450), ScaleY(20));

        TNeedSizeLbl:= Tlabel.Create(WizardForm);
        TNeedSizeLbl.Parent:= SelectDirPage;
        TNeedSizeLbl.SetBounds(ScaleX(50), ScaleY(220), ScaleX(450), ScaleY(20));

        SelectStartMenuFolderLabel.Parent:= SelectDirPage;
        SelectStartMenuFolderLabel.SetBounds(ScaleX(50), ScaleY(260), ScaleX(320), ScaleY(20));
        GroupEdit.Parent:= SelectDirPage;
        GroupEdit.SetBounds(ScaleX(50), ScaleY(285), ScaleX(370), ScaleY(21));
        GroupEdit.Color:= $272525;
        GroupBrowseButton.Parent:= SelectDirPage;
        GroupBrowseButton.SetBounds(ScaleX(430), ScaleY(285), ScaleX(80), ScaleY(23));
        GroupBrowseButton.Font.Color:= clBlack;

        NoIconsCb:= TNewCheckBox.Create(WizardForm);
        NoIconsCb.Parent:= WizardForm.SelectDirPage;
        NoIconsCb.SetBounds(ScaleX(50), ScaleY(310), ScaleX(20), ScaleY(20));
        NoIconsCb.OnClick:= @CheckNoIcons;

        SelectComponentsLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(470), ScaleY(50));
        ComponentsList.SetBounds(ScaleX(40), ScaleY(130), ScaleX(497), ScaleY(170));
        ComponentsList.Color:= $272525;
        ComponentsList.TreeViewStyle := True;
        ComponentsDiskSpaceLabel.SetBounds(ScaleX(40), ScaleY(310), ScaleX(497), ScaleY(20));

        ReadyLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(470), ScaleY(50));
        ReadyMemo.SetBounds(ScaleX(40), ScaleY(140), ScaleX(497), ScaleY(210));
        ReadyMemo.Color:= $272525;
        ReadyMemo.ScrollBars:= ssVertical;

        StatusLabel.SetBounds(ScaleX(50), ScaleY(100), ScaleX(417), ScaleY(20));
        FilenameLabel.SetBounds(ScaleX(50), ScaleY(125), ScaleX(417), ScaleY(20));
        ProgressGauge.SetBounds(ScaleX(50), ScaleY(150), ScaleX(480), ScaleY(21));

        LabelPct:= TLabel.Create(WizardForm);
        with LabelPct do begin
          Parent:= WizardForm.InstallingPage;
          Transparent:= True;
          SetBounds(ScaleX(230), ScaleY(200), ScaleX(460), ScaleY(41));
          Font.Size:= 20;
          Alignment:= taCenter;
          Font.Name:= 'Verdana';
        end;

        LabelTime:= TLabel.Create(WizardForm);
        with LabelTime do begin
          Parent:= WizardForm.InstallingPage;
          Transparent:= True;
          SetBounds(ScaleX(30), ScaleY(180), ScaleX(460), ScaleY(21));
          AutoSize:= False;
          Alignment:= taCenter;
        end;

        Bevel.Parent:= SelectDirPage;
        Bevel.SetBounds(ScaleX(40), ScaleY(135), ScaleX(497), ScaleY(110));
        Bevel.Shape:= bsFrame;

        Bevel1.Parent:= SelectDirPage;
        Bevel1.SetBounds(ScaleX(40), ScaleY(265), ScaleX(497), ScaleY(70));
        Bevel1.Shape:= bsFrame;

        with TLabel.Create(WizardForm) do begin
          Parent:= WizardForm.SelectDirPage;
          SetBounds(ScaleX(70), ScaleY(313), ScaleX(200), ScaleY(20));
          Caption:= NoIconsCheck.Caption;
          Cursor:= crHand;
          OnClick:= @NoIconsLblClick;
        end;

        with FinishedHeadingLabel do begin
          SetBounds(ScaleX(85), ScaleY(35), ScaleX(470), ScaleY(30));
          Font.Size:= 9;
          Font.Color:= clWhite;
          Color:= $585858;
        end;

        with FinishedLabel do begin
          SetBounds(ScaleX(50), ScaleY(283), ScaleX(500), ScaleY(83));
          Font.Size:= 9;
          Font.Color:= clWhite;
          Color:= $585858;
        end;

        with TBitmapImage.Create(WizardForm) do begin
          Parent := WizardForm;
          Left := ScaleX(579);
          Top := ScaleY(0);
          Width := ScaleX(221);
          Height := ScaleY(400);
          Bitmap.LoadFromResourceName(HInstance, '_IS_FonR');
        end;

        with WizardSmallBitmapImage do begin
          Parent := WizardForm;
          Left := ScaleX(592);
          Width := ScaleX(199);
          Height := ScaleY(39);
          Bitmap.LoadFromResourceName(HInstance, '_IS_Cat');
        end;

        NextButton.SetBounds(ScaleX(697), ScaleY(335), ScaleX(80), ScaleY(30));
        BackButton.SetBounds(ScaleX(605), ScaleY(335), ScaleX(80), ScaleY(30));
        CancelButton.SetBounds(0,0,0,0);

        WizardLabel:= TLabel.Create(WizardForm)
        WizardLabel.SetBounds(ScaleX(0), ScaleY(0), ScaleX(WizardForm.Width), ScaleY(WizardForm.Height))
        WizardLabel.Transparent:= True;
        WizardLabel.AutoSize:=false;
        WizardLabel.OnMouseMove:=@WizardLabelMove
        WizardLabel.Parent:= WizardForm;

        LoadButtonImage('_IS_Btn1', BackButton);
        LoadButtonImage('_IS_Btn1', NextButton);
        LoadButtonImage('_IS_Btn2', DirBrowseButton);
        LoadButtonImage('_IS_Btn2', GroupBrowseButton);
      end;

      for n:=0 to 6 do begin
        with TLabel.Create(WizardForm) do begin
          Parent:= WizardForm;
          Transparent:= True;
          SetBounds(ScaleX(615), 0, ScaleX(110), ScaleY(20));
          AutoSize:= True;
          Font.Size:= 12;
          Font.Style:= [fsBold];
          Font.Color:= clBlack;
          case n of
            0: begin
                Top:= ScaleY(20);
                Caption:= ExpandConstant('{cm:StWelcome}');
            end;
            1: begin
                Top:= ScaleY(62);
                Caption:= ExpandConstant('{cm:StInfo}');
            end;
            2: begin
                Top:= ScaleY(105);
                Caption:= ExpandConstant('{cm:StCats}');
            end;
            3: begin
                Top:= ScaleY(147);
                Caption:= ExpandConstant('{cm:StTasks}');
            end;
            4: begin
                Top:= ScaleY(192);
                Caption:= ExpandConstant('{cm:StReady}');
            end;
            5: begin
                Top:= ScaleY(235);
                Caption:= ExpandConstant('{cm:StInstalling}');
            end;
            6: begin
                Top:= ScaleY(277);
                Caption:= ExpandConstant('{cm:StFinished}');
            end;
          end;
        end;
      end;
      SetWindowLong(WizardForm.Handle, (-20), GetWindowLong(WizardForm.Handle, (-20)) or $2000000);
    end;

    Procedure CurPageChanged(CurPageID: Integer);
    Begin
    case CurPageID of
      wpWelcome: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(9);
      wpInfoBefore: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(51);
      wpSelectDir:
      begin
        WizardForm.WizardSmallBitmapImage.Top:= ScaleY(94);
        GetFreeSpaceCaption(nil);
      end;
      wpSelectComponents: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(138);
      wpReady: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(182);
      wpInstalling:
      begin
        WizardForm.CancelButton.SetBounds(ScaleX(697),ScaleY(335),ScaleX(80),ScaleY(30));
        LoadButtonImage('_IS_BTN1', WizardForm.CancelButton);
        WizardForm.WizardSmallBitmapImage.Top:= ScaleY(226);
      end;
      wpFinished:
      begin
        WizardForm.WizardSmallBitmapImage.Top:= ScaleY(269);
        if ISDoneError then begin
          WizardForm.Caption:= ExpandConstant('{cm:Error}');
          WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted);
        end;
      end;
    end;
    UpdateButtons();
    end;

    procedure CurStepChanged(CurStep: TSetupStep);
    var
      Comps1,Comps2,Comps3:cardinal;
      PCFVer: Double;
      #ifdef Components
        TmpValue: Cardinal;
      #endif
    //  переменные для примеров
    //  FindHandle1,ColFiles1,CurIndex1,tmp:integer;
    //  ExecError:boolean;
    //  InFilePath,OutFilePath,OutFileName:PAnsiChar;
    begin
      if CurStep = ssInstall then begin
        WizardForm.CancelButton.OnClick := @CancelButtonOnClick;
        WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
        ISDoneCancel:=0;

        ExtractTemporaryFile('unarc.dll');
        #ifdef PrecompInside
          ExtractTemporaryFile('CLS-precomp.dll');
          ExtractTemporaryFile('packjpg_dll.dll');
          ExtractTemporaryFile('packjpg_dll1.dll');
          ExtractTemporaryFile('precomp.exe');
          ExtractTemporaryFile('zlib1.dll');
        #endif
        #ifdef SrepInside
          ExtractTemporaryFile('CLS-srep.dll');
        #endif
        #ifdef MSCInside
          ExtractTemporaryFile('CLS-MSC.dll');
        #endif
        #ifdef facompress
          ExtractTemporaryFile('facompress.dll');
        #endif
        #ifdef records
          ExtractTemporaryFile('records.inf');
        #endif
        #ifdef precomp
          PCFVer:={#precomp};
          #if "0.38" == precomp
            ExtractTemporaryFile('precomp038.exe');
          #else
            #if "0.4" == precomp
              ExtractTemporaryFile('precomp040.exe');
            #else
              #if "0.41" == precomp
                ExtractTemporaryFile('precomp041.exe');
              #else
                #if "0.42" == precomp
                  ExtractTemporaryFile('precomp042.exe');
                #else
                  ExtractTemporaryFile('precomp038.exe');
                  ExtractTemporaryFile('precomp040.exe');
                  ExtractTemporaryFile('precomp041.exe');
                  ExtractTemporaryFile('precomp042.exe');
                #endif
              #endif
            #endif
          #endif
        #else
          PCFVer:=0;
        #endif
        #ifdef unrar
          ExtractTemporaryFile('Unrar.dll');
        #endif
        #ifdef XDelta
          ExtractTemporaryFile('XDelta3.dll');
        #endif
        #ifdef PackZIP
          ExtractTemporaryFile('7z.dll');
          ExtractTemporaryFile('PackZIP.exe');
        #endif
    //    ExtractTemporaryFile('English.ini');

        Comps1:=0; Comps2:=0; Comps3:=0;
        #ifdef Components
          TmpValue:=1;
          if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue;
          TmpValue:=TmpValue*2;
          if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue;
          TmpValue:=TmpValue*2;
          if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue;
          TmpValue:=TmpValue*2;
          if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue;
        #endif

        ISDoneError:=true;
        if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
          repeat
    //        ChangeLanguage('English');
            if not SrepInit('',512,0) then break;
            if not PrecompInit('',128,PCFVer) then break;
            if not FileSearchInit(true) then break;

            if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
            if not ISArcExtract ( 0, 0, ExpandConstant('{src}\video.bin'), ExpandConstant('{app}\data'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
            if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data2.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

    //    далее находятся закомментированые примеры различных функций распаковки (чтобы каждый раз не лазить в справку за примерами)
    (*
            if not ISArcExtract    ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
            if not IS7ZipExtract   ( 0, 0, ExpandConstant('{src}\CODMW2.7z'), ExpandConstant('{app}\data1'), false, '') then break;
            if not ISRarExtract    ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
            if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
            if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'),    ExpandConstant('{app}\data.7z'), true) then break;
            if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'),   ExpandConstant('{app}\out.dat'), false, false) then break;
            if not ISPackZIP       ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
            if not ISExec          ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;
            if not ShowChangeDiskWindow ('Пожалуйста, вставьте второй диск и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW_2.arc') then break;

    //    распаковка группы файлов посредством внешнего приложения

            FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
            ExecError:=false;
            while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
              InFilePath:=ISGetName(0);
              OutFilePath:=ISGetName(1);
              OutFileName:=ISGetName(2);
              ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
            end;
            ISFindFree(FindHandle1);
            if ExecError then break;
    *)

            ISDoneError:=false;
          until true;
          ISDoneStop;
        end;
      end;
      if (CurStep=ssPostInstall) and ISDoneError then begin
        Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
      end;
    end;
    [Files]
    Source: GDF\GameuxInstallHelper.dll; DestDir: {app}\; Flags: ignoreversion; Components: " CreateGDFIcon"
    Source: GDF\GDFInstall.exe; DestDir: {app}\; Flags: deleteafterinstall ignoreversion; Components: " CreateGDFIcon"
    Source: GDF\RedRiver.exe; DestDir: {app}\; Flags: ignoreversion
    Source: GDF\redriverGDFBinary.dll; DestDir: {app}\; Flags: ignoreversion
    Source: GDF\RedRiverLauncher.exe; DestDir: {app}\; Flags: ignoreversion[/SPOILER]
     
     
    Последнее редактирование модератором: 16 май 2014
  3. Старожил

    Регистрация:
    16 ноя 2011
    Сообщения:
    13
    Симпатии:
    2
    audiofeel,

    в секции [setup] нужно было так
    Код (Text):
    [Setup]
    AppName={#GameName}
    DefaultDirName={pf}\{#Company}\{#GameName}
    DefaultGroupName={#Company}\{#GameName}
    audiofeel,
    а если от имени репакера то так
    #define Company "Codemasters" (можно закоментировать не понадобится)

    Код (Text):
    [Setup]
    AppName={#GameName}
    DefaultDirName={pf}\{#RePacker}\{#GameName}
    DefaultGroupName={#RePacker}\{#GameName}
     
    Последнее редактирование модератором: 23 апр 2014
    audiofeel нравится это.
  4. Ветеран

    Регистрация:
    28 авг 2012
    Сообщения:
    96
    Симпатии:
    19
    Пол:
    Мужской
    Привет namiq666. НИ чего не вышло . Я ЗАБЫЛ СКАЗАТЬ что и без моего вмешательства ни папка ни ярлыки не создаются в меню пуск. Есть ответ? Или оставить уже что ли этот скрипт?
     
    Последнее редактирование: 23 сен 2012
  5. Ветеран Проверенный

    Регистрация:
    19 дек 2011
    Сообщения:
    351
    Симпатии:
    401
    audiofeel, попробуйте так:
    Код (Text):
    [Icons]
    Name: {group}\{cm:Run}; Filename: {app}\{#ExeFile}; Check: CheckError and not NoIconsCheck;
    Name: {group}\{cm:Uninstall}; Filename: {uninstallexe}; Check: CheckError and not NoIconsCheck;
    Name: {commondesktop}\{#GameName}; Filename: {app}\{#ExeFile}; Workingdir: {app}; Components: CreateDesktopIcon; Check: CheckError;
     
     
    Бахытжан и audiofeel нравится это.
  6. Ветеран

    Регистрация:
    28 авг 2012
    Сообщения:
    96
    Симпатии:
    19
    Пол:
    Мужской
    Заработала. Спасибо огромное "MAILCHIK" будем знать. (Просто настолько привык что можно "изменить" "всё".)
     
  7. Старожил

    Регистрация:
    17 июл 2012
    Сообщения:
    24
    Симпатии:
    1
    Всем доброго вечера!!! Скажите пожалуйста почему когда я создаю шиврованный арк архив, у меня в инсталляторе он не распаковывает???
     
  8. Старожил

    Регистрация:
    29 июл 2011
    Сообщения:
    8
    Симпатии:
    4
    Пол:
    Мужской
    Бахытжан,
    if not ISArcExtract ( 0, 0, ExpandConstant ('{src}\setup-a.bin'), ExpandConstant('{app}\'), '', false, 'Пароль', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
     
  9. Старожил

    Регистрация:
    17 июл 2012
    Сообщения:
    24
    Симпатии:
    1
    DeVezor спасибо получилось)))
     
  10. Старожил

    Регистрация:
    2 мар 2013
    Сообщения:
    2
    Симпатии:
    0
    Здр. Уважаемые

    У меня уже просто спортивный интерес - хочу посмотреть скрипт и никак.

    [​IMG]

    Предвидя ответ о расширенной версии (форум почитал немного) сразу даю версию Инно

    [​IMG]

    Помогите ламеру советом.
     
  11. Тех. админ Администратор

    Регистрация:
    26 дек 2011
    Сообщения:
    514
    Симпатии:
    601
    Пол:
    Мужской
    У вас неполная расширенная версия. Нужно установить Inno Setup Compiler и Inno ISCmplr Setup, да бы получить полный комплект китайской поделки :)
    [​IMG]
     
    Доктор ВОВАН и Adil нравится это.
  12. Старожил

    Регистрация:
    2 мар 2013
    Сообщения:
    2
    Симпатии:
    0
    Спс. Пришлось ставить ispack-5.5.1.exe , а не 553 как было до этого. Иначе выдавало не соотв. версии файла Default.isl

    офф. Очень грамотный скриптик.
     
  13. Пользователь

    Регистрация:
    12 окт 2013
    Сообщения:
    78
    Симпатии:
    1
    Не идет распаковка. Стоит тупо на 0,0% и все
     
  14. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    703
    Симпатии:
    494
    LMFAO опиши метод сжатия версий srep и precomp тогда будет тебе помощь
    я у себя проверил все работает использовал SrepInside0.33 и precomp 0,38 все нормально распаковало только заменил CLS-srep.dll в скрипте и все
     
  15. Пользователь

    Регистрация:
    12 окт 2013
    Сообщения:
    78
    Симпатии:
    1
    vint56, цыпочка сжатия у меня Precomp+Srep+Arc (батник), есть еще Srep+Arc и Arc
    В этот раз один архив сжимал Srep+Arc, ибо прекомп не хотел жать, а второй батником Precomp+Srep+Arc
    Цепочка:
    arc.exe a -ep1 -dses --dirs -s; -lc- -di -i2 -r -mprecomp+srep:m3f:a1:l512+lzma:a1:mfbt4:d128m:fb128:mc10000:lc8 Output\Data.bin -hpPASSWORD Compress\*
    pause
    Версия честно не знаю какая
     
  16. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    703
    Симпатии:
    494
    LMFAO,

    Тоже работает только версию precomp использовал 0.38
     
  17. Пользователь

    Регистрация:
    12 окт 2013
    Сообщения:
    78
    Симпатии:
    1
    vint56, так что мне делать? почему у меня не распаковывает?
     
  18. Ветеран Проверенный

    Регистрация:
    19 дек 2011
    Сообщения:
    351
    Симпатии:
    401
    LMFAO, unarc.dll, isdone.dll старых версий.
     
  19. Пользователь

    Регистрация:
    12 окт 2013
    Сообщения:
    78
    Симпатии:
    1
    Mailchik, где новенькие можно взять?
     
  20. Тех. админ Администратор

    Регистрация:
    26 дек 2011
    Сообщения:
    514
    Симпатии:
    601
    Пол:
    Мужской
    LMFAO, IsDone - здесь, unarc - идет в комплекте с FreArc.
     

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