AtotIK Posted May 2, 2014 Share Posted May 2, 2014 Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины. @ Quote Link to comment Short link Share on other sites More sharing options...
XXX_MUTANT Posted May 2, 2014 Share Posted May 2, 2014 Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины. Особенно про майнкрафт! @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 2, 2014 Share Posted May 2, 2014 SuperXcool, а обязательно все скрипты должны быть написаны для танков? Для примера хватит, переделывается за 5 секунд. @ Quote Link to comment Short link Share on other sites More sharing options...
XXX_MUTANT Posted May 2, 2014 Share Posted May 2, 2014 SuperXcool, а обязательно все скрипты должны быть написаны для танков? Для примера хватит, переделывается за 5 секунд. Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины. Для примера и личного развития хотел-бы заполучить твой образец и попасть в эти единицы (для личного пользования). @ Quote Link to comment Short link Share on other sites More sharing options...
aCHIVKA Posted May 2, 2014 Share Posted May 2, 2014 Я готов. Вот резултат. Спасибо за помощью EvilAlex и AtotIK Как ты окно увеличил? Скажи пожалуйста Как подключить скины в inno setup? @ Quote Link to comment Short link Share on other sites More sharing options...
Mr_KeyN Posted May 2, 2014 Share Posted May 2, 2014 Ребят подскажите, а то не могу найти, когда игра запущена что бы писало типа закройте игру и продолжите установку, спасибо... @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 2, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
aCHIVKA Posted May 2, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
liked Posted May 2, 2014 Share Posted May 2, 2014 Я готов. Вот резултат. Спасибо за помощью EvilAlex и AtotIK А поделится скриптом? @ Quote Link to comment Short link Share on other sites More sharing options...
Mr_KeyN Posted May 2, 2014 Share Posted May 2, 2014 Mr_KeyN, можно так. Спасибо работает.. @ Quote Link to comment Short link Share on other sites More sharing options...
Azbuka Posted May 2, 2014 Share Posted May 2, 2014 Оффтоп. Некоторые люди настолько ленивы, что вместо того чтобы потратить один вечер и сделать всё самому, они днями мучают других. Почему нельзя пользоваться поиском? Кто вам запретил открывать справку? 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Mr_KeyN Posted May 2, 2014 Share Posted May 2, 2014 Оффтоп. Некоторые люди настолько ленивы, что вместо того чтобы потратить один вечер и сделать всё самому, они днями мучают других. Почему нельзя пользоваться поиском? Кто вам запретил открывать справку? Ты скажи нахера тог да создавать такие темы что бы посылать в справку, а.... 3 @ Quote Link to comment Short link Share on other sites More sharing options...
Azbuka Posted May 2, 2014 Share Posted May 2, 2014 @Mr_KeyN, Чтобы спрашивать. Но не чтобы выклянчивать скрипты у всех под ряд. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Mr_KeyN Posted May 2, 2014 Share Posted May 2, 2014 И ещё такой вопросик, есть основное окно с выборам модов, надо после него ещё одно окно с ещё одними компонентами для установки, как это реализовать??? Спасибо... @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 2, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
Mr_KeyN Posted May 2, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
mpmp Posted May 2, 2014 Share Posted May 2, 2014 А поделится скриптом? Все, что вам нужно здесь - здесь и здесь. @ Quote Link to comment Short link Share on other sites More sharing options...
aCHIVKA Posted May 2, 2014 Share Posted May 2, 2014 Все, что вам нужно здесь - здесь и здесь. Как ты изменил размеры этого компонента? @ Quote Link to comment Short link Share on other sites More sharing options...
mpmp Posted May 2, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
liked Posted May 2, 2014 Share Posted May 2, 2014 Все, что вам нужно здесь - здесь и здесь. Я одно ты про другое, не спросил как это сделать! а поделится скриптом на скрине? или это чисто хвастовство ?* @ Quote Link to comment Short link Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.