Jump to content
Korean Random

JIuCuI_GyCb

User
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Noob

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Помогите досоздать скрипт который добавит описание под картинку. Вот скрипт // Этот сценарий создан с помощью Мастера Inno Setup. // ОБРАТИТЕСЬ К СПРАВОЧНОЙ ДОКУМЕНТАЦИИ, ЧТОБЫ ИСПОЛЬЗОВАТЬ ВСЕ ВОЗМОЖНОСТИ INNO SETUP! #define MyAppName "JluCuI_GyCb Мультипак" #define MyAppVersion "1.12.0.0" #define MyAppPublisher "JluCuI_GyCb" #define MyAppURL "https://kttc.ru/wot/ru/user/JluCuI_GyCb/" [Setup] // Примечание: Значение AppId является уникальным идентификатором для этого приложения. // Не используйте одно и тоже значение AppId для разных приложений. // (Для создания нового значения GUID, выберите в меню "Инструменты" пункт "Создать GUID".) AppId={{63927EB8-2400-49E7-9B72-4D9E4AD1518B} AppName={#MyAppName} AppVersion={#MyAppVersion} ;AppVerName={#MyAppName} {#MyAppVersion} AppPublisher={#MyAppPublisher} AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} DefaultDirName=C:\Games\World_of_Tanks_RU\ DefaultGroupName={#MyAppName} DisableProgramGroupPage=yes DirExistsWarning=no LicenseFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\License.txt InfoBeforeFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\InfoBefore.rtf UninstallFilesDir={app}\JluCuI_GyCb Мультипак OutputDir=C:\Games OutputBaseFilename=JluCuIGyCb-ModPack 1.12.0.0 SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico Compression=lzma SolidCompression=yes WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] //---------- мои фото ---------- Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_1.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2_1.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2_2.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_3.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_4.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_5.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_6.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_7.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_8.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_9.bmp; Flags: dontcopy nocompression //---------- мои файлы ---------- Source: "C:\Users\postu\Desktop\World_of_Tanks\Цветные отметки попаданий\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text7; Source: "C:\Users\postu\Desktop\World_of_Tanks\Белые сбитые гусеницы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text6; Source: "C:\Users\postu\Desktop\World_of_Tanks\Калькулятор боевой эффективности\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text9; Source: "C:\Users\postu\Desktop\World_of_Tanks\Мод Достижения в бою\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text5; Source: "C:\Users\postu\Desktop\World_of_Tanks\Оповещение союзников о засвете\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text8; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от OldSkool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\1; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от ПроТанки\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\2; Source: "C:\Users\postu\Desktop\World_of_Tanks\Статистика за сессию\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text4; Source: "C:\Users\postu\Desktop\World_of_Tanks\Менеджер Реплеев\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text1; Source: "C:\Users\postu\Desktop\World_of_Tanks\Командирская камера\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text3; // Примечание: Не используйте флаги "ignoreversion" для общих системных файлов. [Icons] Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}" [Components] Name: KMP; Description: JluCuI_GyCb ModPack; Types: custom; Flags: fixed Name: KMP\text1; Description: 1. Менеджер Реплеев; Name: KMP\text2; Description: 2. Отметки на орудие; Name: KMP\text2\1; Description: Вариант от OldSkool; Flags: exclusive Name: KMP\text2\2; Description: Вариант от ПроТанки; Flags: exclusive Name: KMP\text3; Description: 3. Командирская камера; Name: KMP\text4; Description: 4. Статистика за сессию; Name: KMP\text5; Description: 5. Мод Достижения в бою; Name: KMP\text6; Description: 6. Белые сбитые гусеницы; Name: KMP\text7; Description: 7. Цветные отметки попаданий; Name: KMP\text8; Description: 8. Оповещение союзников о засвете; Name: KMP\text9; Description: 9. Калькулятор боевой эффективности; [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var OldEvent_BackButtonClick: TNotifyEvent; procedure WizardFormCreate(Sender: TObject); forward; procedure MainPanelClick(Sender: TObject); forward; procedure PageDescriptionLabelClick(Sender: TObject); forward; procedure _BackButtonClick(Sender: TObject); forward; function MyDirName(S:String): String; var InsPath: String; er: boolean; myFile:String; begin Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath); if er and (InsPath<>'') then //если ключ существует и там что-то записано begin Result := InsPath; end; end; procedure RedesignWizardForm; begin with WizardForm do begin OnCreate := @WizardFormCreate; AutoScroll := False; ClientHeight := ScaleY(360); ClientWidth := ScaleX(497); end; with WizardForm.Bevel do begin Top := ScaleY(313); Width := ScaleX(497); Height := ScaleY(2); end; with WizardForm.OuterNotebook do begin Width := ScaleX(497); Height := ScaleY(313); end; with WizardForm.WizardBitmapImage do begin Width := ScaleX(498); Height := ScaleY(314); end; with WizardForm.WelcomeLabel2 do begin Caption := '' + #13#10 + ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.WelcomeLabel1 do begin Caption := ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.Bevel1 do begin Top := ScaleY(58); Width := ScaleX(499); Height := ScaleY(3); end; with WizardForm.InnerNotebook do begin Width := ScaleX(417); Height := ScaleY(237); end; with WizardForm.LicenseNotAcceptedRadio do begin Top := ScaleY(216); end; with WizardForm.LicenseAcceptedRadio do begin Top := ScaleY(196); end; with WizardForm.LicenseMemo do begin Width := ScaleX(417); Height := ScaleY(148); end; with WizardForm.DiskSpaceLabel do begin Top := ScaleY(216); Width := ScaleX(417); end; with WizardForm.DirBrowseButton do begin Left := ScaleX(342); Top := ScaleY(80); end; with WizardForm.DirEdit do begin Left := ScaleX(0); Width := ScaleX(332); end; with WizardForm.ComponentsDiskSpaceLabel do begin Top := ScaleY(-1); Width := ScaleX(-1); end; with WizardForm.ComponentsList do begin Width := ScaleX(417); Height := ScaleY(131); end; with WizardForm.TypesCombo do begin Width := ScaleX(417); end; with WizardForm.SelectComponentsLabel do begin Caption := 'Выберите компоненты, которые вы хотите установить. Нажмите «Далее», когда вы будете готовы продолжить.'; Height := ScaleY(40); end; with WizardForm.TasksList do begin Width := ScaleX(417); Height := ScaleY(192); end; with WizardForm.ReadyMemo do begin Width := ScaleX(417); Height := ScaleY(205); end; with WizardForm.ProgressGauge do begin Left := ScaleX(0); Width := ScaleX(417); end; with WizardForm.InfoAfterMemo do begin Width := ScaleX(417); Height := ScaleY(205); end; with WizardForm.MainPanel do begin Width := ScaleX(497); Height := ScaleY(58); OnClick := @MainPanelClick; end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(0); Top := ScaleY(0); Width := ScaleX(498); Height := ScaleY(65); end; with WizardForm.PageDescriptionLabel do begin OnClick := @PageDescriptionLabelClick; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.PageNameLabel do begin Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); end; with WizardForm.WizardBitmapImage2 do begin Top := ScaleY(0); Width := ScaleX(498); Height := ScaleY(314); end; with WizardForm.RunList do begin Left := ScaleX(176); Top := ScaleY(163); Width := ScaleX(301); Height := ScaleY(142); end; with WizardForm.NoRadio do begin Left := ScaleX(176); Top := ScaleY(185); Width := ScaleX(301); Height := ScaleY(17); Caption := ''; end; with WizardForm.YesRadio do begin Left := ScaleX(176); Top := ScaleY(163); Width := ScaleX(301); Height := ScaleY(17); Caption := ''; end; with WizardForm.FinishedLabel do begin Caption := ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.FinishedHeadingLabel do begin Caption := ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.BeveledLabel do begin Left := ScaleX(0); Top := ScaleY(306); end; with WizardForm.CancelButton do begin Left := ScaleX(407); Top := ScaleY(327); end; with WizardForm.NextButton do begin Left := ScaleX(317); Top := ScaleY(327); end; with WizardForm.BackButton do begin Left := ScaleX(237); Top := ScaleY(327); OldEvent_BackButtonClick := OnClick; OnClick := @_BackButtonClick; end; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure NewButton1Click(Sender: TObject); begin end; procedure MainPanelClick(Sender: TObject); begin end; procedure PageDescriptionLabelClick(Sender: TObject); begin end; procedure _BackButtonClick(Sender: TObject); begin OldEvent_BackButtonClick(Sender); end; procedure WizardFormCreate(Sender: TObject); begin end; const UNDEF_INDEX = -777; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); InfoPic.SetBounds(ScaleX(250), ScaleY(40), ScaleX(165), ScaleY(135)); InfoPic.Show; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; if Index = LastIndex then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of '1. Менеджер Реплеев': UndefPic := 'descriptionimage_1.bmp'; // пишем точно так же, как прописано в компонентах '2. Отметки на орудие': UndefPic := 'descriptionimage_2.bmp'; 'Вариант от OldSkool': UndefPic := 'descriptionimage_2_1.bmp'; 'Вариант от ПроТанки': UndefPic := 'descriptionimage_2_2.bmp'; '3. Командирская камера': UndefPic := 'descriptionimage_3.bmp'; '4. Статистика за сессию': UndefPic := 'descriptionimage_4.bmp'; '5. Мод Достижения в бою': UndefPic := 'descriptionimage_5.bmp'; '6. Белые сбитые гусеницы': UndefPic := 'descriptionimage_6.bmp'; '7. Цветные отметки попаданий': UndefPic := 'descriptionimage_7.bmp'; '8. Оповещение союзников о засвете': UndefPic := 'descriptionimage_8.bmp'; '9. Калькулятор боевой эффективности': UndefPic := 'descriptionimage_9.bmp'; else begin LastIndex := UNDEF_INDEX; InfoPic.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin InfoPic.Hide; LastIndex := -1; end; procedure InitInfo(); begin WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(230), ScaleY(190)); WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); LastIndex := UNDEF_INDEX; with TBevel.Create(WizardForm) do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(250), ScaleY(40), ScaleX(165), ScaleY(135)); Shape := bsFrame; end; InfoPic := TBitmapImage.Create(WizardForm) with InfoPic do begin Parent := WizardForm.SelectComponentsPage; AutoSize := True; end; end; procedure InitializeWizard(); begin RedesignWizardForm; InitInfo(); end; [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D0030100D03000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020005576964746803EF010C4578706C696369744C65667402000D4578706C69636974576964746803EF010000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667402F803546F7002FA0557696474680205064865696768740206074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C69636974576964746802050E4578706C6963697448656967687402060000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C65667402F803546F7002FA055769647468020D0648656967687402060C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C696369745769647468020D0E4578706C69636974486569676874020600000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000
  2. Никак не могу изменить рамки компонентов и картинки Вот скрипт и фото (на фото находится что именно я не могу изменить) // Этот сценарий создан с помощью Мастера Inno Setup. // ОБРАТИТЕСЬ К СПРАВОЧНОЙ ДОКУМЕНТАЦИИ, ЧТОБЫ ИСПОЛЬЗОВАТЬ ВСЕ ВОЗМОЖНОСТИ INNO SETUP! #define MyAppName "JluCuI_GyCb Мультипак" #define MyAppVersion "1.12.0.0" #define MyAppPublisher "JluCuI_GyCb" #define MyAppURL "https://kttc.ru/wot/ru/user/JluCuI_GyCb/" [Setup] // Примечание: Значение AppId является уникальным идентификатором для этого приложения. // Не используйте одно и тоже значение AppId для разных приложений. // (Для создания нового значения GUID, выберите в меню "Инструменты" пункт "Создать GUID".) AppId={{63927EB8-2400-49E7-9B72-4D9E4AD1518B} AppName={#MyAppName} AppVersion={#MyAppVersion} ;AppVerName={#MyAppName} {#MyAppVersion} AppPublisher={#MyAppPublisher} AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} DefaultDirName=C:\Games\World_of_Tanks_RU\ DefaultGroupName={#MyAppName} DisableProgramGroupPage=yes DirExistsWarning=no LicenseFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\License.txt InfoBeforeFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\InfoBefore.rtf OutputDir=C:\Games OutputBaseFilename=JluCuIGyCb-ModPack 1.12.0.0 SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico Compression=lzma SolidCompression=yes WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] //---------- мои фото ---------- Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_1.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_3.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_4.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_5.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_6.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_7.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_8.bmp; Flags: dontcopy nocompression Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_9.bmp; Flags: dontcopy nocompression //---------- мои файлы ---------- Source: "C:\Users\postu\Desktop\World_of_Tanks\Цветные отметки попаданий\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text7; Source: "C:\Users\postu\Desktop\World_of_Tanks\Белые сбитые гусеницы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text6; Source: "C:\Users\postu\Desktop\World_of_Tanks\Калькулятор боевой эффективности\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text9; Source: "C:\Users\postu\Desktop\World_of_Tanks\Мод Достижения в бою\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text5; Source: "C:\Users\postu\Desktop\World_of_Tanks\Оповещение союзников о засвете\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text8; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от CHAMPi\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\1; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от OldSkool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\2; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от ПроТанки\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\3; Source: "C:\Users\postu\Desktop\World_of_Tanks\Статистика за сессию\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text4; Source: "C:\Users\postu\Desktop\World_of_Tanks\Менеджер Реплеев\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text1; Source: "C:\Users\postu\Desktop\World_of_Tanks\Командирская камера\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text3; // Примечание: Не используйте флаги "ignoreversion" для общих системных файлов. [Icons] Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}" [Components] Name: KMP; Description: JluCuI_GyCb ModPack; Types: custom; Flags: fixed Name: KMP\text1; Description: 1. Менеджер Реплеев; Name: KMP\text2; Description: 2. Отметки на орудие; Name: KMP\text2\1; Description: Вариант от CHAMPi; Flags: exclusive Name: KMP\text2\2; Description: Вариант от OldSkool; Flags: exclusive Name: KMP\text2\3; Description: Вариант от ПроТанки; Flags: exclusive Name: KMP\text3; Description: 3. Командирская камера; Name: KMP\text4; Description: 4. Статистика за сессию; Name: KMP\text5; Description: 5. Мод Достижения в бою; Name: KMP\text6; Description: 6. Белые сбитые гусеницы; Name: KMP\text7; Description: 7. Цветные отметки попаданий; Name: KMP\text8; Description: 8. Оповещение союзников о засвете; Name: KMP\text9; Description: 9. Калькулятор боевой эффективности; [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var OldEvent_BackButtonClick: TNotifyEvent; procedure WizardFormCreate(Sender: TObject); forward; procedure MainPanelClick(Sender: TObject); forward; procedure PageDescriptionLabelClick(Sender: TObject); forward; procedure _BackButtonClick(Sender: TObject); forward; function MyDirName(S:String): String; var InsPath: String; er: boolean; myFile:String; begin Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath); if er and (InsPath<>'') then //если ключ существует и там что-то записано begin Result := InsPath; end; end; procedure RedesignWizardForm; begin with WizardForm do begin OnCreate := @WizardFormCreate; AutoScroll := False; ClientHeight := ScaleY(360); ClientWidth := ScaleX(497); end; with WizardForm.Bevel do begin Top := ScaleY(313); Width := ScaleX(497); Height := ScaleY(2); end; with WizardForm.OuterNotebook do begin Width := ScaleX(497); Height := ScaleY(313); end; with WizardForm.WizardBitmapImage do begin Width := ScaleX(498); Height := ScaleY(314); end; with WizardForm.WelcomeLabel2 do begin Caption := '' + #13#10 + ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.WelcomeLabel1 do begin Caption := ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.Bevel1 do begin Top := ScaleY(58); Width := ScaleX(499); Height := ScaleY(3); end; with WizardForm.InnerNotebook do begin Width := ScaleX(417); Height := ScaleY(237); end; with WizardForm.LicenseNotAcceptedRadio do begin Top := ScaleY(216); end; with WizardForm.LicenseAcceptedRadio do begin Top := ScaleY(196); end; with WizardForm.LicenseMemo do begin Width := ScaleX(417); Height := ScaleY(148); end; with WizardForm.DiskSpaceLabel do begin Top := ScaleY(216); Width := ScaleX(417); end; with WizardForm.DirBrowseButton do begin Left := ScaleX(342); Top := ScaleY(80); end; with WizardForm.DirEdit do begin Left := ScaleX(0); Width := ScaleX(332); end; with WizardForm.ComponentsDiskSpaceLabel do begin Top := ScaleY(216); Width := ScaleX(417); end; with WizardForm.ComponentsList do begin Width := ScaleX(417); Height := ScaleY(131); end; with WizardForm.TypesCombo do begin Width := ScaleX(417); end; with WizardForm.SelectComponentsLabel do begin Caption := 'Выберите компоненты, которые вы хотите установить; снимите флажки с компонентов, устанавливать которые не требуется. Нажмите «Далее», когда вы будете готовы продолжить.'; Height := ScaleY(40); end; with WizardForm.TasksList do begin Width := ScaleX(417); Height := ScaleY(192); end; with WizardForm.ReadyMemo do begin Width := ScaleX(417); Height := ScaleY(205); end; with WizardForm.ProgressGauge do begin Left := ScaleX(0); Width := ScaleX(417); end; with WizardForm.InfoAfterMemo do begin Width := ScaleX(417); Height := ScaleY(205); end; with WizardForm.MainPanel do begin Width := ScaleX(497); Height := ScaleY(58); OnClick := @MainPanelClick; end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(0); Top := ScaleY(0); Width := ScaleX(498); Height := ScaleY(65); end; with WizardForm.PageDescriptionLabel do begin OnClick := @PageDescriptionLabelClick; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.PageNameLabel do begin Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); end; with WizardForm.WizardBitmapImage2 do begin Top := ScaleY(0); Width := ScaleX(498); Height := ScaleY(314); end; with WizardForm.RunList do begin Left := ScaleX(176); Top := ScaleY(163); Width := ScaleX(301); Height := ScaleY(142); end; with WizardForm.NoRadio do begin Left := ScaleX(176); Top := ScaleY(185); Width := ScaleX(301); Height := ScaleY(17); Caption := ''; end; with WizardForm.YesRadio do begin Left := ScaleX(176); Top := ScaleY(163); Width := ScaleX(301); Height := ScaleY(17); Caption := ''; end; with WizardForm.FinishedLabel do begin Caption := ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.FinishedHeadingLabel do begin Caption := ''; Left := ScaleX(-1); Top := ScaleY(-1); Width := ScaleX(-1); Height := ScaleY(-1); end; with WizardForm.BeveledLabel do begin Left := ScaleX(0); Top := ScaleY(306); end; with WizardForm.CancelButton do begin Left := ScaleX(407); Top := ScaleY(327); end; with WizardForm.NextButton do begin Left := ScaleX(317); Top := ScaleY(327); end; with WizardForm.BackButton do begin Left := ScaleX(237); Top := ScaleY(327); OldEvent_BackButtonClick := OnClick; OnClick := @_BackButtonClick; end; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure NewButton1Click(Sender: TObject); begin end; procedure MainPanelClick(Sender: TObject); begin end; procedure PageDescriptionLabelClick(Sender: TObject); begin end; procedure _BackButtonClick(Sender: TObject); begin OldEvent_BackButtonClick(Sender); end; procedure WizardFormCreate(Sender: TObject); begin end; const UNDEF_INDEX = -777; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278)); InfoPic.Show; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; if Index = LastIndex then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of '1. Менеджер Реплеев': UndefPic := 'descriptionimage_1.bmp'; // пишем точно так же, как прописано в компонентах '2. Отметки на орудие': UndefPic := 'descriptionimage_2.bmp'; '3. Командирская камера': UndefPic := 'descriptionimage_3.bmp'; '4. Статистика за сессию': UndefPic := 'descriptionimage_4.bmp'; '5. Мод Достижения в бою': UndefPic := 'descriptionimage_5.bmp'; '6. Белые сбитые гусеницы': UndefPic := 'descriptionimage_6.bmp'; '7. Цветные отметки попаданий': UndefPic := 'descriptionimage_7.bmp'; '8. Оповещение союзников о засвете': UndefPic := 'descriptionimage_8.bmp'; '9. Калькулятор боевой эффективности': UndefPic := 'descriptionimage_9.bmp'; else begin LastIndex := UNDEF_INDEX; InfoPic.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin InfoPic.Hide; LastIndex := -1; end; procedure InitInfo(); begin WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(310), ScaleY(278)); WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); LastIndex := UNDEF_INDEX; with TBevel.Create(WizardForm) do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278)); Shape := bsFrame; end; InfoPic := TBitmapImage.Create(WizardForm) with InfoPic do begin Parent := WizardForm.SelectComponentsPage; AutoSize := True; end; end; procedure InitializeWizard(); begin RedesignWizardForm; InitInfo(); end; [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D0030100D03000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020005576964746803EF010C4578706C696369744C65667402000D4578706C69636974576964746803EF010000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667402F803546F7002FA0557696474680205064865696768740206074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C69636974576964746802050E4578706C6963697448656967687402060000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C65667402F803546F7002FA055769647468020D0648656967687402060C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C696369745769647468020D0E4578706C69636974486569676874020600000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000
  3. @Kotyarko_O я ТУПОЙ проста спасибо теперь понял), Подскажите ещё пожалуйста как добавить ещё описание под данное фото Прикрепил фото, что бы что-то похожее было)
  4. Не отображается картинка при наведение на компонент, скрипт вроде как норм сделал но не понимаю в чем причина. Помогите пожалуйста!!! [Setup] WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp AppName=PowerTanks ModPack-1.12.0.0-Extendet AppVerName=1 DefaultDirName={code:MyDirName} Compression=lzma/max SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico AppId={{DE24C6EE-F032-412E-8A6D-A594EA2C8BF5} AppVersion=[2] DefaultGroupName=PowerTanks ModPack-1.12.0.2-Extendet [Files] //------- ваши картинки ------------ Source: 5.bmp; Flags: dontcopy nocompression Source: 6.bmp; Flags: dontcopy nocompression //------- ваши файлы ------------ Source: BELIE TRUPI\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: BT; Source: KRUG15M\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: K5; [Components] Name: BT; Description: 1.Белые трупы таков.; Name: K5; Description: 2.Круг 15м.; [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var OldEvent_BackButtonClick: TNotifyEvent; procedure WizardFormCreate(Sender: TObject); forward; procedure MainPanelClick(Sender: TObject); forward; procedure PageDescriptionLabelClick(Sender: TObject); forward; procedure _BackButtonClick(Sender: TObject); forward; function MyDirName(S:String): String; var InsPath: String; er: boolean; myFile:String; begin Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath); if er and (InsPath<>'') then //если ключ существует и там что-то записано begin Result := InsPath; end; end; procedure RedesignWizardForm; begin with WizardForm do begin OnCreate := @WizardFormCreate; AutoScroll := False; ClientHeight := ScaleY(490); ClientWidth := ScaleX(740); end; with WizardForm.Bevel do begin Top := ScaleY(243); Width := ScaleX(457); Height := ScaleY(70); end; with WizardForm.OuterNotebook do begin Width := ScaleX(745); Height := ScaleY(457); end; with WizardForm.WizardBitmapImage do begin Width := ScaleX(740); Height := ScaleY(458); end; with WizardForm.WelcomeLabel2 do begin Caption := '' + #13#10 + ''; Left := ScaleX(744); Top := ScaleY(-23); Width := ScaleX(125); Height := ScaleY(25); end; with WizardForm.WelcomeLabel1 do begin Caption := ''; Left := ScaleX(744); Top := ScaleY(-23); Width := ScaleX(13); Height := ScaleY(25); end; with WizardForm.Bevel1 do begin Top := ScaleY(57); Width := ScaleX(523); Height := ScaleY(1); end; with WizardForm.InnerNotebook do begin Width := ScaleX(659); Height := ScaleY(357); end; with WizardForm.LicenseNotAcceptedRadio do begin Top := ScaleY(312); end; with WizardForm.LicenseAcceptedRadio do begin Top := ScaleY(292); end; with WizardForm.LicenseMemo do begin Width := ScaleX(617); Height := ScaleY(244); end; with WizardForm.DiskSpaceLabel do begin Top := ScaleY(344); Width := ScaleX(353); end; with WizardForm.DirBrowseButton do begin Left := ScaleX(574); Top := ScaleY(79); end; with WizardForm.DirEdit do begin Left := ScaleX(16); Width := ScaleX(540); end; with WizardForm.ComponentsDiskSpaceLabel do begin Top := ScaleY(344); Width := ScaleX(273); end; with WizardForm.ComponentsList do begin Width := ScaleX(657); Height := ScaleY(227); end; with WizardForm.TypesCombo do begin Width := ScaleX(657); end; with WizardForm.SelectComponentsLabel do begin Caption := 'Выберите моды которые хотите установить, и нажмите далее'; Height := ScaleY(16); end; with WizardForm.TasksList do begin Width := ScaleX(465); Height := ScaleY(240); end; with WizardForm.ReadyMemo do begin Width := ScaleX(657); Height := ScaleY(333); end; with WizardForm.ProgressGauge do begin Left := ScaleX(8); Width := ScaleX(641); end; with WizardForm.InfoAfterMemo do begin Width := ScaleX(465); Height := ScaleY(253); end; with WizardForm.MainPanel do begin Width := ScaleX(745); Height := ScaleY(66); OnClick := @MainPanelClick; end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(0); Top := ScaleY(3); Width := ScaleX(735); Height := ScaleY(63); end; with WizardForm.PageDescriptionLabel do begin OnClick := @PageDescriptionLabelClick; Left := ScaleX(-288); Top := ScaleY(-5); Width := ScaleX(285); Height := ScaleY(5); end; with WizardForm.PageNameLabel do begin Left := ScaleX(-104); Top := ScaleY(-14); Width := ScaleX(101); end; with WizardForm.WizardBitmapImage2 do begin Top := ScaleY(-24); Width := ScaleX(740); Height := ScaleY(484); end; with WizardForm.RunList do begin Left := ScaleX(-128); Top := ScaleY(459); Width := ScaleX(125); Height := ScaleY(62); end; with WizardForm.NoRadio do begin Left := ScaleX(736); Top := ScaleY(-7); Width := ScaleX(245); Height := ScaleY(9); Caption := ''; end; with WizardForm.YesRadio do begin Left := ScaleX(736); Top := ScaleY(459); Width := ScaleX(173); Height := ScaleY(1); Caption := ''; end; with WizardForm.FinishedLabel do begin Caption := ''; Left := ScaleX(736); Top := ScaleY(-57); Width := ScaleX(269); Height := ScaleY(59); end; with WizardForm.FinishedHeadingLabel do begin Caption := ''; Left := ScaleX(736); Top := ScaleY(-16); Width := ScaleX(213); Height := ScaleY(18); end; with WizardForm.BeveledLabel do begin Left := ScaleX(-48); Top := ScaleY(402); end; with WizardForm.CancelButton do begin Left := ScaleX(617); Top := ScaleY(463); end; with WizardForm.NextButton do begin Left := ScaleX(533); Top := ScaleY(463); end; with WizardForm.BackButton do begin Left := ScaleX(445); Top := ScaleY(463); OldEvent_BackButtonClick := OnClick; OnClick := @_BackButtonClick; end; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure NewButton1Click(Sender: TObject); begin end; procedure MainPanelClick(Sender: TObject); begin end; procedure PageDescriptionLabelClick(Sender: TObject); begin end; procedure _BackButtonClick(Sender: TObject); begin OldEvent_BackButtonClick(Sender); end; procedure WizardFormCreate(Sender: TObject); begin end; const UNDEF_INDEX = -777; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278)); InfoPic.Show; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; if Index = LastIndex then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of '2.Белые трупы танков.': UndefPic := '5.bmp'; // пишем точно так же, как прописано в компонентах '4.Боевое меню TRJ.': UndefPic := '6.bmp'; else begin LastIndex := UNDEF_INDEX; InfoPic.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin InfoPic.Hide; LastIndex := -1; end; procedure InitInfo(); begin WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(310), ScaleY(278)); WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); LastIndex := UNDEF_INDEX; with TBevel.Create(WizardForm) do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278)); Shape := bsFrame; end; InfoPic := TBitmapImage.Create(WizardForm) with InfoPic do begin Parent := WizardForm.SelectComponentsPage; AutoSize := True; end; end; procedure InitializeWizard(); begin RedesignWizardForm; InitInfo(); end; [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D0030101812000054504630F10B5457697A617264466F726D0A57697A61726 4466F726D0C436C69656E7448656967687403EA010B436C69656E74576964746803E402134F6E436F6E73747261696E65645 26573697A65071057697A617264466F726D437265617465084F6E437265617465071057697A617264466F726D43726561746 50C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746803F4020E45787 06C696369744865696768740310020D506978656C73506572496E636802600A54657874486569676874020D00F1065442657 6656C05426576656C03546F7003F30005576964746803C9010648656967687402460B4578706C69636974546F7003F3000D4 578706C69636974576964746803C9010E4578706C6963697448656967687402460000F302010C544E65774E6F7465626F6F6 B0D4F757465724E6F7465626F6F6B05576964746803E9020648656967687403C9010D4578706C69636974576964746803E90 20E4578706C6963697448656967687403C90100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650 D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651 157697A6172644
  5. Помогите добавить картинки в модпак // Этот сценарий создан с помощью Мастера Inno Setup. // ОБРАТИТЕСЬ К СПРАВОЧНОЙ ДОКУМЕНТАЦИИ, ЧТОБЫ ИСПОЛЬЗОВАТЬ ВСЕ ВОЗМОЖНОСТИ INNO SETUP! #define MyAppName "JluCuI_GyCb Мультипак" #define MyAppVersion "1.12.0.0" #define MyAppPublisher "JluCuI_GyCb" #define MyAppURL "https://kttc.ru/wot/ru/user/JluCuI_GyCb/" [Setup] // Примечание: Значение AppId является уникальным идентификатором для этого приложения. // Не используйте одно и тоже значение AppId для разных приложений. // (Для создания нового значения GUID, выберите в меню "Инструменты" пункт "Создать GUID".) AppId={{63927EB8-2400-49E7-9B72-4D9E4AD1518B} AppName={#MyAppName} AppVersion={#MyAppVersion} ;AppVerName={#MyAppName} {#MyAppVersion} AppPublisher={#MyAppPublisher} AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} DefaultDirName=C:\Games\World_of_Tanks_RU\ DefaultGroupName={#MyAppName} DisableProgramGroupPage=yes DirExistsWarning=no LicenseFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\License.txt InfoBeforeFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\InfoBefore.rtf OutputDir=C:\Games OutputBaseFilename=JluCuIGyCb-ModPack 1.12.0.0 SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico Compression=lzma SolidCompression=yes WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] //---------- мои фото ---------- Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_1.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_2.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_3.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_4.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_5.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_6.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_7.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_8.jpg; Flags: dontcopy noencryption noencryption Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_9.jpg; Flags: dontcopy noencryption noencryption //---------- мои файлы ---------- Source: "C:\Users\postu\Desktop\World_of_Tanks\Цветные отметки попаданий\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text7; Source: "C:\Users\postu\Desktop\World_of_Tanks\Белые сбитые гусеницы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text6; Source: "C:\Users\postu\Desktop\World_of_Tanks\Калькулятор боевой эффективности\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text9; Source: "C:\Users\postu\Desktop\World_of_Tanks\Мод Достижения в бою\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text5; Source: "C:\Users\postu\Desktop\World_of_Tanks\Оповещение союзников о засвете\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text8; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от CHAMPi\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\1; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от OldSkool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\2; Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от ПроТанки\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\3; Source: "C:\Users\postu\Desktop\World_of_Tanks\Статистика за сессию\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text4; Source: "C:\Users\postu\Desktop\World_of_Tanks\Менеджер Реплеев\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text1; Source: "C:\Users\postu\Desktop\World_of_Tanks\Командирская камера\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text3; // Примечание: Не используйте флаги "ignoreversion" для общих системных файлов. [Icons] Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}" [Components] Name: KMP; Description: JluCuI_GyCb ModPack; Types: custom; Flags: fixed Name: KMP\text1; Description: 1. Менеджер Реплеев; Name: KMP\text2; Description: 2. Отметки на орудие; Name: KMP\text2\1; Description: Вариант от CHAMPi; Flags: exclusive Name: KMP\text2\2; Description: Вариант от OldSkool; Flags: exclusive Name: KMP\text2\3; Description: Вариант от ПроТанки; Flags: exclusive Name: KMP\text3; Description: 3. Командирская камера; Name: KMP\text4; Description: 4. Статистика за сессию; Name: KMP\text5; Description: 5. Мод Достижения в бою; Name: KMP\text6; Description: 6. Белые сбитые гусеницы; Name: KMP\text7; Description: 7. Цветные отметки попаданий; Name: KMP\text8; Description: 8. Оповещение союзников о засвете; Name: KMP\text9; Description: 9. Калькулятор боевой эффективности; [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D0030100D03000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020005576964746803EF010C4578706C696369744C65667402000D4578706C69636974576964746803EF010000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667402F803546F7002FA0557696474680205064865696768740206074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C69636974576964746802050E4578706C6963697448656967687402060000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C65667402F803546F7002FA055769647468020D0648656967687402060C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C696369745769647468020D0E4578706C69636974486569676874020600000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000 [Code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. procedure PageDescriptionLabelClick(Sender: TObject); forward; procedure RedesignWizardForm; begin with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(0); Width := ScaleX(495); end; with WizardForm.PageDescriptionLabel do begin OnClick := @PageDescriptionLabelClick; Left := ScaleX(-8); Top := ScaleY(-6); Width := ScaleX(5); Height := ScaleY(6); end; with WizardForm.PageNameLabel do begin Left := ScaleX(-8); Top := ScaleY(-6); Width := ScaleX(13); Height := ScaleY(6); end; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure PageDescriptionLabelClick(Sender: TObject); begin end; procedure InitializeWizard(); begin RedesignWizardForm; end;
×
×
  • Create New...