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

Скрипт FIFA 12 1.01

Скрипт FIFA 12

  1. Scripters KrinkelsTeam

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

    FIFA 12 - Скрипт FIFA 12

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

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

    Код (Text):
    1. ;-------------------------------------------------------------------------------------------------------------------------------;
    2. ;******    ****                       **                         ****                                ****                       ;
    3. ;  **      **                         ***                          **                                  **                       ;
    4. ;  **    **                                                        **                                  **                       ;
    5. ;  **    **      ******  ****      ******        ****  ****        **    ****      **********          **          **********   ;
    6. ;  **  **            ****    **        **          ****    **      **    **      **          **        **        **          ** ;
    7. ;  ******            **                **          **      **      **  **        **************        **          ******       ;
    8. ;  **    **          **                **          **      **      ******        **                    **                ****   ;
    9. ;  **      **        **                **          **      **      **    **      **          **        **        **          ** ;
    10. ;******    ****  **********        **********    ******  ******  ****      ****    **********      **********      **********   ;
    11. ;                                **************                                                                                 ;
    12. ;                                **    **    **                                                                                 ;
    13. ;                                      **                                                                                       ;
    14. ;                                      **          **********      ********      ******  **                                     ;
    15. ;                                      **        **          **            **      **  **  **                                   ;
    16. ;                                      **        **************    **********      **  **  **                                   ;
    17. ;                                      **        **              **        **      **  **  **                                   ;
    18. ;                                      **        **          **  **        **      **  **  **                                   ;
    19. ;                                    ******        **********      ********  **  ****  **  ****                                 ;
    20. ;-------------------------------------------------------------------------------------------------------------------------------;
    21. ;                                                                                                               Date: 01.05.2012;
    22. ;                                                                                                           Script version: 1.01;
    23. ;                                                                                                                 © KrinkelsTeam;
    24. ;-------------------------------------------------------------------------------------------------------------------------------;
    25.  
    26. //===== [озу для распаковки] =====\\
    27. #define NeedMem "1024"
    28.  
    29. #define NeedSize "4550"
    30. #define TNeedSize "4550"
    31.  
    32. ;#define Components
    33.  
    34. #define records
    35.  
    36. //===== [Дополнительные библиотеки (для ISDone)] =====\\
    37. ;#define PrecompInside
    38. ;#define SrepInside
    39. #define facompress
    40. ;#define precomp "0.42"
    41. ;#define unrar
    42. ;#define XDelta
    43. ;#define PackZIP
    44.  
    45. //===== [название игры] =====\\
    46. #define GameName "Operation Flashpoint Red River"
    47. //===== [версия игры] =====\\
    48. #define GameVersion "1.2.0.0"
    49. //===== [имя экзешника игры] =====\\
    50. #define ExeFile "RedRiverLauncher.exe"
    51. //===== [название группы] =====\\
    52. #define Company "Codemasters"
    53. //===== [ник репакера] =====\\
    54. #define RePacker "audiofeel"
    55.  
    56. [Setup]
    57. AppName={#GameName}
    58. DefaultDirName=D:\Games\{#Company}\{#GameName}
    59. DefaultGroupName=audiofeel\Operation Flashpoint Red River
    60. ;AppVerName={#GameName} v{#GameVersion} / RePack by {#RePacker}
    61. VersionInfoDescription=Codemasters Software Company Limited
    62. VersionInfoTextVersion=1, 2, 0, 0
    63. VersionInfoVersion=1.2.0.0
    64. VersionInfoCompany=1.2.0.0
    65. InfoBeforeFile=Info.rtf
    66. ShowTasksTreeLines=true
    67. DisableProgramGroupPage=true
    68. VersionInfoCopyright=Copyright (C) 2011
    69. 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
    70. InternalCompressLevel=ultra
    71. Compression=lzma/ultra
    72. AppPublisher=audiofeel
    73. AppPublisherURL=http://www.codemasters.com
    74. AppSupportURL=http://www.codemasters.com/
    75. AppUpdatesURL=http://www.flashpointgame.com/
    76. AppVersion=1.2.0.0
    77. UninstallDisplayName=Operation Flashpoint: Red River
    78. UninstallDisplayIcon={app}\RedRiver.exe
    79. SetupIconFile=icon.ico
    80. AlwaysUsePersonalGroup=false
    81. UsePreviousUserInfo=false
    82. UsePreviousGroup=true
    83. DiskSpanning=true
    84.  
    85. [CustomMessages]
    86. ru.Extracted=Распаковка архивов...
    87. ru.Error=Ошибка распаковки!
    88. ru.ElapsedTime=Прошло:
    89. ru.RemainingTime=Осталось:
    90. ru.ExtractedFile=Извлекается файл:
    91.  
    92. ru.Run=Запустить {#GameName}
    93. ru.Uninstall=Удалить {#GameName}
    94. ru.Text=Язык интерфейса:
    95. ru.Voice=Язык озвучки:
    96. ru.Russian=Русский.
    97. ru.English=Английский.
    98. ru.CreateDesktopIcon=Создать ярлык на Рабочем столе.
    99. ru.CreateGDFIcon=Создать ярлык в папке "ИГРЫ".
    100. ru.FreeSpace=Свободно места на выбранном диске...
    101. ru.TNeedSpace=Для распаковки требуется................
    102. ru.Redist=Дополнительное задачи:
    103. ru.GamesforWindowsLife=Установить Games for Windows Life (рекомендуется).
    104. ru.VCRedist=Обновить / Установить VCRedist.
    105. ru.StWelcome=Приветствие
    106. ru.StCats=Каталоги
    107. ru.StTasks=Задачи
    108. ru.StInfo=Информация
    109. ru.StReady=Подготовка
    110. ru.StInstalling=Установка
    111. ru.StFinished=Завершение
    112. ru.TB=Тб
    113. ru.GB=Гб
    114. ru.MB=Мб
    115.  
    116. [Languages]
    117. Name: ru; MessagesFile: Lang\Russian.isl
    118.  
    119. //===== [компоненты] =====\\:
    120. [Types]
    121. Name: full; Description: Полная установка; Flags: iscustom
    122.  
    123. [Components]
    124.  
    125. Name: GamesforWindowsLife; Description: {cm:GamesforWindowsLife}; Types: full
    126. Name: CreateDesktopIcon; Description: {cm:CreateDesktopIcon}; Types: full
    127. Name: CreateGDFIcon; Description: {cm:CreateGDFIcon}; Types: full
    128.  
    129. [Run]
    130. Filename: {src}\Redist\gfwlivesetup.exe; Parameters: /silent; Flags: skipifdoesntexist; Components: GamesforWindowsLife; Check: CheckError; StatusMsg: Идёт установка Games for Windows Life
    131. Filename: {app}\GDFInstall.exe; Parameters: /silent redriverGDFBinary.dll; Flags: skipifdoesntexist runminimized; Components: CreateGDFIcon; Check: CheckError
    132.  
    133. //===== [иконки] =====\\:
    134. [Icons]
    135. Name: {group}\audiofeel\Operation Flashpoint Red River; Filename: {app}\{#ExeFile}; Check: CheckError and NoIconsCheck; IconFilename: {app}\RedRiver.exe
    136. Name: {group}\audiofeel\Operation Flashpoint Red River; Filename: {app}\unins000.exe; Check: CheckError and NoIconsCheck; IconFilename: {app}\RedRiver.exe
    137. Name: {commondesktop}\{#GameName}; Filename: {app}\{#ExeFile}; Workingdir: {app}; Components: CreateDesktopIcon; Check: CheckError; IconFilename: {app}\RedRiver.exe
    138.  
    139. [Registry]
    140. Root: HKLM; Subkey: SOFTWARE\Codemasters\Operation Flashpoint: Red River; ValueName: locale; ValueType: String; ValueData: 1033; MinVersion: 4.0,5.0; Flags: uninsdeletekeyifempty
    141. Root: HKLM; Subkey: SOFTWARE\Codemasters\Operation Flashpoint: Red River; ValueName: PATH_APPLICATION; ValueType: String; ValueData: {app}\; MinVersion: 4.0,5.0; Flags: uninsdeletekeyifempty
    142. Root: HKLM; Subkey: SOFTWARE\Codemasters\Operation Flashpoint: Red River; ValueName: LANGUAGE; ValueType: String; ValueData: RUS; MinVersion: 4.0,5.0; Flags: uninsdeletekeyifempty
    143. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: AuthorizedCDFPrefix; Flags: uninsdeletekeyifempty
    144. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Comments; ValueData: ; Flags: uninsdeletekeyifempty
    145. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Contact; ValueData: ; Flags: uninsdeletekeyifempty
    146. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: DisplayVersion; ValueData: 1.0.0003.129; Flags: uninsdeletekeyifempty
    147. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: HelpLink; ValueData: ; Flags: uninsdeletekeyifempty
    148. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: HelpTelephone; ValueData: ; Flags: uninsdeletekeyifempty
    149. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: InstallDate; ValueData: 20120922; Flags: uninsdeletekeyifempty
    150. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: InstallLocation; ValueData: {app}\; Flags: uninsdeletekeyifempty
    151. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: InstallSource; ValueData: {src}\; Flags: uninsdeletekeyifempty
    152. 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
    153. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Publisher; ValueData: Codemasters; Flags: uninsdeletekeyifempty
    154. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Readme; ValueData: ; Flags: uninsdeletekeyifempty
    155. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: Size; ValueData: ; Flags: uninsdeletekeyifempty
    156. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: EstimatedSize; ValueData: $0000c49d; Flags: uninsdeletekeyifempty
    157. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: SystemComponent; ValueData: $00000001; Flags: uninsdeletekeyifempty
    158. 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
    159. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: URLInfoAbout; ValueData: ; Flags: uninsdeletekeyifempty
    160. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: URLUpdateInfo; ValueData: ; Flags: uninsdeletekeyifempty
    161. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: VersionMajor; ValueData: $00000001; Flags: uninsdeletekeyifempty
    162. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: VersionMinor; ValueData: $00000000; Flags: uninsdeletekeyifempty
    163. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: WindowsInstaller; ValueData: $00000001; Flags: uninsdeletekeyifempty
    164. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: Version; ValueData: $01000003; Flags: uninsdeletekeyifempty
    165. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: dword; ValueName: Language; ValueData: $00000419; Flags: uninsdeletekeyifempty
    166. Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{434D083E-A4CC-401A-9E74-621000038101}; ValueType: string; ValueName: DisplayName; ValueData: OF: Red River; Flags: uninsdeletekeyifempty
    167.  
    168.  
    169.  
    170.  
    171. [UninstallDelete]
    172. Type: FilesAndOrDirs; Name: {app}
    173.  
    174. [Code]
    175.  
    176. #include "Modules\Header.iss"
    177. #include "Modules\ISDoneHeader.iss"
    178.  
    179. procedure InitializeWizard();
    180. begin
    181.   with WizardForm do begin
    182.     AutoScroll := False;
    183.     ClientHeight := ScaleY(400);
    184.     ClientWidth := ScaleX(800);
    185.     Font.Color:= clWhite;
    186.     OuterNotebook.SetBounds(ScaleX(0), ScaleY(0), ScaleX(579), ScaleY(400));
    187.     InnerNotebook.SetBounds(ScaleX(10), ScaleY(10), ScaleX(560), ScaleY(380));
    188.     Position:= poScreenCenter;
    189.     OnMouseMove:= @WizardLabelMove;
    190.  
    191.     for n := 0 to OuterNotebook.PageCount-1 do begin
    192.       with TBitmapImage.Create(WizardForm) do begin
    193.         Parent := OuterNotebook.Pages[n];
    194.         SetBounds(0, 0, OuterNotebook.Pages[n].ClientWidth, OuterNotebook.Pages[n].ClientHeight);
    195.         Bitmap.LoadFromResourceName(HInstance, '_IS_FonL');
    196.       end;
    197.       with TBitmapImage.Create(WizardForm) do begin
    198.         Parent := OuterNotebook.Pages[n];
    199.         SetBounds(ScaleX(40), ScaleY(79), ScaleX(520), ScaleY(190));
    200.         Bitmap.LoadFromResourceName(HInstance, '_IS_WizImg');
    201.       end;
    202.     end;
    203.  
    204.     for n := 0 to InnerNotebook.PageCount-1 do begin
    205.       with TBitmapImage.Create(WizardForm) do begin
    206.         Parent := InnerNotebook.Pages[n];
    207.         SetBounds(-InnerNotebook.Left, -InnerNotebook.Top, InnerNotebook.Pages[n].ClientWidth + InnerNotebook.Left, InnerNotebook.Pages[n].ClientHeight + InnerNotebook.Top);
    208.         Bitmap.LoadFromResourceName(HInstance, '_IS_FonL1');
    209.         Name := 'Bgnd_' + InnerNotebook.Pages[n].Name;
    210.         OnMouseMove:= @WizardLabelMove;
    211.       end;
    212.     end;
    213.  
    214.     InnerPage.Color:= $272525;
    215.     MainPanel.Color:= $585858;
    216.     MainPanel.SetBounds(ScaleX(85), ScaleY(25), ScaleX(470), ScaleY(40));
    217.     PageNameLabel.Font:= WizardForm.Font;
    218.     PageNameLabel.SetBounds(ScaleX(0), ScaleY(3), ScaleX(470), ScaleY(14));
    219.     PageDescriptionLabel.SetBounds(ScaleX(10), ScaleY(15), ScaleX(470), ScaleY(26));
    220.  
    221.     with WelcomeLabel1 do begin
    222.       SetBounds(ScaleX(85), ScaleY(35), ScaleX(470), ScaleY(30));
    223.       Font.Size:= 9;
    224.       Font.Color:= clWhite;
    225.       Color:= $585858;
    226.     end;
    227.  
    228.     with WelcomeLabel2 do begin
    229.       SetBounds(ScaleX(50), ScaleY(285), ScaleX(500), ScaleY(75));
    230.       Font.Size:= 9;
    231.       Font.Color:= clWhite;
    232.       Color:= $585858;
    233.     end;
    234.  
    235.     InfoBeforeClickLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(500), ScaleY(20));
    236.     InfoBeforeMemo.SetBounds(ScaleX(40), ScaleY(110), ScaleX(497), ScaleY(230));
    237.     InfoBeforeMemo.Color:= $272525;
    238.     InfoBeforeMemo.TabStop:= False;
    239.  
    240.     SelectDirBrowseLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(500), ScaleY(40));
    241.     SelectDirLabel.SetBounds(ScaleX(50), ScaleY(129), ScaleX(250), ScaleY(20));
    242.     DirEdit.SetBounds(ScaleX(50), ScaleY(155), ScaleX(370), ScaleY(21));
    243.     DirEdit.Color:= $272525;
    244.     DirEdit.TabStop:=False;
    245.     DirEdit.OnChange:= @GetFreeSpaceCaption;
    246.     DirBrowseButton.SetBounds(ScaleX(430), ScaleY(155), ScaleX(80), ScaleY(23));
    247.     DirBrowseButton.Font.Color:= clBlack;
    248.  
    249.     FreeSpaceLbl:= Tlabel.Create(WizardForm);
    250.     FreeSpaceLbl.Parent:= SelectDirPage;
    251.     FreeSpaceLbl.SetBounds(ScaleX(50), ScaleY(180), ScaleX(450), ScaleY(20));
    252.  
    253.     DiskSpaceLabel.SetBounds(ScaleX(50), ScaleY(200), ScaleX(450), ScaleY(20));
    254.  
    255.     TNeedSizeLbl:= Tlabel.Create(WizardForm);
    256.     TNeedSizeLbl.Parent:= SelectDirPage;
    257.     TNeedSizeLbl.SetBounds(ScaleX(50), ScaleY(220), ScaleX(450), ScaleY(20));
    258.  
    259.     SelectStartMenuFolderLabel.Parent:= SelectDirPage;
    260.     SelectStartMenuFolderLabel.SetBounds(ScaleX(50), ScaleY(260), ScaleX(320), ScaleY(20));
    261.     GroupEdit.Parent:= SelectDirPage;
    262.     GroupEdit.SetBounds(ScaleX(50), ScaleY(285), ScaleX(370), ScaleY(21));
    263.     GroupEdit.Color:= $272525;
    264.     GroupBrowseButton.Parent:= SelectDirPage;
    265.     GroupBrowseButton.SetBounds(ScaleX(430), ScaleY(285), ScaleX(80), ScaleY(23));
    266.     GroupBrowseButton.Font.Color:= clBlack;
    267.  
    268.     NoIconsCb:= TNewCheckBox.Create(WizardForm);
    269.     NoIconsCb.Parent:= WizardForm.SelectDirPage;
    270.     NoIconsCb.SetBounds(ScaleX(50), ScaleY(310), ScaleX(20), ScaleY(20));
    271.     NoIconsCb.OnClick:= @CheckNoIcons;
    272.  
    273.     SelectComponentsLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(470), ScaleY(50));
    274.     ComponentsList.SetBounds(ScaleX(40), ScaleY(130), ScaleX(497), ScaleY(170));
    275.     ComponentsList.Color:= $272525;
    276.     ComponentsList.TreeViewStyle := True;
    277.     ComponentsDiskSpaceLabel.SetBounds(ScaleX(40), ScaleY(310), ScaleX(497), ScaleY(20));
    278.  
    279.     ReadyLabel.SetBounds(ScaleX(40), ScaleY(80), ScaleX(470), ScaleY(50));
    280.     ReadyMemo.SetBounds(ScaleX(40), ScaleY(140), ScaleX(497), ScaleY(210));
    281.     ReadyMemo.Color:= $272525;
    282.     ReadyMemo.ScrollBars:= ssVertical;
    283.  
    284.     StatusLabel.SetBounds(ScaleX(50), ScaleY(100), ScaleX(417), ScaleY(20));
    285.     FilenameLabel.SetBounds(ScaleX(50), ScaleY(125), ScaleX(417), ScaleY(20));
    286.     ProgressGauge.SetBounds(ScaleX(50), ScaleY(150), ScaleX(480), ScaleY(21));
    287.  
    288.     LabelPct:= TLabel.Create(WizardForm);
    289.     with LabelPct do begin
    290.       Parent:= WizardForm.InstallingPage;
    291.       Transparent:= True;
    292.       SetBounds(ScaleX(230), ScaleY(200), ScaleX(460), ScaleY(41));
    293.       Font.Size:= 20;
    294.       Alignment:= taCenter;
    295.       Font.Name:= 'Verdana';
    296.     end;
    297.  
    298.     LabelTime:= TLabel.Create(WizardForm);
    299.     with LabelTime do begin
    300.       Parent:= WizardForm.InstallingPage;
    301.       Transparent:= True;
    302.       SetBounds(ScaleX(30), ScaleY(180), ScaleX(460), ScaleY(21));
    303.       AutoSize:= False;
    304.       Alignment:= taCenter;
    305.     end;
    306.  
    307.     Bevel.Parent:= SelectDirPage;
    308.     Bevel.SetBounds(ScaleX(40), ScaleY(135), ScaleX(497), ScaleY(110));
    309.     Bevel.Shape:= bsFrame;
    310.  
    311.     Bevel1.Parent:= SelectDirPage;
    312.     Bevel1.SetBounds(ScaleX(40), ScaleY(265), ScaleX(497), ScaleY(70));
    313.     Bevel1.Shape:= bsFrame;
    314.  
    315.     with TLabel.Create(WizardForm) do begin
    316.       Parent:= WizardForm.SelectDirPage;
    317.       SetBounds(ScaleX(70), ScaleY(313), ScaleX(200), ScaleY(20));
    318.       Caption:= NoIconsCheck.Caption;
    319.       Cursor:= crHand;
    320.       OnClick:= @NoIconsLblClick;
    321.     end;
    322.  
    323.     with FinishedHeadingLabel do begin
    324.       SetBounds(ScaleX(85), ScaleY(35), ScaleX(470), ScaleY(30));
    325.       Font.Size:= 9;
    326.       Font.Color:= clWhite;
    327.       Color:= $585858;
    328.     end;
    329.  
    330.     with FinishedLabel do begin
    331.       SetBounds(ScaleX(50), ScaleY(283), ScaleX(500), ScaleY(83));
    332.       Font.Size:= 9;
    333.       Font.Color:= clWhite;
    334.       Color:= $585858;
    335.     end;
    336.  
    337.     with TBitmapImage.Create(WizardForm) do begin
    338.       Parent := WizardForm;
    339.       Left := ScaleX(579);
    340.       Top := ScaleY(0);
    341.       Width := ScaleX(221);
    342.       Height := ScaleY(400);
    343.       Bitmap.LoadFromResourceName(HInstance, '_IS_FonR');
    344.     end;
    345.  
    346.     with WizardSmallBitmapImage do begin
    347.       Parent := WizardForm;
    348.       Left := ScaleX(592);
    349.       Width := ScaleX(199);
    350.       Height := ScaleY(39);
    351.       Bitmap.LoadFromResourceName(HInstance, '_IS_Cat');
    352.     end;
    353.  
    354.     NextButton.SetBounds(ScaleX(697), ScaleY(335), ScaleX(80), ScaleY(30));
    355.     BackButton.SetBounds(ScaleX(605), ScaleY(335), ScaleX(80), ScaleY(30));
    356.     CancelButton.SetBounds(0,0,0,0);
    357.  
    358.     WizardLabel:= TLabel.Create(WizardForm)
    359.     WizardLabel.SetBounds(ScaleX(0), ScaleY(0), ScaleX(WizardForm.Width), ScaleY(WizardForm.Height))
    360.     WizardLabel.Transparent:= True;
    361.     WizardLabel.AutoSize:=false;
    362.     WizardLabel.OnMouseMove:=@WizardLabelMove
    363.     WizardLabel.Parent:= WizardForm;
    364.  
    365.     LoadButtonImage('_IS_Btn1', BackButton);
    366.     LoadButtonImage('_IS_Btn1', NextButton);
    367.     LoadButtonImage('_IS_Btn2', DirBrowseButton);
    368.     LoadButtonImage('_IS_Btn2', GroupBrowseButton);
    369.   end;
    370.  
    371.   for n:=0 to 6 do begin
    372.     with TLabel.Create(WizardForm) do begin
    373.       Parent:= WizardForm;
    374.       Transparent:= True;
    375.       SetBounds(ScaleX(615), 0, ScaleX(110), ScaleY(20));
    376.       AutoSize:= True;
    377.       Font.Size:= 12;
    378.       Font.Style:= [fsBold];
    379.       Font.Color:= clBlack;
    380.       case n of
    381.         0: begin
    382.             Top:= ScaleY(20);
    383.             Caption:= ExpandConstant('{cm:StWelcome}');
    384.         end;
    385.         1: begin
    386.             Top:= ScaleY(62);
    387.             Caption:= ExpandConstant('{cm:StInfo}');
    388.         end;
    389.         2: begin
    390.             Top:= ScaleY(105);
    391.             Caption:= ExpandConstant('{cm:StCats}');
    392.         end;
    393.         3: begin
    394.             Top:= ScaleY(147);
    395.             Caption:= ExpandConstant('{cm:StTasks}');
    396.         end;
    397.         4: begin
    398.             Top:= ScaleY(192);
    399.             Caption:= ExpandConstant('{cm:StReady}');
    400.         end;
    401.         5: begin
    402.             Top:= ScaleY(235);
    403.             Caption:= ExpandConstant('{cm:StInstalling}');
    404.         end;
    405.         6: begin
    406.             Top:= ScaleY(277);
    407.             Caption:= ExpandConstant('{cm:StFinished}');
    408.         end;
    409.       end;
    410.     end;
    411.   end;
    412.   SetWindowLong(WizardForm.Handle, (-20), GetWindowLong(WizardForm.Handle, (-20)) or $2000000);
    413. end;
    414.  
    415. Procedure CurPageChanged(CurPageID: Integer);
    416. Begin
    417. case CurPageID of
    418.   wpWelcome: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(9);
    419.   wpInfoBefore: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(51);
    420.   wpSelectDir:
    421.   begin
    422.     WizardForm.WizardSmallBitmapImage.Top:= ScaleY(94);
    423.     GetFreeSpaceCaption(nil);
    424.   end;
    425.   wpSelectComponents: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(138);
    426.   wpReady: WizardForm.WizardSmallBitmapImage.Top:= ScaleY(182);
    427.   wpInstalling:
    428.   begin
    429.     WizardForm.CancelButton.SetBounds(ScaleX(697),ScaleY(335),ScaleX(80),ScaleY(30));
    430.     LoadButtonImage('_IS_BTN1', WizardForm.CancelButton);
    431.     WizardForm.WizardSmallBitmapImage.Top:= ScaleY(226);
    432.   end;
    433.   wpFinished:
    434.   begin
    435.     WizardForm.WizardSmallBitmapImage.Top:= ScaleY(269);
    436.     if ISDoneError then begin
    437.       WizardForm.Caption:= ExpandConstant('{cm:Error}');
    438.       WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted);
    439.     end;
    440.   end;
    441. end;
    442. UpdateButtons();
    443. end;
    444.  
    445. procedure CurStepChanged(CurStep: TSetupStep);
    446. var
    447.   Comps1,Comps2,Comps3:cardinal;
    448.   PCFVer: Double;
    449.   #ifdef Components
    450.     TmpValue: Cardinal;
    451.   #endif
    452. //  переменные для примеров
    453. //  FindHandle1,ColFiles1,CurIndex1,tmp:integer;
    454. //  ExecError:boolean;
    455. //  InFilePath,OutFilePath,OutFileName:PAnsiChar;
    456. begin
    457.   if CurStep = ssInstall then begin
    458.     WizardForm.CancelButton.OnClick := @CancelButtonOnClick;
    459.     WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
    460.     ISDoneCancel:=0;
    461.  
    462.     ExtractTemporaryFile('unarc.dll');
    463.     #ifdef PrecompInside
    464.       ExtractTemporaryFile('CLS-precomp.dll');
    465.       ExtractTemporaryFile('packjpg_dll.dll');
    466.       ExtractTemporaryFile('packjpg_dll1.dll');
    467.       ExtractTemporaryFile('precomp.exe');
    468.       ExtractTemporaryFile('zlib1.dll');
    469.     #endif
    470.     #ifdef SrepInside
    471.       ExtractTemporaryFile('CLS-srep.dll');
    472.     #endif
    473.     #ifdef MSCInside
    474.       ExtractTemporaryFile('CLS-MSC.dll');
    475.     #endif
    476.     #ifdef facompress
    477.       ExtractTemporaryFile('facompress.dll');
    478.     #endif
    479.     #ifdef records
    480.       ExtractTemporaryFile('records.inf');
    481.     #endif
    482.     #ifdef precomp
    483.       PCFVer:={#precomp};
    484.       #if "0.38" == precomp
    485.         ExtractTemporaryFile('precomp038.exe');
    486.       #else
    487.         #if "0.4" == precomp
    488.           ExtractTemporaryFile('precomp040.exe');
    489.         #else
    490.           #if "0.41" == precomp
    491.             ExtractTemporaryFile('precomp041.exe');
    492.           #else
    493.             #if "0.42" == precomp
    494.               ExtractTemporaryFile('precomp042.exe');
    495.             #else
    496.               ExtractTemporaryFile('precomp038.exe');
    497.               ExtractTemporaryFile('precomp040.exe');
    498.               ExtractTemporaryFile('precomp041.exe');
    499.               ExtractTemporaryFile('precomp042.exe');
    500.             #endif
    501.           #endif
    502.         #endif
    503.       #endif
    504.     #else
    505.       PCFVer:=0;
    506.     #endif
    507.     #ifdef unrar
    508.       ExtractTemporaryFile('Unrar.dll');
    509.     #endif
    510.     #ifdef XDelta
    511.       ExtractTemporaryFile('XDelta3.dll');
    512.     #endif
    513.     #ifdef PackZIP
    514.       ExtractTemporaryFile('7z.dll');
    515.       ExtractTemporaryFile('PackZIP.exe');
    516.     #endif
    517. //    ExtractTemporaryFile('English.ini');
    518.  
    519.     Comps1:=0; Comps2:=0; Comps3:=0;
    520.     #ifdef Components
    521.       TmpValue:=1;
    522.       if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue;
    523.       TmpValue:=TmpValue*2;
    524.       if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue;
    525.       TmpValue:=TmpValue*2;
    526.       if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue;
    527.       TmpValue:=TmpValue*2;
    528.       if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue;
    529.     #endif
    530.  
    531.     ISDoneError:=true;
    532.     if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
    533.       repeat
    534. //        ChangeLanguage('English');
    535.         if not SrepInit('',512,0) then break;
    536.         if not PrecompInit('',128,PCFVer) then break;
    537.         if not FileSearchInit(true) then break;
    538.  
    539.         if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
    540.         if not ISArcExtract ( 0, 0, ExpandConstant('{src}\video.bin'), ExpandConstant('{app}\data'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
    541.         if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data2.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
    542.  
    543. //    далее находятся закомментированые примеры различных функций распаковки (чтобы каждый раз не лазить в справку за примерами)
    544. (*
    545.         if not ISArcExtract    ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
    546.         if not IS7ZipExtract   ( 0, 0, ExpandConstant('{src}\CODMW2.7z'), ExpandConstant('{app}\data1'), false, '') then break;
    547.         if not ISRarExtract    ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
    548.         if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
    549.         if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'),    ExpandConstant('{app}\data.7z'), true) then break;
    550.         if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'),   ExpandConstant('{app}\out.dat'), false, false) then break;
    551.         if not ISPackZIP       ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
    552.         if not ISExec          ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;
    553.         if not ShowChangeDiskWindow ('Пожалуйста, вставьте второй диск и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW_2.arc') then break;
    554.  
    555. //    распаковка группы файлов посредством внешнего приложения
    556.  
    557.         FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
    558.         ExecError:=false;
    559.         while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
    560.           InFilePath:=ISGetName(0);
    561.           OutFilePath:=ISGetName(1);
    562.           OutFileName:=ISGetName(2);
    563.           ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
    564.         end;
    565.         ISFindFree(FindHandle1);
    566.         if ExecError then break;
    567. *)
    568.  
    569.         ISDoneError:=false;
    570.       until true;
    571.       ISDoneStop;
    572.     end;
    573.   end;
    574.   if (CurStep=ssPostInstall) and ISDoneError then begin
    575.     Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
    576.   end;
    577. end;
    578. [Files]
    579. Source: GDF\GameuxInstallHelper.dll; DestDir: {app}\; Flags: ignoreversion; Components: " CreateGDFIcon"
    580. Source: GDF\GDFInstall.exe; DestDir: {app}\; Flags: deleteafterinstall ignoreversion; Components: " CreateGDFIcon"
    581. Source: GDF\RedRiver.exe; DestDir: {app}\; Flags: ignoreversion
    582. Source: GDF\redriverGDFBinary.dll; DestDir: {app}\; Flags: ignoreversion
    583. Source: GDF\RedRiverLauncher.exe; DestDir: {app}\; Flags: ignoreversion[/SPOILER]
    584.  
     
    Последнее редактирование модератором: 16 май 2014
  3. Пользователь

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

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

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

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

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

    Регистрация:
    28 авг 2012
    Сообщения:
    98
    Симпатии:
    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
    Сообщения:
    536
    Симпатии:
    642
    Пол:
    Мужской
    У вас неполная расширенная версия. Нужно установить 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
    Сообщения:
    908
    Симпатии:
    671
    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
    Сообщения:
    908
    Симпатии:
    671
    LMFAO,

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

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

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

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

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

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