voin_123

Доброе время суток! У кого-то есть пример скрипта кнопки доната?

Спасибо заработало!

пробовал не работает

как настроить в программе Wwise припустим на озвучку крита у меня есть 4 варианта настроить их рандомно я понял а как что б звучали по очереди один за другим не повторяясь

Ekspoint, подскажи как в Wwise создать последовательный эвент (событие) на воспроизведение звука

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

а почему когда устанавливаешь мод Damage Announce с модом WG STREAM меняется разрешение окна а с другими нормально???

Привет при установке с модом WG STREAM меняется разрешение окна мода я так думаю это и за окна всплывающего сообщения при входе в ангар исправить можно?

Это фокусит внимание над Components на не отключает прокрутку в Types не помогает.

Это раньше пробовал не работает

Полностю пропадает секция Types

procedure InitializeWizard(); begin WizardForm.TypesCombo.Visible := False; end; Это отключает Types, а мне надо в ней выключить прокрутку скрола

Как сделать чтоб в окне Components секций Types не работала прокрутка а в секций Components работала прокрутка окна колесом мыши до выбора чексбокса?

Спс заработало При выборе чекбокса с озвучкой, чекбокс без озвучки начинает звучать его мелодии, как это исправить? [Setup] AppName=SoundResourceDemo AppVerName=1.0 DefaultDirName={pf}\SoundResourceDemo OutputDir=. RawDataResource=SndA:bugreporter_succeeded.wav |SndB:WindowsLogoffSound.wav |SndE:Sound1.wav [Components] Name: "main"; Description: "Main Files"; Name: "main\a"; Description: "A Files"; Name: "main\b"; Description: "B Files"; Name: "main\c"; Description: "C Files"; Name: "main\d"; Description: "D Files"; Name: "main\e"; Description: "E Files"; [Code] #define A = (Defined UNICODE) ? "W" : "A" type HINST = THandle; HMODULE = HINST; Pointer = Longint; HRSRC = THandle; HGLOBAL = THandle; const SND_ASYNC = $0001; SND_NODEFAULT = $0002; SND_MEMORY = $0004; RT_RCDATA = 10; function sndPlaySound(lpszSoundName: Pointer; uFlags: UINT): BOOL; external 'sndPlaySound{#A}@Winmm.dll stdcall'; function LoadResource(hModule: HINST; hResInfo: HRSRC): HGLOBAL; external '[email protected] stdcall'; function FindResource(hModule: HMODULE; lpName: String; lpType: Longint): HRSRC; external 'FindResource{#A}@kernel32.dll stdcall'; function LockResource(hResData: HGLOBAL): Pointer; external '[email protected] stdcall'; var pSoundMemory_A, pSoundMemory_B, pSoundMemory_E: Pointer; function GetResourceSoundAddr(const ResourceName: String): Pointer; var hResourceSound: HRSRC; begin hResourceSound := FindResource(HInstance, ResourceName, RT_RCDATA); Result := LockResource(LoadResource(HInstance, hResourceSound)); end; procedure ComponentsOnClickCheck(Sender: TObject); begin if IsComponentSelected('main\a') then begin sndPlaySound(pSoundMemory_B, SND_MEMORY or SND_NODEFAULT or SND_ASYNC); end; if IsComponentSelected('main\b') then begin sndPlaySound(pSoundMemory_A, SND_MEMORY or SND_NODEFAULT or SND_ASYNC); end; if IsComponentSelected('main\e') then begin sndPlaySound(pSoundMemory_E, SND_MEMORY or SND_NODEFAULT or SND_ASYNC); end; end; procedure InitializeWizard(); begin pSoundMemory_A := GetResourceSoundAddr('_IS_SNDA'); pSoundMemory_B := GetResourceSoundAddr('_IS_SNDB'); pSoundMemory_E := GetResourceSoundAddr('_IS_SNDB'); WizardForm.ComponentsList.OnClickCheck := @ComponentsOnClickCheck; end;

Почему не работает Слеш? Задержка для картинки есть, а картинки нету. [Files] Source: Splash\splash.png; Flags: dontcopy Source: Splash\isgsg.dll; Flags: dontcopy [Code] procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload'; procedure Splash(); begin ExtractTemporaryFile('Splash.png'); ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10); end; procedure InitializeWizard(); begin Splash(); end;

Как изменить Result:=ExpandConstant('C:\Games\World_of_Tanks\'); чтоб при выборе папки не создавало папку. [setup] DefaultDirName={code:GetInstDir} 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;

Всем привет как увеличить ето окно после установки модов код function WindowResize(): Boolean; var HeightOffset, WidthOffset: Integer; begin HeightOffset:=140; WidthOffset:=140; WizardForm.Height:=WizardForm.Height + HeightOffset; WizardForm.Width:=WizardForm.Width + WidthOffset; WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset; WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset; WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset; WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset; WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset; WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset; WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset; WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset; WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset; WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset; WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset; WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset; WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset; WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset; WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset; WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset; WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset; WizardForm.Center; WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.FinishedLabel.Hide; WizardForm.FinishedHeadingLabel.Hide; WizardForm.WizardBitmapImage.Width:=640; WizardForm.WizardBitmapImage.Height:=465; WizardForm.WizardBitmapImage2.Width:=640; WizardForm.WizardBitmapImage2.Height:=452; WizardForm.PageNameLabel.Hide; WizardForm.PageDescriptionLabel.Hide; WizardForm.WizardSmallBitmapImage.Top:=0; WizardForm.WizardSmallBitmapImage.Left:=0; WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width; WizardForm.WizardSmallBitmapImage.Height:=58; WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.WizardBitmapImage.Width:=640; WizardForm.WizardBitmapImage.Height:=465; WizardForm.FinishedHeadingLabel.Hide; WizardForm.FinishedLabel.Hide; WizardForm.YesRadio.Hide; WizardForm.NoRadio.Hide; WizardForm.WizardBitmapImage2.Width:=640; WizardForm.WizardBitmapImage2.Height:=465; WizardForm.PageNameLabel.Hide; WizardForm.PageDescriptionLabel.Hide; WizardForm.WizardSmallBitmapImage.Top:=0; WizardForm.WizardSmallBitmapImage.Left:=0; WizardForm.WizardSmallBitmapImage.Width:=650; WizardForm.WizardSmallBitmapImage.Height:=60; WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset; WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset; WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset; WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset; WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset; WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset; WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset; WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset; WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset; WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset; WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset; WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset; WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset; WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset; WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset; WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset; WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset; WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset; WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset; WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset; WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset; WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset; WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset; WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset; WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset; WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset; WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset; WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset; WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset; end;

А как изменить язык для BackUpPage.iss

СПС а как изменить язык для BackUpPage.iss

Всем прив а как добавить ещо одну вкладку с виборами компонентов?

@AtotIK, Все супер но как такое зделать на удаление или бэкап? видает ошибку

Всем привет! А как сделать так что б ты например при установки мод пака выбрал русский и весь мод пак на русском и в том числе вибор модов, зделать бекап ,удалить моди , выбрал украинский и весь на украинской ?

Почему не отображет кнопку хотя музыка играет http://rghost.ru/7szFxzkvw

скинь файлы

Парни как возле кнопок (далее назад отмена) с левой стороны добавит картинку на которую будет играть музыка при установки?