AtotIK 580 #180171 Posted May 2, 2014 Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины. Quote Share this post Link to post Short link Share on other sites
XXX_MUTANT 76 #180175 Posted May 2, 2014 Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины. Особенно про майнкрафт! Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #180178 Posted May 2, 2014 SuperXcool, а обязательно все скрипты должны быть написаны для танков? Для примера хватит, переделывается за 5 секунд. Quote Share this post Link to post Short link Share on other sites
XXX_MUTANT 76 #180188 Posted May 2, 2014 SuperXcool, а обязательно все скрипты должны быть написаны для танков? Для примера хватит, переделывается за 5 секунд. Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины. Для примера и личного развития хотел-бы заполучить твой образец и попасть в эти единицы (для личного пользования). Quote Share this post Link to post Short link Share on other sites
aCHIVKA 6 #180203 Posted May 2, 2014 Я готов. Вот резултат. Спасибо за помощью EvilAlex и AtotIK Как ты окно увеличил? Скажи пожалуйста Как подключить скины в inno setup? Quote Share this post Link to post Short link Share on other sites
Mr_KeyN 21 #180239 Posted May 2, 2014 Ребят подскажите, а то не могу найти, когда игра запущена что бы писало типа закройте игру и продолжите установку, спасибо... Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #180240 Posted May 2, 2014 (edited) Хотя скрипт то не весь мной написан, тоже руководствовался кое-какими наработками. aCHIVKA, надоел клянчить. В Гугле всё есть, надеюсь там тебя не забанили. Первая ссылка. Mr_KeyN, можно так. function IsAppRunning(): Boolean; begin Result:=(FindWindowByWindowName('WoT Client') <> 0); end; function NextButtonClick(CurPage: Integer): Boolean; begin Result:=True; If CurPage=1 then begin if IsAppRunning() then begin MsgBox('Клиент игры World of Tanks в настоящее время запущен.' #13#13 'Необходимо закрыть его перед продолжением установки.', mbError, MB_OK); Result:=False; end else Result:=True; end; end; Edited May 2, 2014 by AtotIK Quote Share this post Link to post Short link Share on other sites
aCHIVKA 6 #180242 Posted May 2, 2014 Хотя скрипт то не весь мной написан, тоже руководствовался кое-какими наработками. aCHIVKA, надоел клянчить. В Гугле всё есть, надеюсь там тебя не забанили. Первая ссылка. Mr_KeyN, можно так. function IsAppRunning(): Boolean; begin Result:=(FindWindowByWindowName('WoT Client') <> 0); end; function NextButtonClick(CurPage: Integer): Boolean; begin Result:=True; If CurPage=1 then begin if IsAppRunning() then begin MsgBox('Клиент игры World of Tanks в настоящее время запущен.' #13#13 'Необходимо закрыть его перед продолжением установки.', mbError, MB_OK); Result:=False; end else Result:=True; end; end; У меня есть скрипт,но скин не применяется Quote Share this post Link to post Short link Share on other sites
liked 19 #180244 Posted May 2, 2014 Я готов. Вот резултат. Спасибо за помощью EvilAlex и AtotIK А поделится скриптом? Quote Share this post Link to post Short link Share on other sites
Mr_KeyN 21 #180245 Posted May 2, 2014 Mr_KeyN, можно так. Спасибо работает.. Quote Share this post Link to post Short link Share on other sites
Azbuka 278 #180247 Posted May 2, 2014 Оффтоп. Некоторые люди настолько ленивы, что вместо того чтобы потратить один вечер и сделать всё самому, они днями мучают других. Почему нельзя пользоваться поиском? Кто вам запретил открывать справку? 1 1 Quote Share this post Link to post Short link Share on other sites
Mr_KeyN 21 #180248 Posted May 2, 2014 Оффтоп. Некоторые люди настолько ленивы, что вместо того чтобы потратить один вечер и сделать всё самому, они днями мучают других. Почему нельзя пользоваться поиском? Кто вам запретил открывать справку? Ты скажи нахера тог да создавать такие темы что бы посылать в справку, а.... 3 Quote Share this post Link to post Short link Share on other sites
Azbuka 278 #180249 Posted May 2, 2014 @Mr_KeyN, Чтобы спрашивать. Но не чтобы выклянчивать скрипты у всех под ряд. 1 Quote Share this post Link to post Short link Share on other sites
Mr_KeyN 21 #180250 Posted May 2, 2014 И ещё такой вопросик, есть основное окно с выборам модов, надо после него ещё одно окно с ещё одними компонентами для установки, как это реализовать??? Спасибо... Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #180256 Posted May 2, 2014 (edited) Mr_KeyN, возможно подойдёт секция [Tasks] Распространяется на [Run], [Registry], [Files] и т.д.. Пример: [Files] Source: "Work\Source\Russian\FEARXP\FEARL_XP.Arch00_make\*.*"; DestDir: "{app}\Russian\FEARXP\FEARL_XP.Arch00_make"; Tasks: "EP"; [Tasks] Name: "Original"; Description: "F.E.A.R."; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive unchecked; Name: "EP"; Description: "F.E.A.R.: Extraction Point"; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive; Name: "v100"; Description: "v1.00 ~ 1.02"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v103"; Description: "v1.03 ~ v1.04"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v105"; Description: "v1.05 ~ v1.06"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v107"; Description: "v1.07"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v108"; Description: "v1.08"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive; Edited May 2, 2014 by AtotIK Quote Share this post Link to post Short link Share on other sites
Mr_KeyN 21 #180259 Posted May 2, 2014 Mr_KeyN, возможно подойдёт секция [Tasks] Распространяется на [Run], [Registry], [Files] и т.д.. Пример: [Files] Source: "Work\Source\Russian\FEARXP\FEARL_XP.Arch00_make\*.*"; DestDir: "{app}\Russian\FEARXP\FEARL_XP.Arch00_make"; Tasks: "EP"; [Tasks] Name: "Original"; Description: "F.E.A.R."; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive unchecked; Name: "EP"; Description: "F.E.A.R.: Extraction Point"; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive; Name: "v100"; Description: "v1.00 ~ 1.02"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v103"; Description: "v1.03 ~ v1.04"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v105"; Description: "v1.05 ~ v1.06"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v107"; Description: "v1.07"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked; Name: "v108"; Description: "v1.08"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive; Спасибо !!!!!! Quote Share this post Link to post Short link Share on other sites
mpmp 2 #180264 Posted May 2, 2014 А поделится скриптом? Все, что вам нужно здесь - здесь и здесь. Quote Share this post Link to post Short link Share on other sites
aCHIVKA 6 #180271 Posted May 2, 2014 Все, что вам нужно здесь - здесь и здесь. Как ты изменил размеры этого компонента? Quote Share this post Link to post Short link Share on other sites
mpmp 2 #180272 Posted May 2, 2014 (edited) Как ты изменил размеры этого компонента? //====={ Настройки на страниците )=====\\ with WizardForm.Bevel do begin Top := ScaleY(393); Width := ScaleX(705); Height := ScaleY(82); end; with WizardForm.CancelButton do begin Left := ScaleX(512); Top := ScaleY(416); end; with WizardForm.NextButton do begin Left := ScaleX(423); Top := ScaleY(416); end; with WizardForm.BackButton do begin Left := ScaleX(340); Top := ScaleY(416); end; with WizardForm.OuterNotebook do begin Width := ScaleX(705); Height := ScaleY(393); end; with WizardForm.WizardBitmapImage do begin Left := ScaleX(-40); Top := ScaleY(-16); Width := ScaleX(652); Height := ScaleY(402); end; with WizardForm.WelcomeLabel2 do begin Enabled := False; Left := ScaleX(112); Top := ScaleY(135); end; with WizardForm.WelcomeLabel1 do begin Enabled := False; Left := ScaleX(72); Top := ScaleY(40); end; with WizardForm.Bevel1 do begin Top := ScaleY(57); Height := ScaleY(17); end; with WizardForm.InnerNotebook do begin Left := ScaleX(8); Top := ScaleY(64); Width := ScaleX(697); Height := ScaleY(341); end; with WizardForm.LicenseNotAcceptedRadio do begin Left := ScaleX(16); Top := ScaleY(304); end; with WizardForm.LicenseAcceptedRadio do begin Left := ScaleX(16); Top := ScaleY(284); end; with WizardForm.LicenseMemo do begin Left := ScaleX(8); Width := ScaleX(577); Height := ScaleY(244); end; with WizardForm.LicenseLabel1 do begin Left := ScaleX(16); Width := ScaleX(569); Height := ScaleY(35); end; with WizardForm.PasswordEdit do begin Left := ScaleX(72); end; with WizardForm.PasswordEditLabel do begin Left := ScaleX(72); end; with WizardForm.PasswordLabel do begin Left := ScaleX(72); end; with WizardForm.InfoBeforeMemo do begin Left := ScaleX(8); Top := ScaleY(40); Width := ScaleX(585); Height := ScaleY(277); end; with WizardForm.InfoBeforeClickLabel do begin Left := ScaleX(16); Width := ScaleX(569); Height := ScaleY(30); end; with WizardForm.UserInfoSerialEdit do begin Left := ScaleX(104); Width := ScaleX(409); end; with WizardForm.UserInfoSerialLabel do begin Left := ScaleX(104); end; with WizardForm.UserInfoOrgEdit do begin Left := ScaleX(104); end; with WizardForm.UserInfoOrgLabel do begin Left := ScaleX(104); end; with WizardForm.UserInfoNameEdit do begin Left := ScaleX(104); end; with WizardForm.UserInfoNameLabel do begin Left := ScaleX(104); end; with WizardForm.SelectDirBitmapImage do begin Left := ScaleX(56); Top := ScaleY(25); Width := ScaleX(40); Height := ScaleY(38); end; with WizardForm.DiskSpaceLabel do begin Left := ScaleX(56); Top := ScaleY(208); Width := ScaleX(497); Height := ScaleY(38); end; with WizardForm.DirBrowseButton do begin Left := ScaleX(478); Top := ScaleY(149); end; with WizardForm.DirEdit do begin Left := ScaleX(56); Top := ScaleY(149); Width := ScaleX(417); end; with WizardForm.SelectDirBrowseLabel do begin Left := ScaleX(56); Top := ScaleY(76); Width := ScaleX(497); Height := ScaleY(70); end; with WizardForm.SelectDirLabel do begin Left := ScaleX(100); Top := ScaleY(25); Width := ScaleX(453); Height := ScaleY(46); end; //====={ Прозореца с избора на модовете }=====\\ with WizardForm.ComponentsDiskSpaceLabel do begin Left := ScaleX(8); Top := ScaleY(312); end; with WizardForm.ComponentsList do begin Left := ScaleX(0); //== разстоянието от ляво. Top := ScaleY(37); //== разстоянието от горе. Width := ScaleX(345); //== широчина на прозореца. 315 Height := ScaleY(272); //== височина на прозореца. end; with WizardForm.TypesCombo do begin Left := ScaleX(8); Width := ScaleX(577); Enabled := False; end; with WizardForm.SelectComponentsLabel do begin Left := ScaleX(8); Top := ScaleY(8); Width := ScaleX(569); end; with WizardForm.SelectGroupBitmapImage do begin Left := ScaleX(120); end; with WizardForm.NoIconsCheck do begin Left := ScaleX(120); end; with WizardForm.GroupBrowseButton do begin Left := ScaleX(462); Top := ScaleY(66); end; with WizardForm.GroupEdit do begin Left := ScaleX(120); end; with WizardForm.SelectStartMenuFolderBrowseLabel do begin Left := ScaleX(120); end; with WizardForm.SelectStartMenuFolderLabel do begin Left := ScaleX(164); end; with WizardForm.TasksList do begin Left := ScaleX(88); Top := ScaleY(69); end; with WizardForm.SelectTasksLabel do begin Left := ScaleX(88); Top := ScaleY(32); end; with WizardForm.ReadyMemo do begin Left := ScaleX(8); Top := ScaleY(16); Width := ScaleX(577); Height := ScaleY(309); end; with WizardForm.ReadyLabel do begin Left := ScaleX(8); Width := ScaleX(569); end; with WizardForm.PreparingErrorBitmapImage do begin Left := ScaleX(40); end; with WizardForm.PreparingLabel do begin Left := ScaleX(64); end; with WizardForm.PreparingYesRadio do begin Left := ScaleX(64); Top := ScaleY(257); end; with WizardForm.PreparingNoRadio do begin Left := ScaleX(64); Top := ScaleY(279); end; with WizardForm.PreparingMemo do begin Left := ScaleX(64); end; with WizardForm.FilenameLabel do begin Left := ScaleX(104); Top := ScaleY(48); end; with WizardForm.StatusLabel do begin Left := ScaleX(104); Top := ScaleY(16); end; with WizardForm.ProgressGauge do begin Left := ScaleX(104); Top := ScaleY(82); end; with WizardForm.InfoAfterMemo do begin Left := ScaleX(8); Top := ScaleY(32); Width := ScaleX(577); Height := ScaleY(293); end; with WizardForm.InfoAfterClickLabel do begin Left := ScaleX(8); Width := ScaleX(577); Height := ScaleY(30); end; with WizardForm.MainPanel do begin Width := ScaleX(609); end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(0); Top := ScaleY(2); Width := ScaleX(607); end; with WizardForm.PageDescriptionLabel do begin Left := ScaleX(104); Top := ScaleY(10); Width := ScaleX(373); end; with WizardForm.PageNameLabel do begin Left := ScaleX(88); end; with WizardForm.WizardBitmapImage2 do begin Width := ScaleX(610); Height := ScaleY(450); end; with WizardForm.RunList do begin Top := ScaleY(172); end; //==== Край на настройки на страниците =====\\ Edited May 2, 2014 by mpmp Quote Share this post Link to post Short link Share on other sites
liked 19 #180273 Posted May 2, 2014 Все, что вам нужно здесь - здесь и здесь. Я одно ты про другое, не спросил как это сделать! а поделится скриптом на скрине? или это чисто хвастовство ?* Quote Share this post Link to post Short link Share on other sites